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1.0 INTRODUCTION 

1.1 ABSTRACT 

THE RM05/3/2 SUBSYSTEM FUTiCTIONAL TEST IS A STAND ALONE PROGRAM 
WHICH USES FUNCTIONAL MEANS TO VERJFr TH£ OPERABlLlTr OF THE 
RM05/3/2 DISK SUBSYSTEM. IN PARTICULAR. THE PROGRAM SERVES THE 
FOLLOWING PURPOSES: 

TO EXPLICITLY ESTABLISH CONFIDENCE IN THf BASIC OPERATIONS OF THE 
DISK DRIVE, INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER 
OPERATIONS; 

TO IMPLICITLY ESTABLISH CONflDCWCE IN THE DRIVE/ADAPTER 

ELECTRICAL INTERFACE; 

TO VERIFY THE FUNCTIONAL;"- Oi -tl VW5/3/2 SUBSYSTEM, INCLUDING 
THE MASS8US CONTROLLER. MASSeo*; ^-.^ THf DISK DRIVE. 

THE TEST IS COMPRISED » ^'R'v. v».ICH yQULO NORWkLY BE RlA IN 
SEQUENCE. STARTING WITH PAR^ K-'t LY, PART 1 TESTS HOUSEKEEPING 
AND MECHANICAL POSITIONING OPERAl iC#«»; PART ? TESTS WRITE, READ AND 
WRITE CHECX OPERATIONS USING HEADER AND DATA; PART 3 TESTS WRITE. 
READ AND WRITE CHECK OPERATIONS oSING DATA. 



1.2 UNIT UNDER TEST 

THE UNIT UNDER TEST (UUT) IS THE RM05/3/2 DISK SUBSYSTEM WHICH 
CONSISTS OF THE RHXX MASSBUS CONTROLLER. THE RM05/3/2 MASS8US ADAPTER. 
AND THE STORAGE MODULE DISK DRIVE. NOTE THAT A DISK PAC< IS REQUIRED 
FOR TESTING AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MOD^AE DISK 
DRIVE. 



2.0 OPERATING REQUIREMENTS 

2.1 HARDWARE REQUIREMENTS 

THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED TO BE 
OPERATIONAL. IS REQUIRED TO LOAD AND EXECUTE THE RM05/3/2 SUBSYSTEM 
FUNCTIONAL TEST: 

PDP-11 PROCESSOR 
20K MEMORY 

KW11-L OR KW11-P CLOCK 
PROGRAM LOADING DEVICE 
TERMINAL 

RHll OR RH70 CONTROLLER 

1 TO 8 DISK DRIVES (ANY COMBINATION OF RM05'S. RM03'S OR RM02*S1 
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M ■ 2.2 MEDIA REQUIREMENTS 

60 EACH UNIT BEING TESTED MUST BE LOADED WITH A SCRATCH DISK PACK 

6" BEFORE TESTING BEGINS ON THAT UNIT. THE DISK MAY BE FORMATTED Oft 

*2 UNFORMATTED. 

t3 

64 

65 

(«A 2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 

158 RM05/3/2 DISKLESS TEST. PART 1 £ 2 

c9 

70 

7^ 

7? 3.0 OPERATING PROCEDURE 

73 

74 3.1 LOADING 

75 

76 THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 

77 

78 .PAPER TAPE. USING THE STANDARD PAPER TAPE LOADING PROCEDURE. 

79 .XXDP MEDIA. USING THE APPROPRIATE LOADING DEVICE. 
80 

81 
8? 

85 3.2 SWITCH OPTIONS 

84 

85 THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHA^JCE THE UTILITY 

86 OF THE PROGRAM. 
87 

88 SW15 HALT ON ERROR 

89 SW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 

90 SW13 INHIBIT ERROR TYPEOUTo 

91 SW12 UNUSED 

92 SW11 INHIBIT TEST ITERATIONS 

93 SW10 BELL ON ERROR 

94 SW09 LOOP ON ERROR 

95 SW08 LOOP ON TEST IN SW07-00 
96 

97 THE LOW ORDER 8 SWITCHES (Sw07-SW00), ARE USED IN CONJUNCTION WITH 

98 SW08 TO SPECIFY THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL 

99 LOOP ON. 
100 

101 
'02 

105 3,3 STARTING 

104 

105 THE PROGRAM MAY BE STARTED AT LOCATION 200 OR 204. STARHNG AT 

106 200 WILL BE THE NORMAL STARTING ADDRESS. STARTING AT 204 WILL ENABLE 

107 THE RH/RM BASE ADDRESS ^0 BE CHANGED. IF RUNNING IN A STAND-ALONE 

108 ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW THE OPERATOR 
'09 TO CONTROL TEST CONDITIONS. 

no 

Ml 

"2 

3.4 HALTING 
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]li „ THE PROGRAM CAN BE HALTED 8Y TYPING CONTROL C FROM THE CONSOLE OR 

^ 8V PRESSING THE HALT SWITCH ON THE PROCESSOR fRONT PANEL. 

119 

3.5 RESTARTING 

THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEfc SECTION 3.3> 

124 
125 

]|6 4.0 OPERATOR INTERFACE 

128 4.1 PROGRAM ID 
129 

T|0 THE PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME IT 

152 \f t5e''M'5? gfi^^R^^S?''^- ''^'"'^ IDENTIFICATION DOES NOT OCCUR 

134 

135 

]56 4.2 CONSOLE DIALOGUE 

Ml _ ^^^^^1^ THE PROGRAM IS RUNNING IN STAND ALONE MODE. IT ENTERS A 

59 CONSOLE DIALOGUE SEONENCE AFTER TYPING THE PROGRAM I.d'. 

\j\ THE FIRST QUESTION TYPED OUT IS: 'TYPE HELP TEXT (1) N 

Iji IF THE OPERATOR RESPONDS WITH A "V". THE PROGRAM WILL TYPE A BRIEF 

HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS. ETC. ANY OTHER RESPONSE 
Yli TO THE QUESTION IS CONSIDERED A 'M" AND NO HELP TEXT IS TYPED. THIS 

itt suIsequentItart-Jp's'?^'' ^ ^"^^'''^ ^^'^^ ^ °~ 

',^1 «2^!'„IyL''S°°''^ INITIAL START AND WHEN RESTARTING AT LOCATION 204. 

THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING 
DIALOGUE. 

J 52 EXAMPLE 1 

\li RMCS1=17"6700 <CR> ;N0 CHANGE IN ADDRESS 

RMVEC=000254 <CR> ;N0 CHANGE IN ADDRESS 

. EXAMPLE ? 

RMCS1 =176700 177200<CR> .'CHANGE BASE ADDRESS TO 177200 
,°9 RMVEC=000254 260<CR> .-CHANGE VECTOR ADDRESS TO 260 

1^1 ON THE INITIAL START. THE NEXT QUESTION TYPED IS. 'TYPE "A" TO 

TEST ALL DRIVES. OR TYPE DRIVE NUMBERCS) AND TERMINATE INPUT WITH 
A CARRIAGE RETURN'. THEN, 'DRIVEfS):* IS TYPED AND WAITS FOR THE 
OPERATOR TO TYPE AN "A". TO TEST ALL POSSIBLE DRIVES OR TYPE ANY 
2? STRING OF DRIVE NUMBERCS) TO BE TESTED AND TERMINATE THE INPUT WITH A 

"CARRIAGE RETURN". NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN 
Iz-, ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA 

Aj SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUI^BER. ON ALL SUBSEQUENT 

STARTS. ONLY THE 'DRIVE(S):' PROMPT IS TYPED. 



SEO 0005 
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THE OJAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE 
DRIVES WHICH U/HERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING 
IS AN EXAMPLE PRINTOUT: 

'UNIT STATUS: 

0 ONLINE RM03 

1 LOAD DEVICE 

2 OFFLINE RM05 

3 NOT PRESENT 

4 NO* PRESENT 

5 NOT AN RM05/3/2 

6 NOT PRESENT 

7 NOT PRESENT' 

THE ABOVE UNIT STATUS SHOWS THAT DRIVE 0 WILL BE TESTED, WHILE DRIVES 
1 - 7 WILL NOT BE TESTED. 

THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON THE STATUS 
OF THE DRIVE: 

•DRIVE(S) TO BE TESTED, 0' 

IF NO DRIVES ARE AVAILABLE FOR TESTING THE FOLLOWING MESSAGE WILL BE 
TYPED TO THE OPERATOR: 

'DRIVE (S) TO BE TESTED, NONt ' 

THE PROGRAM WILL THEN, EITHER START TESTING THE DRIVES AVAILABLE FOR 
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT. 

ONCE THE DRIVES START TESTING, THE FOLLOWING MESSAGE WILL OCCUR 
AS EACH DRIVE BEGINS TO BE TESTED: 

•DRIVE 0' 

AFTER ALL THfc DRIVES ARE COMPLETELY TESTED. THE END OF PASS 
MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START 
TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM 
IS HALTED BY THE OPERATOR. 

NOTE: THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE 
OF RESPONSE REQUIRED BY THE USER. D-DECIMAL. O-OCTAL AND 
L=LETTER. 



4.3 PROGRESS REPORTS 

AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM IS EXECUTED 
FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS. 



•END OF PASS 



1 



THE FOLLOWING MESSAGE WILL ALSO OCCUR IF THERE WERE ERRORS SINCE 
THE LAST END OF PASS REPORT. 



•TOTAL ERRORS SINCE LAST REPORT 



0' 
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4.4 PERFORMANCE REPORT 

NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF Tne 
PROGRAM. 



4.5 PROGRAM HALTS 

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
PROCESSOR HAlTS ARE DUE TO THE TRAP CATCHER. 



4.6 ERROR REPORTS 

THE FIRST LINE OF THE ERROR REPORT CONTAINS THE fJUMBER OF THE 
UNIT f DRIVE) BEING TESTED. THE DRIVE TVPE. THE TEST NUMBER, THE ERROR 
NUMBER AND THE VALUE OF THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. 
THIS LINE IS FOLLOWED BY THE ERROR MESSAGE: ONE OR MORE LINES OF TEXT 
WHICH GIVE A BRIEF. YET COMPREHENSIVE DESCRIPTION OF THE ERROR. THE 
ERROR MESSAGE IS NORMALLY FOLLOWED BY ONE OR MORF PAIRS OF LINES 
CONTAINING DATA HEADERS AND DATA PERTININENT TO THE ERROR. INCLUDING 
EXPECTED AND ACTUAL TEST RESULTS. 

THE FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THJS PROGRAM: 

DRVXr 0 - RM03. TEST# 14. ERR* 326. PC =016654 
MASS8US DATA BUS PARITY ERROR 'WDPE" (RMCS2. BIT 8) DETECTED 
DURING WRITE COMMAND 
EXPEC^D 

040300 
RMCS1 
144252 
RMWC 
177405 
RMMR1 
000010 

4.7 EXECUTION TIME 

PASS 1 OF THE PROGRAM TAKES ABOUT 20 SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 1 MINUTES 40 SECONDS. 

5.0 ENVIRONMENTAL SUPPORT 

5.1 PROCESSOR COMPATIBILITY 

THE PM05/3/2 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON ANY PDP-H 
PROCESSOR. PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 
MET, AND PROVIDING THAT DATA THROUGHPUT ON THE SYSTEM IS SUFFICIENT TO 
SUSTAIN DATA TRANSFER OPERATIONS. 
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5.2 DUAL PORT CON*" J CURAT IONS 

THF RM05/3/2 SUBSYSTEM FUNCTIONAL TEST DOES NOT SPECIflCAcLY TEST 
DUAL PORT LOGIC IN THE RM05/3/2 ADAPTER BUT IS EXECUTABLE ON 
RM05/3/2 SUBSYSTEMS HAVING THE DUAL PORT OPTION PROVIDING THf DUAL 
PORT SWITCH IS SET TO THE APPROPRIATE PORT (A OR B). 



5.3 MEMORY PARITY HARDWARE 

MEMORY PARITY HARDWARE IS NOT USED DURING THE 
RM05/3/2 SUS8YSTEM FUNCTIONAL TEST. 



EXECUTION OF THE 



5.4 MEMORY MANAGEMENT HARDWARE 

MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RM05/3/2 
SUBSYSTEM FUNCTIONAL TEST. CAPABILITIES OF THE MASS8US CONTROLLER. 



5.5 ACT11. APTII COMPATIBILITY 

THE RM05/3/2 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH ACT11 
AND APT11 IN BOTH DUMP AND AUTOMATIC MODES. FURTHER. THE PROGRAM 
WILL EXECUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK 
VERIFY MODE. 



5.6 XXDP COMPATIBILITY 

THE RM05/3/2 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP IN 
DUMP AND CHAIN MODES, AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE 
THE RM05/3/2 IS THE XXDP ..OADING DEVICE. 



5.7 OPERATING SYSTEM COMPATIBILITY 

THE PROGRAM IS NOT COMPATIBLE WITH ANY SOFTWARE OPtRATING SYSTEM. 

6.0 ^EST DESCRIPTION 



'EST 1 CONTROLLER ACCESS TEST 
PURPOSE : 
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TO VERIFY THAT THE UNI8US ADDRESS OF THE 
CORRECT. AS DEFINED AT LOCATION $8ASE. 

PROCEDURE : 



SUBSYSTEM IS 



THE TEST TRIES TO ACCESS ALL MASS8US CONTROLLER REGISTERS 
USING THE $8ASE ADDRESS. REGISTER CONTENTS ARE IGNORED DURING 
THE TEST. AND THE TEST FAILS IF A BUS TIMEOUT OCCURS FOR ANV 
REGISTER TRANSFER. 

IF THE TEST FAIl S AND THE PROGRAM IS RUNNING IN A STAND 
ALONE ENVIRONMENT. I.E., lOCATION 42 IS 0, THE PROGRAM WILL JUMP 
TO LOCATION 204 WHICH ALLOWS THE OPERATOR TO CHANGE THE $8ASE 
ADDRESS VIA CONSOl E DIALOGUE. OTHERWISE. THE PROGRAM ESCAPES TO 
THE END OF PASS HANDLER. 



TEST 2 UNI8US INITIALIZE TEST 
PURPOSE : 

TO VERIFY THAT ALL APPLICABLE SUBSYSTEM REGISTERS ARE 
INITIALIZED BY THE RESET INSTRUCTION. 

PROCEDURE : 

NONZERO VALUES ARE WRITTEN IN EACH APPLICABLE REGISTER. A 
RESET INSTRUCTION IS EXECUTED. AND THE REGISTERS ARE TESTED TO 
INSURE THEY WERE INITIALIZED. THIS TEST IS DONE ONCE BECAUSE Of 
APT COMPATIBILITY REQUIREMENTS. 

THE FOLLOWING REGISTERS ARE PRESET BEFORE THE INITIALIZE 
OCCURS: 

RMCSl - 003577 

RMBA - 777776 

RMCS2 - 021037 

RMERl - 777777 

RMER2 - 777777 

RMMR - 040001 

IN ADDITION. THE DATA BUFFER IS USED TO FORCE DlT.TRE.SC AND OR 

TO A ONE AND TO FORCE IR TO A ZERO. 
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TEST 3 CONTROLLER CLEAR TEST 
PURPOSE : 

TO VERIFY THAT APPLICABLE SUBSYSTEM 
INITIALIZED BY A "CONTROLLER CLEAR" OPCRATION. 

PROCEDURE : 



REGISTERS ARE 



LIKE THE UNI8US INITIALIZE TEST, THIS TEST WRITES NONZERO 
VALUES IN THOSE REGISTERS WHICH ARE INITIALIZED BY CONTROLLER 
CLEAR. THE SUBSYSTEM IS THEN CLEARED USING A CONTROLLER CLEAR, 
IE BIT 5 OF CONTROL STATUS REGISTER 2 (RMCS2) , AND EmCH 
REGISTER IS READ TO INSURE IT WAS CLEARED. 



TEST 4 ERROR CLEAR TEST 
PURPOSE : 

TO VERIFY THAT ALL APPLICABLE RH MASS8US CONTROLLER STATUS 
AND ERROR CONDITIONS ARE INITIALIZED BY AN ERROR CLEAR OPERATION. 

PROCEDURE : 

AN "RH ERROR CLEAR" OPERATION. I.E., WRITING A ONE IN TRE, 
BIT 14 OF RMCS1 WILL CLEAR THE FOLLOWING STATUS BITS: 

.TRE. BIT 14 OF RMCS1 

.MCPE. BIT 13 0«^ RMCS1 - READ ONLY 

.DLT, BIT 15 OF RMCS2 - READ ONLY 

.WCE, BIT 14 OF RMCS2 - READ ONLY 

• UPE, BIT 13 OF RriCS2 

.NED, BIT 12 Of RMCS2 - READ ONLY 

.P6E. BIT 10 OF RMCS2 - READ ONLY 

.MXF, BIT 09 OF RMCS2 

.MDPE. BIT 08 OF RMCS2 - READ ONLY 

THE TEST SETS JPE AND MXP STATUS BITS. THEN SETS TRE( ERROR 
CLEAR) AND VERIFIES THAT ALL THE ABOVE STATUS BITS ARE CLEARED. 



L 1 
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TEST 5 DRIVE STATUS TEST 
PURPOSE : 

TO VERIFY THAT THE STORAGE MODUlE DISK DRIVE IS IN A STATF 
THAT PtRMjTS FURTHER TESTING. 

PROCEDURE : 

THIS TEST INITIALIZES THE MASS8US AND EXAMINES STATUS OF THE 
SELECTED DEVICE FOR THE FOLLOWING CONDITIONS: 

MOL. BIT 12 OF RMDS =1, INDICATING THAT UNIT READY IS 
ASSERTED BY THE DRIVE; 

WRL BIT 11 OF RMDS =0, INDICATING THAT THE DRIVE IS NOT IN 
A WRFE PROTECT STATE; 

DVC, BIT 07 OF RMER3 =0. INDICATING DRIVE FAULT IS 
UNASSERTED BY THE DRIVE; 

UNS BIT 14 OF RMER1 SHOULD EQUAL DVC, OTHERWISE AC POWER 
IS LOW OR A FAILURE HAS OCCURRED WITH UNSAFE STATUS. 



TEST 6 PRIMARY/SECONDARY ERROR TEST 
PURPOSE : 

TO VERIFY THAT THE RM05/3/2 CAN EXECUTE A COMMAND WITHOUT 
INCURRING UNEXPECTED ERRORS. 

PROCEDURE: 

THE TEST EXECUTES A PACK ACKNOWLEDGE COMMAND AND MAKES SURE 
THAT GO RESETS AND THAT THERE ARE NO PARITY ERRORS. ETC. VOLUME 
VALID STATUS IS IGNORED. 



TEST 7 DIAGNOSTIC MODE TEST 
PURPOSE : 

TO VERIFY THAT MAINTENANCE HARDWARE IS OPERATIONAL. 
PROCEDURE: 

THE TEST THAT DIAGNOSTIC MODE CAN BE SET AND RESE" ^^THEN 
VERIFIES THAT 'WOL. PIP, WRL. SKI, AND DVC" CAN BE CON.ROLLED 
USING MAINTENANCE REGISTER 1. 
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TEST 10 PACK ACKNOWLEDGE TEST 
PURPOSE : 

TO VERIFY THAT VOLUME VALJD CAN BE SET BY A PACK ACKNOWLEDGE 
C0(»f1AND. LENDING CREDENCE TO THE EXECUTION OF THE COMMAND AND TO 
THE STABILITY OF THE UNIT READY SIGNAL FROM THE DRIVE. 

PROCEDURE: 

A PACK ACKNOWLEDGE COMMAND IS ISSUED TO THE SELECTED DEVICE 
AND VOLUME VALID STATUS. BIT 10 OF RMDS. IS CHECKED FOR ONE. 



TEST 11 RECALIBRATE TES^ 
PURPOSE : 

THE PRIMARY PURPOSE IS TO ASCERTAIN THAT THE DRIVE WILL 
EXECUTE A RECALIBRATE OPERATION TO THE EXTENT THAT "PIP" AND 
"SKI" STATUS BECOME UNASSERTED AT THE COMPLETION OF THE 
RECALIBRATE. THE SECONDARY PURPOSE IS TO PUT THE DRIVE IN A 
KNOWN STATE SO THAT FURTHER TESTS CAN CHECK FOR UNEXPECTED STATE 
CHANGES IN THE DRIVE. 

PROCEDURE: 

THE RECALIBRATE TEST PRESETS THE DISK ADDRESS REGISTER. 
RMDA. AND THE DESIRED CYLINDER REGISTER, RMDC. TO ZERO. THEN 
EXECUTES A RECALIBRATE COMMAND. THE TEST VERIFIES THE FOLLOWING 
CONDITIONS; 



.SKI=:0. "SEEK ERROR" IS INACTIVE; 

.PIP=0. 'ION CYLINDER" IS ACTIVE. 
"POSITIONING IN PROGRESS" BEING INACTIVE; 



AS INDICATED BY 



.lAE-O. NO "INVALID ADDRESS ERROR" DURING RECALIBRATE; 

.OPI-O. NO '10PERATION INCOMPLETE ERROR", INDICATING THAT 
THAT THE DRIVE WAS READY AT THE START OF THE COMMAND AND THAT ON 
CYLINDER STATUS WENT INACTIVE WHEN THE DRIVE RECEIVED THE 
COMMAND; 

.ATA 1, ATTENTION IS SET BY RECALIBRATE. 
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TEST 12 ABORT RECALIBRATE TEST 



TO VERIFY THAT THE ««p5/5/2 INHIBITS A RECALIBRATE ^\ AN 



ABORT CONDITION EXISTS AT THE START Of THE CONNAND. 



^76 

5/8 PROCEW^E : 

YSi THE TEST SETS AN ERROR IN THE ERROR ;«GISTER AND ISSUES 

RECALIBRATE COHHAND. VERIFVING THAT 'T'lP" REMAINS INACUVE. 

53* 
$8! 
S84 

587 TEST 13 IVC RECALIBRATE TEST 

589 PURPOSE: 

t2? TO VERIFY THAT INVALID COMMAND STATUS, BIT 12 OF RMER2. SETS 

592 WHEN VOLIME VALID IS INACTIVE DURING A RECALIBRATE COMWAND. 

594 PROCEDURE: 

^96 THE PROGRAM SETS AND RESETS DIAGNOSTIC MODE WHICH CAUSES 

VOLUME VALID. BIT 6 OF RMDS TO RESET. THE PROGRAM TMEN EXECUTES 

Hi A RECALIBRATE COfWWD AND VERIFIES THAT -iVC" STATUS SETS AND 

599 THAT 'PIP" REMAINS INACTIVE. 

600 
601 
60^ 
605 

60S TEST U lAE RECALIBRATE TEST 

(i07 PURPOSE: 

JS| TO VERIFY THAT INVALID ADDRESS ERROR DOES NOT SET DURING A 

ftlO RECALIBRATE COMMAND . 

JJJ PROCEDURE: 

t\l THE TEST PRESETS TH£ DISK ADDRESS (RMOA) ,ANO THE DESIRED 

VA CYLINDER ADDRESS (RMDO TO ILLEGAL VALUES AND ^ISSUES, A 

RECAuIraTE COMMAND, VERIFYING THAT "lAf" DOfS NOT SET DURING THE 

COMMAND. 

o18 
^.W 



TEST 15 RECALIBRATE AT OFFSET 
PURPOSE: 

TO VtRIFV THAT OFFSET MODE DOES N0» AFffCT RfrAlIBKAl', 



B 2 

628 
630 

631 T*€ TEST EXECUTES MN OFfSET COmWiD. T»<N EXECUTES A 

632 DECALISRATE CCfVUMD MC VERIFIES THAT T*<RE ME SO EfNtORS DURING 
65? R£t*Li9R*T£, 

*n 

659 '£S» 1o ORI/E CLEAR TEST 
640 

W1 Pl^POSE: 

6<.T TO VERIFY THAT ALL APPLlCAa.E W105/5/2 NASS8US ADAPTER ERROR 

644 AMD STATUS CONDITIONS ARE IMTIALIZED BY A "DRIVE CLEAR" COWANO. 
645 

646 PROCEDURE : 
647 

648 THIS TEST WRITES ONES IN THOSE NASS8US ADAPTER BITS WHICH 

6/i'> ARE INITIALIZED BY DRIVE CLEAR . THEN ISSUES THE DRIVE CLEAR 

600 COPfMND AND VERIFIES THAT EACH BIT IS CLEARED. ADDITIONALLY. 

6M REGISTERS WHICH ARE NOT AFFECTED BY 'DRIVE CLEAR" ARE ALSO PRESET 

iiSi AND VERIFIED. 

6S4 THE FOLLOWING ITEMS ARE PRESET: 
65S 

kSh .K«ER1. ERROR REGISTER 1 IS SET TO All ONES; 
657 

658 .OW. DIAGNOSTIC MODE IS SET; 
6Ss» 

660 .Rf1ER2, ERROR REGISTER 3. IS SET TO ALL ONES. 
661 

66? FOLLOWING THE DRIVE CLEAR COMMAND. THE FOLLOWING ITEMS ARE 

663 CHECKED; 

664 

665 .RMCS1. IS CHECKED fOR DVA=1, F0-F4 AND G0=0. ALL OTHER BITS 

666 ARE DONT CARES; 
667 

668 .RMDS. IS CHECKED FOR 0. EXCEPT F0« MOL.DPR.DRY, AND VV 

ei6<» WHICH SHOULD BE ONE. AND PGM WHICH IS A DONT CARE. 
670 

671 .RMER1. IS CHECKED FOR 0; 
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672 
67! 



.RMAS. IS CHECKED TO INSURE THE APPROPRIATE ATA BIT IS 0; 
674 

675 .RMMR, IS CHECKED FOR C. EXCEPT FOR WORD CLOCK, LAST SECTOR, 

676 AND LAST SECTOR AND TRACK WHICH ARE DONT CARES; 
677 

678 .RMMR2 IS CHECKED FOR 0. EXCEPT FOR THE TEST BIT WHICH IS 

679 (M. AND REOA. REQB WHICH ARE DONT CARES; 
680 

68T .RMEC2 IS CHECKED FOR 0; 



683 .RMER3 IS CHECKED FOR 0; 

684 
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740 
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TES^ 17 NOP TEST 
PURPOSE : 

TO VERIFY THE EXECUTION OF "hiQP" COMMAND. 
PROCEDURE: 

A NOP COMMAND IS EXECUTED ON THE SELECTED DEVICE AND STATUS 
IS CHECKED TO VERIFY THAT THERE WERE NO ERRORS OR UNEXPECTED 
CHANGES IN STATUS. 



TEST 20 JFFSET TEST 
PURPOSE : 

TO VERIFY THE EXECUTION OF "OFFSET" COMMAND. 
PROCEDURE : 

THE OFFSET COMMAND IS EXECUTED AND THE PROGRAM CHECKS THAT 
OFFSET STATUS. BIT 0 OF RMDS IS SET AND THAT ATTENTION. BIT 15 OF 
RMDS IS ALSO SET. ADDITIONALLY, CONTROLLER, ADAPTER. AND DRIVE 
STATUS IS CHECKED FOR UNEXPECTED CHANGES. 



TEST 21 GO/ATA TEST 
PURPOSE : 

TO VERIFY THAT "ATA" WILL RESET WITH "GO" PROVIDING 
COMPOSITE ERROR IS INACTIVE. 

PROCEDURE : 

ATTENTION, BIT 15 OF RMDS, IS SET USING AN OFFSET COMMAND 
AND RESET USING A NOP COMMAND. 



TEST 22 WRITE ATA TEST 
PURPOSE : 
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TO VERJFr THAT ATTENTION CAN 
ATTENTION SUMMARY REGISTER. RMAS. 

PROCEDURE : 



BE RESET BV WRITING THE 



ATTENTION IS SET USING AN OFFSET COMMAND AFTER WHICH THE 
PROGRAM WRITES A 0 IN THE ATTENTION SUMMAf<^ REGISTER, VERIFYING 
THT ATTENTION REMAINS SET. FOLLOWING THAT, THE PROGRAM WRITES A 
1 IN RMAS AND VERIFIES THAT ATTENTION RESETS. 



TEST 23 ERROR/ATA TEST 
PURPOSE : 



TO VERIFY THAT "GO" DOES NOT RESET 
COMPOSITE ERROR. 

PROCEDURE: 



"ATA" WHEN THERE IS A 



"ATA" IS SET WITH AN OFFSET COMMAND AFTER WHICH ONE OF THE 
ERROR BITS IS SET. THE PROGRAM THEN ISSUES A NOF> COMMAND AND 
VERIFIES THAT THE ATTENTION BIT REMAINS SET. 



TEST 24 PROGRAM INTERRUPT TEST 
PURPOSE: 

TO VERIFY THAT THE SUBSYSTEM WILL GENERATE A PROGRAM 
INTERRUPT WHEN PROCESSOR PRIWITY IS LESS THAN CONTROLLER 
PRIORITY AND INTERRUPT IS ENABLED. 

PROCEDURE : 

ATTENTION IS SET USING AN OFFSET COMMAND. WITH INTERRUPT 
ENABLED AND PROCESSOR PRIORITY SET BELOW CONTROLLER PRIORITY. THE 
PROGRAM VERIFIES THAT A PROGRAM INTERRUPT OCCURS. 



TEST 25 INHIBIT INTERRUPT TEST 
PURPOSE : 

TO VERIFY THAT A PROGRAM INTERRUPT DOES NOT OCCUR WHEN (1) 
PROCESSOR AND CONTROLLER PRIORITY ARE THE SAME AND INTERRUPT IS 
ENABLED OR (2) WHEN PROCESSOR PRIORITY IS LESS THAN CONTROLLER 
AND INTERRUPTS ARE NOT ENABLED. 
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PROCEDURE : 

ATTENTION JS SET USING AN OFFSET COMMAND WITH THE PRJORITV 
OF THE PROCE5>50R SET EQUAL TO THE PRIORITY Of THE lOWTROLLER. 
INTERRUPT IS ENABLED AND THE TEST VERIFIES THAT A PROGRAM 
INTERRUPT DOES NOT OCCUR. INTERRUPTS ARE LISA8LED AND PROCESSOR 
PRIORITY IS LOWERED AND THE TEST VERIFIES THAT A PROGRAM 
INTERRUPT DOES NOT OCCUR. 



TEST 26 RETURN TO CENTERLINE TEST 
PURPOSE : 

TO VERIFY THE EXECUTION OF 'T»ETURN TO CENTERLINE" COMMAND. 
PROCEDURE: 

THIS TEST ISSUES AN RTC COMMAND AND VERIFIES THAT OFFSET 
STATUS. BIT 0 OF RMDS IS RESET AND THAT ATTENTION, BIT 15 Of RMDS 



IS SET. 



UNEXPECTED STATUS OR ERROR CONDITIONS ARE ALSO VERIFIED. 



TEST 27 READ IN PRESET TEST 
PURPOSE : 

TO VERIFY THE EXECUTION OF "REAJD IN PRESET" COMMAND. 
PROCEDURE: 

THIS TEST LOADS NON ZERO VALUES IN THOSE ADAPTER REGISTERS 
WHICH ARE INITIALIZED BY THE READ IN PRESET COMMAND. THEN 
EXECUTES THE COMMAND AND VERIFIES THE CONTENTS OF EACH REGISTER. 
THE FOLLOWING REGISTERS ARE CHECKED: 

.RMDA, THE DISK ADDRESS REGISTER. IS LOADED WITH ALL 

ONES AND VERIFIED TO BE ZERO AFTER THE RIP COMMAND; 

.RMDC. THE DESIRED CYLINDER REGISTER. IS LOADED WITH 

ALL ONES (001777) AND VERIFIED TO BE ZERO AFTER THE RIP COftWND; 

.RMOF. THE OFFSET REGISTER. IS F ES£T (TO-016200) AND 

VERIFIED TO BE ZERO AFTER THE TEST; 



TEST 30 RMDC CLEAR OFFSET TEST 
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PURPOSE : 

TO VERIFV THAT WRITING THE DESIRED CYLINDER REGISTER (RMDC) 
WILL CLEAR OFFSET MODE. 

PROCEDURE : 

OFFSET MODE IS SET USING THE OFFSET COMMAND, THEN RESET BV 
WRITING RMDC. 



TEST 31 ILLEGAL FUNCTION TEST 
PURPOSE : 

TO VERIFY THAT THE RM05/3/2 SUBSYSTEM DETECTS ALL ILLEGAL 
FUNCTIONS. 

PROCEDURE: 

EACH ILLEGAL FUNCTION CODE IS EXECUTED WITH THE PROGRAM 
VERIFYING THAT "ILLEGAL FUNCTION" STATUS. BIT G OF RMERl IS SET 
FOR EACH CODE. ^HE SUBSYSTEM IS INITIALIZED PRIOR TO EACH 
ILLEGAL FUNCTION TEST. 



TEST 32 INVALID COMMAND TEST 
PURPOSE : 

TO VERIFY IVC ERROR DETECTION. 
PROCED'JRE: 

THE TEST RESETS VOLUME VALID USING MAINTENANCE 'JNIT READ*. 
THEN EXECUTES A NOP CCWAND AND VERIFIES THAT IVC IS SET. THE 
PROCESS IS REPEATED FOR EACH FUNCTION CODE. WITH JVC BEING 
CHECKED ACCORDING TO THE FUNCTION. 



^EST 33 INVALID ADDRESS ERROR TEST 
PURPOSE : 

TO VERIFY lAE ERROR DETECTION. 
PROCEDURE : 
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THE TEST EXECUTES EACH FUNCTION CODf Wj TH RMDA. AND WDC SET 
TO ILLEGAL ADDRESSES. AND VERIFIES lAE ACCORDING TO THE FUNCTION. 



TEST 34 WRITE LOCK ERROR TEST 
PURPOSE : 

TO VERIFY WLE ERROR DETECTION. 
PROCEDURE : 

THE TEST SIMULATES WRITE PROTECT USING MAINTENANCE WRITE 
PROTECT AND VERIFIES WLE ACCORDING TO THE FUNCTION BEING 
EXECUTED. EACH FUNCTION CODE IS TESTED. 



TEST 35 ERROR A80RT TESTS 
Pl'^JPOSE : 

TO TEST COMMAND EXECUTION DURING AN ABORT CONDITION. 
PROCEDURE : 

EACH FUNCTION CODE IS EXECUTED UNDER A SIMULATED UNSAFE 
CONDITION AND THE TEST VERIFIES THAT GO IS RESET. 



TEST 36 RMR TEST 
PURPOSE : 

TO VERIFY THAT RMR ERROR IS DETECTED. 
PROCEDURE : 

THE TEST EXECUTES A NOP COMMAND WITH DEBUG CLOCK EKA^LED. 
WITH GO SET, THE TEST WRITES RMCSI. VERIFYING THAT RMR ERROR 
SETS. 



TEST 37 PARPY ERROR TEST 
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•^x Purpose : 

9^2 TO VERIfr THAT PARJTr ERRORS ARE DETECTED. 

97? 

PROCEDURE: 

975 

976 WITH PAT SET TO CAUSE BAD PARITY ON THE COMTROL BUS, THE 

977 > TEST WRITES A SHIFTING ONE BIT PATTERN TO RMDA AND VERIFIES THAT 

978 AN ERROR IS DETECTED BY THE RM05/3/2 FOR EACH PATTERN. 
979 

980 
981 
982 
983 

98A TEST 40 ILLEGAL REGISTER TEST 

98S 

986 PURPOSE : 

987 

988 TO VERIFY THE DETECTION OF ILLEGAL REGISTER ADDRESSES 8Y THE 

989 SUSSSrSTEM. 
990 

991 PROCEDURE: 
992 

993 EACH REGISTER ADDRESS IS ACCESSED AND ILLEGAL REGISTER 

994 STATUS, BIT 1 OF RMER1 IS CHECKED ACCORDING TO THE ADDRESS USED. 

995 NOTE THAT THE EXECUTION OF THIS TEST IS DEPENDENT ON THE REGISTER 

996 ADDRESS JUMPER IN THE RH CONTROLLER BECAUSE THE RANGE OF 
99'' ADDRESSES WHICH THE CONTROLLER WILL RESPOND TO IS LIMITED BY THE 
998 WAY THE JUMPER IS CUT. 

999 
1000 
lOOl 
1002 
1003 

1004 SEEK TESTS (41 - 67) 

1005 

1006 PURPOSE: 
1007 

1008 THE PURPOSE OF EACH OF THE FOLLOWING SEEK TESTS IS TO VERIFY 

1009 THE EXECUTION OF SEEK OPERATIONS BY THE RM05/3/2 SUBSYSTEM USING 

1010 A SET OF ADDRESSES THAT TEST THE ADAPTER/DEVICE INTERFACE AND 

1011 ELECTROMECHANICAL HEAD POSITIONING HARDWARE. 
10V 

1013 PROCEDURE: 
1014 

1015 EACH TEST WILL RECALI3RATE THE DRIVE IF "PIP" OR '"SKI" IS 

1016 ACTIVE. FOLLOWING THAT, THE TEST EXECUTES A SEEK TO A CYLINDER 

1017 ADDRESS OR SERIES OF ADDRESSES. AT THE COMPLETION OF EACH SEEK 

1018 OPERATION. SUBSYSTEM STATUS IS STORED AND THE TEST CHECKS FOR 

1019 PRIMARY ERRORS WHICH PRECLUDE FURTHER ERROR CHECKING. IF THERE 

1020 ARE NO PRIMARY ERRORS THE TEST CHECKS FOR OPERATIONAL ERRORS AND 

1021 THEN SECONDARY ERRORS. 
1022 

1023 
1024 
^025 
'026 
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TEST 41 SiBK TO FIRST CYLINDER TEST 

THIS TEST SEEKS TO THE FIRST CYLIMDER. I.E. CrUNDER 0. 



^EST 42 SEEK TO LAST CYLINDER TEST 

' THIS TEST SEEKS TO THE LAST CYLINDER. I.E., CYLINDER 822. 



TEST 43 SEEK PRIWE CYLINDERS TEST 

THIS TEST SEEKS FORWARD '"0 EACH PRI!>1E CYLINDER ADDRESS, I.E. 
CYLINDERS 1. 2, 4. 8. 16, 32. 64. 128. 256, AND 512. 



TEST 44 SEEK ZERO DIFFER|NCE TEST 

THIS TEST EXECUTES SUCCESSIVE SEEKS TO CYLINDER 0. 



TEST 45 SEEK MAXIMUM DIFFERENCE FORWARD 

THIS TEST DOES A RECALIBRATE COMMAND. REGUARDLESS OF THE 
CONDITION OF "PIP" OR "SKI", AND THEN EXCUTES A SEEK TO THE LAST 
CYLINDER. 



TEST 46 SEEK ADJACENT FORWARD TEST 

THIS TEST SEEKS TO CYLINDER 0. FOLLOWED BY A SEEK TO THE 
ADJACENT FORWARD CYLINDER, I.E.. CYLINDER 1. 



TEST 47 SEEK ADJACENT REVERSE TEST 

THIS TEST SEEKS '0 CYLINDER 1. FOLLOWED BY A SEEK TO THE ADJACENT 
REVERSE CYLINDER, I.E., CYlINDER 0. 



J 2 

CZWOWBO RM05/5/2 fCTNL TST 1 MACRO V04.00 4-APR-81 11:«.3:28 PAGE 3-19 



■f u 



108A 

'085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

109A 

1095 

1096 

1097 

1098 

1099 

-100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

11K 

111!) 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1151 

1132 

1133 

1134 

1135 

1136 

1157 

7138 

1139 

1140 



TEST 50 SEEK TO INVALID SECTOR TEST 

WITH THE OFFSET REGISTER SET FOR 18 BIT FORI^T, THE PROGRAM 
SEEKS TO CYLINDER 0. TRACK 0, FOR EACH INVALID SECTOR ADDRESS AND 
VERIFIES THAT INVALID ADDRESS ERROR SETS FOR FACH SECTOR. THE 
TEST IS REPEATED FOR 16 BIT FORMAT. 



TEST 51 SEEK TO INVALID TRACK TEST 

THE TFST SEEKS TO EACH INVALID TRACK ADDRESS WITH CYLINDER 
AND SECTOR ADDRESS SET TO 0 AND VERIFIES THAT INVALID ADDRESS 
ERROR SETS FOR EACH TRACK ADDRESS. 



TEST 52 SEEK TO INVALID CYLINDER TEST 

THE PROGRAM SEEI^S TO EACH INVALID CYLINDER ADDRESS WITH THE 
SECTOR AND TRACK ADDRESS SET TO 0 AND VERIFIES THAT INVALID 
ADDRESS ERROR SETS FOR EACH CYLINDER ADDRESSS. 



TEST 53 IVC SEEK TEST 
PURPOSE : 

TO VERIFY THAT INVALID COMMAND STATUS. BIT 12 OF RMfR2 SETS 
WHEN VOLU^IE VALID IS INACTIVE DURING A SEEK COMMAND. 

PROCEDURE: 

THE TEST RESETS VOLUME VALID BY SETTING AND RESETTING 
DIAGNOSTIC MODE. THEN EXECUTES A SEEK COMMAND AND VERIFIES THAT 
"IVC" STATUS IS SET. 



TEST 54 ABORT SEEK TEST 
PURPOSE : 

TO VERIFY THAT THE RM05/3/2 INHIBITS A SEEK UHEN AN ABORT 
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CONDITION EXISTS AT 'HE START OF THE COMMAND. 
PROCEDURE: 

THE TEST SETS AN ERROR IN IHE ERROR REGISTER AND ISSUES A 
SEEK COMMAND, VERIFYING THAT 'T»IP" REMAINS INACTIVE. 



TEST 55 SEEK AT OFFSET 
PURPOSE : 

TO VERIFY THAT OFFSET MODE DOES NOT CAUSE ERRORS DURING 

SEEK. 

PROCEDURE: 

THE TEST EXECUTES AN OFFSET COMMAND THEN EXECUTES A SEEK 
COMMAND. VERIFYING THE RESULTS OF THE SEEK. 



TEST 56 LOOK AHEAD TEST 
PURPOSE ; 

TO INSURE THAT THE SECTOR COUNT WHICH ORIGINATES AT THE 
DRIVE AND IS VISIBLE THROUGH THE LOOK AHEAD REGISTER (RMLA) IS 
OPERATIONAL. 

PROCEDURE ; 

WITH THE OFFSET REGISTER SET FOR 18 BIT FORMAT. THE PROGRAM 
SAMPLES THP LOOK AHEAD REGISTER AND COLLECTS EACH DIFFERENT 
SAMPLE UNTIL THE VALUE OF THE FIRST SAMPLE IS DETECTED OR UNTIL 
31. SAMPLES ARE TAKEN. THE COLLECTION IS THEN TESTED TO DETERMINE 
THAT THE SECTOR COUNT INCREMENTS CORRECTLY THROUGH THE ENTIRE 
RANGE OF VALID SECTORS. THE SAME PROCEDURE IS REPEATED FOR 16 
BIT FORMAT, WHERE THE LIMIT ON THE NUf«ER OF SAMPLES IS 33. 



TEST 57 SEARCH ON CYLINDER 
PURPOSE ; 

TO VERiry THE EXECUTION OF SEARCH OPERATIONS WITH NO HEAD 
MOnON USING THE SECTOR PULSE FOR SfcCTOf< COMPARE. 
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PROCEDURE: 

THE TEST INTIALI2ES AND RECALi8RATES THE DRIVE H "PIP'' OR 
■•SKI" IS ACTHE THEN SEEKS TO CYLINDER 0. THE TEST THEN DOES A 
SEARCH TO EACH SECTOR AND VERIFIES THAT THE SEARCH COMPLETES 
WITHOUT ERROR. THIS TEST IS DONE ONCE IN 18 BIT F0R/1AT AND ONCE 
IN 16 BIT FORMAT. 



TEST 60 SEARCH OFF CYLINDER 
PURPOSE : 

TO VER]FY THE EXECUTION OF A 
HEAD MOTION. 

PROCEDURE: 



SEARCH COMMAND WITH IMPLIED 



THE DRIVE IS RECALIBRATED AND INITIALIZED IF THE DRIVE IS 
OFF CYLINDER OR HAS A SEEK ERROR. THE PROGRAM THEN EXECUTES AND 
EXPLICIT SEEK TO CYLINDER 410., FOLLOWED BY A SEARCH TO CYLINDER 
411.. TRACK 0, SECTOR 0. THE FOLLOWING IS SEARCHED FOR BY AN 
EXPLICIT SEEK TO CYLINDER 409.. FOLLOWED BY A SEARCH TO CYLINDER 
412.. TRACK 0. SECTOR 1. FTC. UNTIL ALL THE SECTORS HAVE BEEN 
SEARCHED. THE TEST IS DONF FOR 18 BIT FORMAT, WHERE THE LAST 
SECTOR SEARCHED IS SECTOR 29. THE TEST IS REPEATED FOR 16 31 T 
FORMAT. WHERE THE LAST SECTOR SEARCHED IS 31. 



TEST 61 SEARCH INVALID SEC^OR 
PURPOSE : 

TO VERIFY THE DETECTION OF AN INVALID SECTOR ADDRESS DURING 
A SEARCH OPERATION. 

PROCEDURE : 

THE DRIVE IS RECALIBRATED AND INITIALIZED IF^ IT IS OFF 

CYLINDER OR HAS A SEEK ERROR. WITH THE OFFSET REGISTER SET FOR 

18 BIT FORMAT. THE PROGRAM EXECUTES A SEARCH TO EACH INVALID 

SECTOR. I.E.. SECTORS 30 AND 31 AND VERIFIES THAT INVALID ADDRESS 
ERROR SETS FOR EACH SECTOR. 



TEST 62 SEARCH INVALID TRACK 



CZRWBO RM05/5/2 FCTNL TST 1 



^255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
126A 
265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
127A 
1275 
12«''6 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
128A 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
130A 
1305 
1306 
1307 
1308 
1309 
1510 
'311 
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SEO 0025 



PURPOSE : 

TO VERJFy THE DETECTION OF AN INVALID TRACK ADDRESS DURING A 
SEARCH OPERATION. 

PROCEDURE : 

THE DRIVE IS RECALIBRATED AND INITIALIZED IF IT IS OFF 
CYLINDER OR HAS A SEEK ERROR. THE PROGRAM EXECUTES A SEARCH ro 
EACH INVALID TRACK ADDRESS WITH THE CYLINDER ADDRESS 0. AND 
SECTOR ADDRESS 0 AND VERIFIES THAT INVALID ADDRESS ERROR SETS FOR 
EACH TRACK. 



TEST 63 SEARCH INVALID CYLINDER 

PURPOSE : 

TO VERIFY THE DETECTION 
DURING A SEARCH OPERATION. 



OF AN INVALID CYLINDER ADDRESS 



PROCEDURE: 



THE DRIVE IS RECALIBRATED AND INITIALIZED IF IT IS OFF 
CYLINDER OR HAS A SEEK ERROR. THE PROGRAM THEN EXECUTES A SEARCH 
TO EACH INVALID CYLINDER ADDRESS AND VERIFIES THAT INVALID 
ADDRESS ERROR SETS FOR EACH CYLINDER. 



TEST 64 IVC SEArtCH TEST 
PURPOSE : 

TO VERIFY THAT INVALID COMMAND STATUS SETS WHEN VOLUME VALID 
IS INACTIVE DURING A SEARCH COMMAND. 

PROCEDURE : 

VOLUME VALID IS RESET BY SETTING AND RESETTING DIAGNOSTIC 
MODE. AFTER WHICH THE TEST EXECUTES A SEARCH COMMAND, VERIFYING 
THAT "IVC" STATUS SETS. 



TEST 65 ABORT SEARCH TEST 

PURPOSE : 

TO VERIFY THAT THE RM05/3/2 INHIBITS A SEARrH WHEN AN ABOR' 



M 2 
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1J12 COWITION EXISTS AT TrC START Tf€ COHTWyiD. 

131? 

13U • PUOCEDURE- 



1115 
1317 



1318 
1319 
1320 
13?1 

1323 TEST 66 SEARCH AT OFFSET TEST 

1325 PURPOSE: 



m 



THE TEST SETS AM ERROR IN THE ERROR REGISTER AND ISSUES A 
SEARCH COFflAM), VERIFVING THAT 'PIP" REMAINS INACTIVE. 



13?8 

9 PROCEDURE : 



TO VERIFY THAT OFFSET MODE DOES NOT CAUSE SEARCH ERRORS, 



0 

nSl THE TEST EXECLTES AN OFFSET COMMAND. THEN EXECUTES A SEARCH 

13|^ COmAND, VERIFYING THAT THERE ARE NO ERRORS DURING THE SEARCH. 

IMS 

H58 TtSr 67 HEAD ALlGWENT SEEK 

1 1<,0 PURPOSE : 
MAI 

M^,^ HEAD ALIG?#1ENT FOR AN RM05/3/2 DRIVE, IS PERFORMED AT CYLINDER 

M/.< 2«5 DECIMAL USING THE CE PACK. A 60 MINUTE WARMUP IS REQUIRED IF 

THE PAC< WAS NOT IN THE DRIVE PRIOR TO HEAD ALlGf#«NT OPERATION. 

M^h PROCEDURE: 

t V,8 THE TEST EXECUTES A SEEK TO CYLINDER 245., TO POSITION THE 

M', » HEADS OVER THE HEAD ALIGNMENT CYLINDER. 

I V \ 



SEQ 00?'/ 



U7' 



U7% 



;*1.AST nCvlSIOM (K-AFI»-Si 

.TITLE C /WmO WIOS/V? ffT^ TS' 1 
•COPT<)IGMT (C) 1981 
•DIGITAL EOUlf^MT CORPORATION 
•COLORAM SPGS.. CO. 80919 
• 

•PROGRAM 8V niKE LEAVITT 

•THIS PROGRM<t mS ASSEfBLED USING THE PDP-11 WINDEC SYS»MC 
•PACKAGE (miNDEC-11-0Z0AC-C5). 18-#WR-81 

S8TTL OPERATIO^tM. SWITCH SETTINGS 



SWITCH 

15 
U 
15 

^2 
11 

10 
9 
8 
7 
6 
5 
4 
3 
2 
1 
0 



USE 

HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

ijyUSED 

INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP QN ERROR 

LOOP ON TEST IN SWR<7:0> 

TNI 28 

TN64 

TN32 

TN16 

TN4 
TN2 
TNI 



.S8TTL BASIC DEFINITIONS 



con 00 
104000 
000004 



.••INITIAL ADDRESS 
STACK = 1100 
ERROR = E«T 
SCOPE = lOT 



OF THE STACK POINTER 



1100 



;;8ASK 
; .-BASIC 



DEFINITION 
DEFINITION 



OF 
OF 



ERROR 
SCOPE 



CALL 
CALL 



00001 1 
000012 
000015 
000200 
i 77776 
177776 
1 ?777i, 
U777Z 
\7?%70 
1 77570 



OOCOOO 
C00001 
000002 
000003 



.••MISCELLAWOUS 



HT 

IF = 
CR 

CRLF = 
PS = 
PSU=PS 
STKLWT = 
PIRQ 
DSWR 

DDIS^ = 

.••GENERAL 

RO 

RT 

R2 



n 

12 
15 
200 
^7777^ 

1 7777k 
y77772 
177S70 
177570 



DEHNITIONS 

;;CODE 



FOR HORIZONTAL TAB 
;:CODE FOR LINE FEED 
;;CODE FOR CARRIAGE RETURN 
;;CODE FOR CARRIAGE RETURN-LINE 
; .-PROCESSOR STATUS WORD 



FEED 



;: STACK LIMIT REGISTER 

;;PR06RAM INTERRUPT REQUEST REGISTER 

.•.HARDWARE SWITCH REGISTER 

; .-HARDWARE DISPLAY REGISTER 



PURPOSE REGISTER DEFINITIONS 
to ;;GENERAL REGISTER 

ft .-:GENERA1 REGISTER 

%2 .-.-GENERAL REGISTER 

13 GENERAL REGISTER 



7»MWb3 W05/5/^ fCTNL TST 1 



000004 
000005 
0C0006 
000007 
000006 
000007 



000000 
000040 
000100 

ooouo 

000200 
000240 
000300 
000540 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001 000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



100000 
040000 
020000 
010000 
D04000 
002000 
001OO0 
000400 
000200 
000100 
000040 
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SEC 0026 



R4 

R5 
R6 
R7 

SP 
PC 



Z4 

15 
Z6 
%7 
Z6 
Z7 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 



.-•PRIORiry LEVEL DEFINITIONS 



PRO = 0 

PR1 - 40 

PR2 = 100 

PR3 - 140 

PR4 - 200 

PR5 = 240 

PR6 - 300 

PR 7 = 340 

.••••SWITCH REGISTER' 
SW13 - 100000 
SW14 40000 
SU13 - 20000 
SU12 10000 
SW11 - 4000 
SW10 2000 
SW09 - 1000 
SU08 400 
SW07 - 200 
SU06 - 100 
SW05 - 40 
SW04 = 20 
SU03 = 10 
SW02 = 4 
SW01 = 2 
SUOO = 1 
SW9=SW09 
SU8=SU08 
SU7=SU07 
SU6=SU06 
SU5 SW05 
SU4=SW04 
SW3=SW03 
SW2=SW02 
SU1=SW01 

swo=swoo 



.••DATA BIT DlF INI T IONS 

8IT15 100000 

BIT14 - 40000 

BIT13 = 20000 

BIT12 - 10000 

B]T11 = 4000 

BIT10 = 2000 

BJT09 1000 

BIT08 = 400 

BIT07 200 

BIT06 = 100 

BIT05 = 40 



PRIORITY LEVEL 0 

PRIORITY LEVEL 1 

PRIORITY LEVEL 2 

PRIORITY LEVEL 3 

PRIORITY LEVEL 4 

PRIORITY LEVEL 5 

PRIORITY LEVEL 6 

PRIORITY LEVEL 7 



SWITCH DEFINITIONS 



(BITOO "0 B]T15) 



CZRWBO RM05/^/2 FCTNL TST 1 
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000020 


Br04 




20 




000010 


BIT03 




10 




000004 


BIT02 




4 




000002 


BIT01 




2 




000001 


BITOO 




1 




001000 


BIT9=8]T09 




000400 


B]T8=81T08 




000200 


BJT7=8]T07 




OUUIUO 


BIT6=8IT06 




000040 


B]T5=9IT05 




000020 


BI 14=81104 




000010 


BIT3=8IT03 




000004 


BJT2=8]T02 




000002 


BIT1=eJT01 






000001 


BIT0=8IT00 








"CPU" tr; 




000004 


tMKVt L 




4 




000010 


DC c\/C r 




10 




000014 


TO f Twc r 




14 




000014 


TDTUCr 
IK 1 Vt L 




14 




000014 


BPTVEC 




14 




000020 


lOTVEC 




20 




000024 


PWRVEC 




24 




C00030 


EMTVEC 




30 




000034 


TRAPVEC 




34 




000060 


TKVEC 




60 




000064 


TPVEC 




64 




000240 


PI ROVE C 




240 












A 77 




.S8TTL 


RM REGIS 


^78 










479 




.-•RMCS1 


CONTROL 


480 










481 


004000 


DVA 




8IT11 


482 


000040 


F4 




B1T05 


485 


000020 


F3 




BIT04 


484 


000010 


F2 




8IT03 


485 


000004 


Fl 




8JT02 


486 


000002 


FO 




BITOl 


487 


000001 


GO 




BITOO 


488 


000077 


FNCMSK 




000077 


489 










490 




.•FUNCTION 


CODES 


491 


000000 


NOP 




000000 


492 


000002 


ILF02 




000002 


493 


000004 


SEEK 




000004 


494 


000006 


RECAL 




000006 


495 


000010 


DRVCLR 




000010 


496 


000012 


RLEASE 




000012 


497 


000014 


OFFSET 




000014 


498 


000016 


RTC 




000016 


499 


000020 


RIP 




000020 


500 


000022 


PAKACK 




000022 


501 


000022 


PACACK 




PAKACK 


502 


000024 


ILF24 




000024 


503 


000026 


ILF26 




000026 



TRAP VECTOR ADDRESSES 

TIME OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 
"T" BIT 
TRACE TRAP 

BREAKPOINT TRAP (8PT) 
INPUT/OUTPUT TRAP (lOT) ••SCOPE** 
POWER FAIL 

EMULATOR TRAP (EMT) ••ERRORS* 
' 'TRAP' ' TRAP 
TTy KEYBOARD VECTOR 
TTV PRINTER VECTOR 
PROGRAM INTERRUPT REQUEST VECTOR 



DEVICE AVAILABLE-READ 
FUNCTION CODE 
CODE 
CODE 
CODE 
CODE 



ONLV 



FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
GO BJT 
FUNCTION 



CODE MASK 



-05 OF RMCS1) 

;NOP COMMAND 
ILLEGAL COMMAND 
ISEEK COMMAND 
; RECALIBRATE COMMAND 
; DRIVE CLEAR COMMAND 
:RELEASE COMMAND 
^OFFSET COMMAND 
; RETURN '"O CENTERLiNt COM^lAND 
;READ IN PRESET COMMAND 
;PACK ACKNOWLEDGE COMMAND 

ILLEGAL COMMAND 
ILLEGAL COMMAND 



«^ PEGIiTER BIT DEFINITIONS 
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E 

PAGE 



3 



504 


000030 


SE>RCH 


- 


0C0030 


507 


000030 


ILF30 




000030 




000032 


ILF32 




000032 




000034 


ILF34 


— 


000034 




000036 


ILF36 


- 


000036 




OOOOAO 


ILF40 




000040 




0O00A2 


ILF42 


- 


000042 




000044 


ILF44 


= 


000044 




0000A6 


ILF46 




000046 


508 


000050 


UCD 


r 


000050 


509 


000052 


WCH 


r 


000052 


510 


000054 


ILF54 


r 


000054 


511 


000056 


ILF56 


= 


000056 


512 


000060 


WD 




000060 


513 


000062 


UH 




000062 


5K 


000064 


IL'^64 




000064 


515 


000066 


IlF66 




000066 


516 


000070 


RD 




000070 


517 


000072 


RH 




000072 


518 


000074 


ILF74 




000074 


519 


000076 


ILF76 




000076 



520 
521 
522 
525 
524 
525 
526 
527 
528 
529 
550 
531 
552 
533 
534 
555 
556 
537 
538 
559 
540 
541 
542 
545 
544 
545 

546 
547 

548 
549 

550 
551 
552 
553 
554 
555 



010000 
004000 
002000 
001000 
000400 



000020 
000010 
000004 
000002 
000001 



177400 
000377 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000001 



•RMDA DISK ADDRESS REGISTER 



; TRACK 
TA16 
TAB 
TA4 
TA2 
TAl 

.•SECTOR 

SA16 

SA8 

SA4 

SA2 

SAl 

; TRACK 
TADMSK 
SADMSK 



ADDRESS DEFINITIONS 
= BIT12 
= BITll 
= BIT10 
= BIT09 
= BIT08 



ADDRESS 
= BIT04 
= BIT03 
= 8JT02 
= BIT01 
= 81 TOO 



DEFINITIONS 



SfO 0030 



8 SECTOR MASKS 
= 177400 
= 000377 



;*R«DS DRIVE STATUS REGISTER 



ATA 
ERR 
PIP 
MOL 
WRL 
L8T 
PGM 
DPR 
DRY 
VV 

m 



8IT15 
8IT14 
BIT13 
BIT12 
BIT11 
BiTIO 
8IT09 
BIT08 
BIT07 
8IT06 
BITOO 



SEARCH COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

WRITE CHECK DATA COMMAND 

WRITE CHECK HEADER AND DATA 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

WRITE DATA COMMAND 

WRITF HEADER AND DATA COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

READ DATA COMMAND 

READ HEADER AND DATA COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 



TRACK ADDRESS 16. 
TRACK ADDRESS 8. 
TRACK ADDRESS 4 
TRACK ADDRESS 2 
TRACK ADDRESS 1 



SECTOR ADDRESS 16. 
SECTOR ADDRESS 8. 
SECTOR ADDRESS 4 
SECTOR ADDRESS 2 
SECTOR ADDRESS 1 



; TRACK ADDRESS MASK 
; SEC TOR ADDRESS MASK 



ATTENTION ACTIVE 
COMPOSITE ERROR 
POSITIONING IN PROGRESS 
MEDIUM ON LINE 
WRITE LOCK 

LAST BLOCK TRANSFERRED 

PROGRAMMABLE 

DRIVE PRESENT 

DRIVE READY 

VOLUME VALID 

OFFSET MODE ACTIVE 



;*F<MER1 ERROR REGISTER 



Z«WBO «M05/5/2 FCTNL TST 1 
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5S6 
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557 


100000 


DCK 


= 


BIT15 


•DATA CHECK ERROR 


558 
559 


040000 


UNS 


r 


BIT14 


•DRIVE UNSAFE 


OPOOOO 


OPJ 


= 


BIT13 


OPERATION INCOMPLETE 


5tO 


010000 


DTE 




BIT12 


DRIVE TIMING ERROR 


561 
562 


004000 


UlE 




BIT11 


■WRITE LOCK ERROR 


002000 


lAE 




BIT10 


■INVALID ADDRESS ERROR 


563 


001000 


AOE 


- 


BIT09 


■ADDRESS OVERFLOW ERROR 


564 


000400 


HCRC 


- 


BIT08 


•HEADER CRC ERROR 


565 


000200 


HCE 




BIT07 


•HEADER CCMPARE ERROR 
•ECC 'VJARD" ERROR 


566 


000100 


ECH 




BIT06 


5o7 


000040 


WCF 




BIT05 


■WRITE CLOCK FAILURE 


568 


000020 


FER 




BIT04 


■FORMAT ERROR 


569 


000010 


PAR 




BIT03 


'PARI TY error 


570 


0000C4 


RMR 




BIT02 


•REGISTER MODIFICATION REFUSED 


571 


000002 


ILR 




BITC 


•ILLEGAL REGISTER 


572 


000001 


ILF 




BJTOO 


•ILLEGAL FUNCTION 



573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 



591 
592 
593 
594 
595 
5% 
597 

598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 



115760 



000377 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000010 
000004 
000002 
000001 



NDTMSK - dck!dte:wle.'aoe:hcrc'hce.'Ech.wcfifer 

.•"NDTMSK" USED TO MASK ERROR REGISTER 1 DURING NON - DATA 
.-COMMANDS, I.E., HOUSEKEEPING AND POSITIONING COMMANDS 

.••RMAS ATTENTION SUMMARY REGISTER 

ATNMSK = 377 ;MASK FOR ATTENTION BITS 

;»RMLA LOOK AHEAD REGISTER 



584 


C02000 


SC4 


= BIT10 


.•SECTOR 


COLWT 


16 


585 


001000 


SC3 


- 8IT09 


.•SECTOR 


COUNT 


8 


586 


000400 


SC2 


BIT08 


.•SECTOR 


COUNT 


- 4 


58/ 


000200 


SCI 


- BIT07 


.•SECTOR 


COUNT 


2 


588 


000100 


SCO 


= BIT06 


.•SECTOR 


COUNT 


1 


589 














590 


003700 


SCTMSK 


= 003700 


.•SECTOR 


COUNT 


MASK 



.••RMMR1 MAINTENANCE REGISTER Ml 



.•WRITE 

D8CK 

D8EN 

DE81 

DTO 

MCLK 

MRD 

MUR 

MOC 

MSER 

MDF 

MS 

MWP 

MI 

MSC 

DMD 



ONLY BITS 
= 8IT15 

- SITU 
91113 

= eiT12 
BIT11 

- 8IT10 

- BIT09 
B1T08 

- BIT07 
BIT06 

= B1T05 

- 8JT03 
= BIT02 
= BJT01 

- BITOO 



.•READ ONLY BITS 
OCC = BIT15 



DE8UG CLOCK 

DEBUG CLOCK ENABLE 

DIAGNOSTIC END OF BLOCK 

DIAGNOSTIC TIMEOJT 

MAINTENANCE CLOCK 

READ DATA 

UNIT READY 

ON CYLINDER 

SEEK ERHOR 

DRIVE FAULT 

SECTOR PULSE 

WRITE PROTECT 

INDEX PULSE 

SECTOR COMPARE 

DIAGNOSTIC MODE 



;GCCu»^:tD 



CZRfWO R«OS/3/2 FCTML TST 1 
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613 

6U 

615 

616 

617 

618 

619 

620 

621 

622 

625 

62A 

625 

626 

627 

628 

629 

630 

631 

632 

633 

63A 

655 

656 

657 

658 

659 

6^0 

6A1 

642 

6A5 

6A^ 

6A5 

6A6 

6A7 

648 

6A9 

650 

651 

652 

655 

654 

655 

656 

657 

658 

661 



040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



100000 
040000 
020000 
004000 

020024 
C24024 



010000 
004000 
002000 
000200 



001777 



MACRO /04.00 



E8L 

REX 

ESRC 

PLFS 

ECRC 

PDA 

PHA 

CONT 

wc 

EECC 

riwD 

LS 

LSI 

DMD 
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BITK 
BUM 
BIT12 
BIT11 
BITin 
BITu9 
BIT08 
BIT07 
BIT06 
BIT05 
BIT04 
BJT03 
BIT02 
BITOT 
BITOO 



SEO 0O3.' 



RUN AND GO 

END OF BLOCK 

EXCEPTION 

ENABLE SEARCH 

LOOKING FOR SYNC 

ENABLE CRC OUT 

DATA AREA 

HEADER AREA 

CONTINUE 

WORD CLOCK 

ENABLE ECC OUT 

WRITE DATA BIT 

LAST SECTOR 

LAST SECTOR AND TRACK 

DIAGNOSTIC MODE 



.••RMDT DRIVE TYPE REGISTER 



NSA 
TAP 
MOH 
DRQ 

SNGPRT 
DULPRT 



8JT15 

eiru 

- BIT15 
BIT11 

= 020024 

- 024024 



•RMOF OFFSET REGISTER 



FMT16 
ECI 
HCI 
OFD 



BIT12 
BIT11 
BIT10 
BIT07 



;NOT SECTOR ADDRESSED = 0 
;TAPE DRIVE = 0 
.•MOVING HEAD = 1 
.-DRIVE REQUEST REQUIRED 

.•SINGLE PORT DRIVE TYPE (RM02) 
.•DUAL PORT DRIVE TYPE (RM02J 



16 BIT WORD FORMAT 
ECC INHIBIT 

HEADER COMPARE INHIBIT 
OFFSET FORWARD 



.••RMDC DESIRED CYLINDER ADDRESS REGISTER 



CYLMSK 001777 



.-MASK FOR CYLINDER ADDRESS 



662 





;*RMMH2 MAINTENANCE REGISTER #2 






.READ 


ONLY BITS 




100000 


RQA 


-- BIT15 


;PORT A REQUEST 


040000 


ROB 


= 8IT14 


•PORT 8 REQUEST 


020000 


TAG 


= BIT13 


■TAG CONTROL 


010000 


TST 


- 8IT12 


■COMMAND SEQUENCE TEST BIT 


004000 


CC 


= 8IT11 


•CONTROL OR CYLINDER I AG 


002000 


CH 


- BIT10 


■CONTROL OR HEAD TAG 


001000 


8809 


= BIT09 


•TAG BUS 


000400 


B608 


- BIT08 


•TAG BUS 


000200 


BBC 7 


= BIT07 


•TAG BUS 


000100 


B806 


= BIT06 


FAG BUS 


000040 


8805 


= 8IT05 


TAG BUS 


000020 


B804 


^ BIT04 


•TAG BUS 


000010 


B005 


= BIT03 


■TAG BUS 


000004 


8802 


= BIT02 


MG BUS 


000002 


BBOl 


= BITOT 


TAG BUS , 


000001 


8800 


8IT0C 


TAG 
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66? 
66<. 

665 
666 
667 
668 
669 
670 
671 
67? 
673 
674 
6^5 
676 
677 
678 
679 
680 

!i81 

682 
683 
68A 
685 
686 
687 
688 
689 
690 
691 
692 
69? 
69<. 
695 
696 
699 



700 
/Ol 
702 
705 
704 
705 
706 
707 
7C8 
;'C9 



100000 
040000 
020000 
010000 
004000 
002000 
000200 
000010 



100000 
040000 



000000 
000006 
000012 
000014 
000016 
000020 
C00024 
000026 
000030 
000032 
000034 
000036 
000040 
U00042 
000044 
000046 
000050 
000052 
000054 
00005)6 
000060 
000062 
000064 
000066 
000070 
000072 
000074 
000076 

000077 



100000 
040000 
020000 
002000 



.••RMER2 ERROR REGISTER 2 



BSE 

SKJ 
OPE 
IVC 

LSC 
L8C 
DVC 
DPE 



1SE 
USE 



B1T15 
BIT14 
BIT13 
BIT12 
BIT11 
BJT10 
BIT07 
BJT03 



.S8TTL PROGRAM MNEMONICS 



= BIT15 
- BIT14 



BAD SECTOR ERROR 
SEEK INCOMPLETE 
OPERATOR PLUG ERROR 
INVALID COMMAND ERROR 
LOSS OF SYSTEM CLOCK 
LOSS OF BIT CLOCK 
DEVICE CHECK 
DATA PARITY ERROR 



.-MANUFACTURING DETECTED SECTOR ERROR 
.-USER DETECTED SECTOR ERROR 



.S8TTL RM REGISTER INDEX VALUES 



RMCS1 

RMDA 

RMDS 

RMER1 

RMAS 

RMLA 

RMMR1 

RMDT 

RMSN 

RMOF 

RMDC 

RMHR 

RMMR2 

RMcR2 

RMEC1 

RMEC2 

ILRG50 

ILR652 

ILRG54 

ILRG56 

ILRG60 

1LRG62 

ILRG64 

JLRG66 

ILRG70 

ILRG72 

ILRG74 

ILRG76 

IDXMSK 

.S8TTL 





00 


CONTROL STATUS REGISTER *1 




06 


DISK ADDRESS REGISTER 


r 


12 


DRIVE STATUS REGISTER 




' 4 


ERROR REGISTER #1 


_ 


16 


ATTENTION SUMMARY REGISTER 




20 


■LOOK AHEAD REGISTER 




24 


■MAINTENANCE REGISTER 




26 


•DRIVE TYPE REGISTER 




30 


•SERIAL NUMBER REGISTER 




52 


■OFFSET REGISTER 




34 


•DESIRED CYLINDER REGISTER 




36 


•HOLDING REGISTER 




40 


■MAINTENANCE REGISTER *2 




42 


■ERROR REGISTER *2 




44 


■ECC POSITION REGISTER 




46 


ECC PATTERN REGISTER 




50 


•ILLEGAL REGISTER 50 




52 


•ILLEGAL REGISTER 52 




54 


■ILLEGAL REGISTER 54 




56 


■ILLEGAL REGISTER 56 




60 


ILLEGAL REGISTER 60 




62 


■Illegal register 62 




64 


■ILLEGAL REGISTER 64 




66 


illegal REGISTER 66 




70 


ILLEGAL REGISTER 70 




72 


illegal REGISTER 72 




74 


ILLEGAL REGISTER 74 




76 


ILLEGAL REGISTER 76 




77 ;MASK FOR REGISTER INDEX NJ 



RH CONTROLLER REGISTER BIT DEFINITIONS 



.••RMCS1 CONTROL STATUS REGISTER M] 



SC 
TRE 
MCPE 
PSEL 



= 8IT15 
= 8IT14 
= BIT15 

= Bino 



SPECIAL CONDI'ION-READ ONLY 
TRANSFER FRROR 

MASS8US CONTROL BUS PARITY ERROR-READ ONL* 
PORT B SELECT 
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0 00S4 



712 
713 
714 

715 
7^6 
717 
718 
719 
720 
721 
722 
723 
724 
7^5 
726 
727 
728 
729 
730 
733 



734 
735 
'36 
737 

738 
739 
740 
741 
742 
745 
744 
745 
746 
-'47 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
76A 
765 



001000 
000400 
000200 
000100 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000007 



100000 
040000 
020000 
010000 
004000 
002000 
000100 
000010 
000004 
000002 
000001 



000000 
000002 
000004 
000010 
000022 
000050 
000052 

176700 
120254 



A17 
A16 
RDY 
IE 



BIT 09 
BIT08 
BIT07 
BIT 06 



ADDRESS EXTFNSION 
ADDRESS EXTENSION 
READY-READ ONLY 
INTERRUPT ENABLE 



•Ri«JCS2 RH CONTROL STATUS REGISTER #2 



DLT 
UCE 
UPE 
NED 
NEW 
PGE 

MDPE 

OR 

IR 

TLR 
PAT 
BAI 

U2 
Ul 
UO 



BIT15 
BIT14 
BIT13 
8IT12 
BJTII 
81110 
8IT09 
BJT08 
BIT07 
BIT06 
BIT05 
BIT04 
Bn03 
BIT02 
BITOT 
BITOO 



DATA LATE-READ ONLY 
WRITE CHECK ERROR-READ ONLY 
UNI8US PARITY ERROR 
NONEXISTAM DRIVE-READ ONLY 
NONEXISTANT MEWRY-READ ONLY 
PROGRAM ERROR-READ UNLY 
MISSED TRANSFER 

MASS8US DATA BUS PARITY ERROR-READ ONi 
OUTPUT READY-READ ONLY 
INPUT READY-READ ONLY 
CONTROLLER CLEAR 
PARITY TEST 

UNI8US ADDRESS INCREMENT INHIBF 
UNIT SELECT 
UNIT SELECT 
UNIT SELECT 



.-UNIT SELECT MASK 



UNTMSK = 7 ;UNIT SELECT MASK 

;*RMCS3 RH70 CONTROL STATUS REGISTER #3 



APE 




BIT15 


•ADDRESS PARITY ERROR 


DPEHI 




BITU 


•DATA PARITY ERROR HIGH WORD 


DPELO 




BIT13 


•DATA PARITY ERROR LOW WORD 


WCEHI 




BIT12 


;URITE CHECK ERROR HIGH WORD 


WCELO 




B1T11 


•WRITE CHECK ERROR LOW WORD 


D8L 




BIT10 


■DOUBLE WORD TRANSFER 


IE 




BIT06 


•INTERRUPT ENABLE 


IPCK3 




BIT03 


•INVERT PARITY CHECK 


IPCK2 




BIT02 


■INVERT PARITY CHECK 


IPCKI 




BITOT 


■INVERT PARITY CHECK 


IPCKO 




BITOO 


•INVERT PARITY CHECK 


.S8TTL 


PM CONTROLLER REGISTER INDEX VALUES 


RMCS1 




00 


•CONTROL. STATUS REGISTER #1 


RMWC 




02 


•WORD COUNT REGISTER 


RMBA 




04 


■BUS ADDRESS REGISTER 


RMCS2 




10 


CONTROL. STATUS REGISTER #2 


RMD8 




22 


•DATA BUFFER 


RMBAE 




50 


BUS ADDRESS EXTENSION 


RMCS3 




52 


CCWSITROL. STATUS REGISTER #^ 


ABASE 




176700 ; UN I BUS ADDRESS 


AVECT1 




120254 ;UNI8US VECTOR ADDRESS AND PRIORITY 



000000 



0001 7A 
0001 74 000000 
0001 76 000000 



000200 

2 

I 000204 



000137 
0001 57 
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.S8TTL TRAP CATCHtR 



•ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ♦Z.HAL T" 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.-174 

DISPREG: -WORD C .-.-SOFTWARE DISPLAY REGISTER 

SWREG: .WORD 0 .-.'SOFTWARE SWITCH REGISTER 



005422 
005412 



.S8TTL STARTING ADDRESS(ES) 
JMP a*START 
JMP a*START1 

.S8TTL AC Til HOOKS 



.-.-JUMP TO STARTING ADDRESS OF PROGRAM 
.-CHANGE RH/RH BUS ADDRESS 



000046 
000052 



6 
7 
8 



000210 
000046 
041630 
000052 
000000 
000210 

001100 



;HOOKS REQUIRED BY ACTII 
$SVPC-. 
.=46 
SENDAD 
.-52 

.WORD 0 
.-$SVPC 



.=1100 
.S8TTL 



APT PARAMETER BLOCK 



.-SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .$E0P 



9 m 



2)SET L0C.52 TO ZERO 
RESTORE PC 



000024 
000044 



001100 
001100 
001102 
001104 
001106 

oomo 

001112 



001100 
000024 
000200 
000044 
001100 
001100 



000000 
001222 
000024 
000024 
000024 
000042 
001 1J4 



.-SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
.$X-, .-.-SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO STAR' OF PROGRAM 
200 .-.-FOR APT START UP 

.=44 ; .-POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ; .-POINT TO APT HEADER BLOCK 
. .$X .-.-RESET LOCATION COUNTER 
■*••**••*****•••***«•*•••••*•**•••*•*****•••**•••*•••*•*•••*•••• 

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 



SAPTHD: 
SHIBTS: .WORD 
SMBADR: .WORD 
STSTM: .WORD 
SPASTM; .WORD 
SUNITM: .WORD 
.WORD 

TAGADR- , 



0 

SMAIL 
20. 
20. 
20. 



TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
ADDRESS OF APT MAILBOX (BITS 0-15) 
RUN TIM OF LONGEST TEST 

RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 



tETEND-SMAlL/2 ; .-LENGTH MAlLBOX-ETABLf (WORDS) 



^ZRMMBO RM05/5/2 FCTNL 
COMMON TAGS 



001 1U 
001 lU 
001116 
001117 
001120 
001122 
001 12A 
001126 
001 1 30 
001131 
001132 
001134 
001136 
001 UO 
001 U2 
001 UA 
001 U6 
001 1 50 
001151 
001 1 52 
0011 54 
001156 
001160 
001162 
001 16A 
001166 
001170 
001171 
001 1 72 
001 1 73 
001 1 74 
001176 
001200 
001202 
C01204 
001206 
001210 
001212 
001216 
001217 
001220 



001114 

000000 
000 
000 
000000 
000000 
000000 
000000 
000 
001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 
000 
000000 
1 77570 
177570 
1 77560 
1 77562 
1 77564 
177566 
000 
002 
012 
000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
207 
077 
015 
012 
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.S8TTc COMMON TAGS 



EO 0036 



377 

000 



;»TH1S TABLE CONTAINS VARIOUS rOMMON STORAGE LOCATjaMS 
.••USED IN THE PROGRAM. 



.=TAGADR 



SCMTAG 








.WORD 


0 


STSTNM 


.BYTE 


0 


tERFLG 


.BYTE 


0 


SICNT: 


.WORD 


0 


SLPADR 


.WORD 


0 


tLPERR 


.WORD 


0 


lERTTL 


.WORD 


0 


$ITEM8 


.BYTE 


0 


SERMAX 


.BYTE 


1 


SERRPC 


.WORD 


0 


SGDADR 


.WORD 


0 


SBDADR 


.WORD 


0 


SGDDAT 


.WORD 


0 


SSDDAT 


.WORD 


0 




.WORD 


0 




.WORD 


0 


SAUTOe 


• BYTE 


0 


SINTAG 


.BYTE 


0 




.WORD 


0 


SWR: 


.WORD 


DSWR 


DISPLAY: .WORD 


DDISP 


$TKS : 


177560 




$TK.B: 


177562 




$TPS: 


1 77564 




$TPB: 


177566 




SNULL: 


.BYTE 


0 



SFILLS 
$FILLC 
$TPFLG 
STMPO 
$TMP1 
$TMP2 
$TMP3 
$TMP4 
STIMES: 
$E SCAPE 
377 SBFLL 
SOUES 
SCRLF 
$LF: 



.BYTE 2 

.BYTE 12 

.BYTE 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 
0 
:0 

.ASCIZ <207><377><377> 

.ASCII /?/ 

.ASCII <15> 

.ASCIZ <12^ 



;; START OF COMMON TAGS 



CONTAINS THE TEST NUMBER 
CONTAINS ERROR FLAG 
CONTAINS SUBTEST ITERATION COUNT 
CONTAINS SCOPE LOOP ADDRESS 
CONTAINS SCOPE RETURN FOR ERRORS 
CONTAINS TOTAL ERRORS DETECTED 
CONTAINS ITEM CONTROL BYTE 
CONTAINS MAX. ERRORS PER TEST 
CONTAINS PC OF LAST ERROR INSTRUCTION 
CONTAINS ADDRESS OF 'GOOD' DATA 
CONTAINS ADDRESS OF 'BAD' DATA 
CONTAINS "GOOD" DATA 
CONTAINS 'BAD' DATA 
RESERVED— NOT TO BE USED 

AUTOMATIC MODE INDICATOR 
INTERRUPT MODE INDICATOR 

ADDRESS OF SWITCH REGISTER 
ADDRESS OF DISPLAY REGISTER 
TTY KBD STATUS 
TTY KBD BUFFER 

TTY PRINTER STATUS REG. ADDRESS 
TTY PRINTER BUFFER REG. ADDRESS 
CONTAINS NULL CHARACTER FOR FILLS 
CONTAINS * OF FILLER CHARACTERS REQUIRED 
INSERT FILL CHARS. AFTER A "LINE FEED" 
"TERMINAL AVAILABLE" FLAG (BIT<07> 0 YES) 
USER DEFINED 
USER DEFINED 
USER DEFINED 
USER DEFINED 
USER DEFINED 

MAX. NUMBER OF ITERATIONS 
ESCAPE ON ERROR ADDRESS 
CODE FOR BELL 
QUESTION MARK 
CARRIAGE RETURN 
LINE FEED 



.S8TTL APT MAIL80X-ETABLE 



001222 

001222 000000 

001224 000000 

001226 000000 



.£/EN 

SMAIL: 

SMSGTY 

$FATAL 

STfSTN 



.WORD 
• WORD 
.WORD 



AMSGTY 
AFATAL 
ATESTN 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 



^ZRireO RMOS/?/? FCTfyiL TST 1 WACRO VOA.OO 4-APR-81 
AP^ KIAILBOX-ETABLE 



001230 


000000 


$PASS 




.WORD 


001232 


000000 

www 


SDEVCT. 


.WORD 


001234 


000000 

www 


SUN IT 




.WORD 


001236 


000000 


SMSGAD. 


.WORD 


001240 


000000 


SMSGLG 


.WORD 


001242 




SETABLE; 


001 242 


000 


$ENV: 




.8rTE 


001243 


000 


SENVM 




BYTE 


001244 


000000 


SSWREG 


.WORD 


001246 


000000 


SUSUR. 




.WORD 


001250 


000000 


tCPUOP: 
• » 

• • 
• 

• • 
• 


.WORD 


001252 


000 


• • 

• 

- • 
• 

• • 

WWISI. 


.8YTE 


001253 


000 


tMTYPI 

• » 
• 

• • 
• 




.8YTE 


001254 


000000 


■ » 

• • 

SMADRl. 

• • 


.WORD 


001256 


000 


$^1AMS2 


• BYTE 


001257 


000 


wjy P2 


.8YTE 


001 260 


000000 


$«ADR2 


.WORD 


001 262 


000 


»nA/1S3 


.8YTE 


001263 


000 


$MTYP3 


• .BYTE 


001264 


000000 


SMADR3 


.WORD 


001266 


000 


SW1S4 


.BYTE 


001 267 


000 


$«TYP4 


• .BYTE 


001270 


000000 


$MADR4 


■ .WORD 


001272 


120254 


SVECTI 


.WORD 


001274 


000000 


$VECT2 


WORD 


001276 


1 76700 


S8ASE 




.WORD 


001300 


000000 


SOEVM 




.WORD 


001 302 


000000 


$CDU1 




.WORD 


001304 


000000 


$CDW2 




.WORD 


001306 


000000 


SDDUO 




.WORD 


C01310 


000000 


SDDU1 




.WORD 


001312 


000000 


$DDU2 




.WORD 


001314 


000000 


SDDW3 




.WORD 


001316 


000000 


SDDW4 




.WORD 


001320 


000000 


SDDU5 




.WORD 


001322 


000000 


$0DU6 




.WORD 


001 324 


000000 


$DDU7 




.WORD 


001 326 




SETEND 








.MEXIT 
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APASS 

ADEVCT 

AUNIT 

AMSGAD 

AMSGLG 

AEIMV 

AENVM 

ASWREG 

AUjWR 

ACPUOP 



AMAMS1 
AMTYP1 



AMADRl 

AMAWS2 
AMTYP2 
AnADR2 
AMAMS3 
AMTYP3 
AnADR3 

AMTYP4 

AnADR4 

AVECTl 

AVECT2 

ABASE 

ADEVM 

ACDUl 

ACDW2 

ADDWO 

ADDW1 

ADDW2 

ADDW3 

ADDW4 

ADDW5 

ADDW6 

ADDW7 



PASS COUNT 
DEVICE COUNT 
I/O UNIT NUMBER 
MESSAGE ADDRESS 
MESSAGE LENGTH 
APT ENVIRONMENT TABLE 
ENVIRONMENT BYTE 
ENVIRONMENT MODE BITS 
APT SWITCH REGISTER 
USER SWITCHES 
CPU TYPE. OPTIONS 
BITS 15-11=CPU TYPE 

1 1 /04=01 J 1 /05=02 J 1 /20=03 , 1 1 /40=04 , 1 1 /45=05 
11/70=06.PD0=07.O=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0AT1NG POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
.-.HIGH ADDRESS,M.S. BYTE 
;;MEM. TYPE.8LI0H 
MEM. TYPE BYTE — (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIP0LAR=002 
500 NSEC M0S=003 
;;HIGH ADORE X>J<iLKM^ 

MEM. LAST ADDS. =3 B>TES.THIS WORD AND LOW OF •7YPE'" 
HIGH ADDRESS, M.S. BYTE 
MEM. TYPE .8LW2 
MEM. LAST ADDRESS. 8LI0ir2 
HIGH ADDRESS .M.S. BYTE 
MEM. TYPE .8LK#3 
MEM. LAST ADDRESS .BLK/r3 
HIGH ADDRESS .M.S. BYTE 
MEM. TYPE .8LK#4 
MEM. LAST ADDRESS. 8LI0lf4 
INTERRUPT VECT0R4f1.BUS PRIORITY*! 
INTERRUPT VECT0R#28US PRI0RITY*2 
BASE ADDRESS OF EQUIPMENT UNDER TEST 
DEVICE MAP 

CONTROLLER DESCRIPTION WORD^I 
CONTROLLER DESCRIPTION W0RD#2 
DEVICE DESCRIPTOR WORDXTO 
DEVICE DESCRIPTOR W0RD#1 
DEVICE DESCRIPTOR W0RD#2 
DEVICE DESCRIPTOR W0RDA3 
DEVICE DESCRIPTOR WQRD4r4 
DEVICE DESCRIPTOR W0RD#5 
DEVICE DESCRIPTOR W0RD*6 
DEVICE DESCRIPTOR W0RD*7 



RM05/3/2 FCTNL 
USER OEF INED TAGS 
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00 '1 326 
001330 



00135? 
001 333 



001334 



001 33A 
001 336 
001 340 
C01 342 
001 3AA 
001 346 
001 350 
001352 
001354 
001356 
001360 
001 362 
001364 
001 366 
001 370 
001372 
001 374 
001376 
001400 
001402 
001404 
001406 



001410 



001410 
001412 
001414 
001416 
001420 
001422 
001424 
001426 
001430 
001432 
001434 
001456 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

ocoooo 

000000 
000000 
000000 



SEO 0038 



000000 
000000 



000 
000 



S8TTL USER DEFINED TAGS 



CHGADR: .WORD 
XXDP: .WORD 



LSTRK: 



.8YTE 
,8VTE 



0 
0 



0 

c 



CHANGE RH/RM BUS ADDRESS = -1, "^O CHANGE - 0 
THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
THE PROGRAM WAS LOADED. THE HIGH B^'TE CONTAINS THE 
■XXDP' DEVICE CODE FOR THE RM05/3/2. 
LO BYTE = 0 

HI BYTE. CONTAINS LAST TRACK ADDRESS 0^ UNIT 
UNDER TEST. RM02/3 = 4., RM05 = 18. 



.-THE REGISTER INPUT BUFFER IS USED FOR 
.•STORING DRIVE- STATUS 



GET8UF: 

.-REGISTER 
RMCS1I 
RMWCI 
RMBAI 
RMDAI 
RMCS2I 
RMDSI : 
RMER1 I 
RMASI 
RMLAI 
RMD8I 
RMMR1I 
RMDTI 
RMSNI 
RMOFI 
RMDCI 
RMHRI 
RMMR2I 
RMER2I 
RMEC1I 
RMEC2I 
RMBAEI 
RMCS3I 



INPUT BUFFER 



• WORD 


0 


.WORD 


0 


.WOR» 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


• WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 



CONTROL. STATUS REGISTER *1 
WORD COUNT REGISTER 
BUS ADDRESS REGISTER 
DISK ADDRESS REGISTER 
CONTROL, STATUS REGISTER *2 
DRIVE STATUS REGISTER 
ERROR REGISTER #1 
ATTENTION SUMMARY REGISTER 
LOOK AHEAD REGISTER 
DATA BUFFER 

MAINTENANCE REGISTER *1 

DRIVE TYPE REGISTER 

SERIAL NUMBER REGISTER 

OFFSET REGISTER 

DESIRED CYLINDER REGISTER 

HOLDING REGISTER 

MAINTENANCE REGISTER #2 

ERROR REGISTER #2 

ECC POSITION REGISTER 

ECC PATTERN REGISTER 

BUS ADDRESS EXTENSION REGISTER 

CONTROL. STATUS REGISTER #3 



;THE REGISTER OUTPUT BUFFER IS USED FOR 
.•ASSEMBLING DATA GOING TO REGISTER 



PUTBUF : 



.-REGISTER OUTPUT BUFFER 
RMCS10: .WORD 0 
RMWCO: .WORD 
.WORD 
.WORD 



RMBAO: 
RMDAO: 
RMCS20; .WORD 
RMDSO: .WORD 
RMER10; .WORD 
RMASO; 



RMLAO 
RMD80 



.WORD 
.WORD 
.WORD 



F'TIRIO: .WORD 
RMDTO: .WORD 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



CONTROL. STATUS REGISTER *1 
WORD COUNT REGISTER 
BUS ADDRESS REGISTER 
DISK ADDRESS REGISTER 
CONTROL. STATUS REGISTER *2 
DRIVE STATUS REGISTER 
ERROR REGISTER #1 
ATTENTION SUMMARY REGISTER 
LOOK AHEAD REGISTER 
DATA BUFFER 

MAINTENANCE REGISTER *1 
DRIVE TYPE REGISTER 
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SEO 0039 



00H40 
0OU42 
00U44 
00U46 
00U50 
0CU5? 
00H54 
00U56 
00H60 
00K62 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



00K64 000000 
00K66 

001506 000000 



001510 000000 
001512 000000 



0015U 



SERIAL fUTBER REGISTER 
OFFSET REGISTER 
DESIRED CYLINDER REGISTER 
HOLDIAffi REGISTER 
MAINTENANCE REGISTER 92 
ERROR REGISTER #2 
ECC POSITION REGISTER 
ECC PATTERN REGISTER 
BUS ADDRESS EXTENSION REGISTER 
CONTROL. STATUS REGISTER #3 

EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
THE LOU BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THF 
FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST 
IN THE TABLE. A 2ER0 WORD IS A BLANK AND REPRESENTS THE 
END OF THE QUE. 



RMSNO: 


.yORD 


0 


RnOFO: 


.yORD 


0 




.WUNP 




RPMtO: 


.WORD 


0 


Rnm20: 


.WORD 


0 


RHER20: 


.WORD 


0 


RMEC10: 


.WORD 


0 


RMEC20: 


.WORD 


0 


RMBAEO: 


.WORD 


0 


RnCS30: 


.WORD 


0 



TSTQUE: .WCWD 0 
.8LKW 8. 
.WORD 0 



CLKADR: .WORD 0 
CLKVCT: .WORD 0 



.•CONTAINS DEVICE POINTER 
;TEST QUE FOR DEVICES UNDER TEST 
.•TABLE TERMINATOR GOES HERE WHEN 
;ALL 8. DEVICES ARE UNDER TEST. 



:UNIBUS ADDRESS OF 
.•VECTOR ADDRESS OF 



KW11 CLOCK 
KW11 CLOCK 



THE GET INDEX TABLE CCMHTAINS A BYTE LIST OF REGISTERS WHICH 

ARE READ BY THE GET SUBROUTINE. THE LIST IS TERMINATED BY 
A NEGATIVE BYTE. 
GETINX: .8LK8 23. ;GET INDEX TABLE 

THE PUT INDEX TABLE I CONTAINS A BYTE LIST OF REGISTERS WHICH 
ARE WRITTEN BY THE PUT SUBROUTINE. THE LIST IS TERMINATED BY 
A NEGATIVE BYTE. 
PUTINX: .8LKB 23. ;PUT INDEX TABLE 



;PUT TAGS HERE 



B 4 



.SBTTL EfWOR POIMTED T«lE 

•THIS T/IBLE COMTAINS Tt€ IltfORmriON FOR EACH Ef^ROR THAT CfN OCCUR. 
•T»C IKraVMTION IS OBTAINED Bv USING THE INDEX Nlf«ER FOUND IN 
•LOCATIOM SITEfB. THIS NUPQER INDICATES WHICH ITEM IN THE TAfiLE IS PERTINENT. 
•WTE1: 
•N0TC2: 

E« 
DM 

OT 
DF 



IF ftlTEIB IS 0 THE ONLY PERTINENT DATA IS (KRRPO. 
EACH ITER IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS fOL^OWS 

.-POINTS TO THE ERROR »«SSAGE 

.POINTS TO THE DATA HEADER 

; POINTS TO THE DATA 

: POINTS TO THE DATA FORMAT 



2 



00157? 067^46 

C01574 07?^?? 

001576 073456 

001600 075546 



4 
5 
6 



001602 
001604 
001606 
001610 



f 
8 
9 



001612 
001614 
001616 
0016PO 



'0 
1 ] 



001622 
001624 
001626 
001650 



M 
14 



00)632 
C01654 
0016% 
001640 



067252 
073332 
075456 
073546 



067260 
075352 
073456 
073546 



067266 
0^3332 
075A56 
073546 



0672i* 
075332 
075456 
073546 



f€RRT8: 
;ERRC« 1 



E«T1 
EHTl 
EDTl 
EFT1 



; ERROR 2 



EMT2 
EHTl 
EDTl 
EFT! 



.-ERROR 3 



E«T3 
EHTl 
EDTl 
EFT1 



; ERROR 4 



Em4 

EHTl 
EOT! 
EFTi 



;ERRC« 5 



EMT5 
EHTl 
EDTl 
EFTI 



; ERROR 6 



WRONG UNIT SELECTED 



DEVICE WENT UNAVAILABLE 



DEVICE WENT NONEXISTENT 



CONTROLLER NOT READY 



DRIVE NOT READr AND GO NOT RESET 



UNEXPECTED VALUE FOR "ATA" STATUS 



"ZWeO W05/5/2 *CT^i rsT i 
FRROR POINTER TittLE 



18 



001642 067302 

001 6U 073552 

001646 073456 

001650 073546 



C ^ 

»CIW3 vOfc-00 C-Mf^-Bl 'T. -43:28 PAGE 8-1 



EnT6 
fMTI 
EDT1 
EfTI 



19 

^•0 



001652 067310 

001654 000000 

001656 000000 

001660 000000 



;EWOR 7 



EnT7 

0 
0 
0 



BUS TIMEOUT TRYING TO READ OR WRITE REGISTER 



2? 
25 
24 



001662 
001664 
C01666 
001670 



067316 
073352 
073456 
073546 



; ERROR 10 



EMTIO 
EHTI 
EDH- 
EFTI 



DRIVE NOT READy 8UT GO JS RESET 



25 
26 
27 



001672 
001674 
001676 
001700 



067322 
073332 
073456 
073546 



; ERROR 11 



EMT11 
EHTI 
EDT1 
EFTI 



60 NOT RESET BUT DRIVE IS READY 



28 
2V 
50 



001 702 
001704 
001706 
001710 



31 
32 
33 



001712 
001714 
001716 
001720 



34 
35 
36 



C01 722 
001724 
001726 
1750 



001 : 



^7 



067326 
073332 
073456 
073546 



067334 
075352 
073456 
073546 



067346 
073332 
073456 
073546 



; ERROR 12 



EMT12 
EHTI 
EDT1 
EFT1 



; ERROR 13 



EMTT3 

FHT1 
EDT1 
EFTI 



; ERROR 14 



EMT14 
EHTI 
EDTI 
EFTI 



:ERROR 15 



INCORRECT FUNCTION CODE 



PARITY ERROR READING REMOTE REGISTERS 



TRANSFER ERROR IS INCORRECT 



INCORRECT WORD COUNT 



fOROR POINTER T*BLE 



001732 
001734 
001756 
001740 



067554 
075552 
075456 
075546 
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Em 15 

EHT1 
EDT1 
EFT1 



SEC 004. 



40 
41 
42 



001742 
001744 
001 746 
001750 



06^562 
075532 
075456 
075546 



.•ERROT 16 



fMn6 

EHTI 
EDTI 
EFT1 



INCORRECT BUS ADDRESS 



45 
44 
45 



001 752 
001754 
001756 
COl 760 



067572 
075552 
075456 
075546 



; ERROR 17 



EMT17 
EHTl 
EDTI 
EFT1 



INCORRECT L8T STATUS 



46 
47 

48 



001762 
001764 
001 766 
001770 



067402 
075352 
075456 
075546 



.-ERROR 20 



EWT20 
EHTl 
EDTI 
EFT1 



INCORRECT AOE 



49 
50 
5i 



001772 
001 774 
001 776 
002000 



067412 
073332 
073456 
073546 



.-ERROR 21 



EMT21 
EHTl 
EDTI 
EFT1 



INCORRECT DISK ADDRESS 



52 
53 
54 



002002 
002004 
002006 
002010 



067422 
073552 
075456 
075546 



; ERROR 22 



EMT22 
EHTl 
EDTI 
EFT1 



INCORRECT CYLINDER ADDRESS 



55 
56 
57 



002012 
002014 
002016 
002020 



067432 
073532 
075456 
075546 



;ERR0R 23 



EWT23 
EHTl 
EDTI 
EFTI 



INCORRECT WLE STA^^US 



58 
60 



002C22 



067442 



; ERROR 24 

EMT24 



INCORRECT UPE STATUS 



7RMMBC RM05/?/2 'CTMl ^ST 1 
RROR POINTER TABLE 

002024 0-/33^2 
002026 073456 
002030 073546 



MA^HO vCA.OO 



63 



DCtC52 067452 

002034 073332 

002036 073456 

002040 C73546 



64 
65 
66 



002042 
002044 
002046 
002050 



67 
68 
6<> 



002052 
0C2054 
002056 
002060 



70 
71 
72 



002062 
002064 
002066 
002070 



73 
74 
75 



002072 
002074 
002076 
002100 



76 
77 
78 



002102 
002104 
002106 
002^0 



79 
80 
81 



0021 T2 
0021 U 



007462 
073332 
073456 
073546 



067<,72 
073332 
073456 
073546 



067502 
073332 
073456 
073546 



067512 
073332 
073456 
073546 



067522 
073332 
073456 
073546 



067532 
073532 
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EHTl 
EDIT 
EFTl 



; ERROR 25 



E«T25 
EHT1 
EDTI 
EFn 



.•ERROR 26 



EMT26 
EHT1 
EDTI 
EFTI 



.•ERROR 27 



EWT27 
EHT1 
EDT1 
EFTI 



.-ERROR 30 



EMT30 
EHTI 
EDTI 
EFTT 



.•ERROR 31 



Em3i 

EHTI 
EDTI 
EFTI 



.•ERROR 32 



EWT32 
EHTI 
EDTI 
EFTI 



.-ERROR 33 



E1T33 
EHTI 



INCORRECT yCF STATUS 



INCORRECT WCE STATUS 



INCORRECT MDPE STATUS 



INCORRECT DCK STATUS 



INCORRECT eCH STATUS 



DLT SHOULD NOT BE SET 



MXF SHOULD MOT BE SET 



CO?' It C7»<.56 



32 
83 
8^ 



002^22 
002124 
002126 
002130 



86 
&7 



002132 
0021 3A 
002156 
002H0 



88 
89 

90 



002 U2 
002 U4 
002U6 
002150 



91 
92 
93 



002152 
002154 
002156 
002160 



94 
95 
96 



002162 
002164 
002166 
002170 



97 
9ft 
99 



002172 
002174 
002176 
002200 



'00 
•01 
•02 



00220? 
00220*. 

0e220t 



067542 
073332 
073456 
073546 



067552 
073332 
073456 
073546 



067562 
073332 
073456 
073546 



067572 
073332 
073456 
073546 



0676Q2 
073332 
073456 
073546 



067610 
073332 
0734 56 
075546 



067620 
073332 
073456 



H4CHC V04.00 4-AP»-8^ 



EDM 



EMT34 
EHTl 
EDT1 
Ef n 



.ERROR 35 



EMT35 

EHTl 
EDT1 
EfTI 



; ERROR 36 



EMT36 
EHTl 
EDTl 
EFTI 



; ERROR 37 



EWT37 
EHTl 
fDTI 
EfTI 



; ERROR 4C 



EMT40 
EHTl 
EDTl 
EfTI 



.•ERROR 41 



EHT4T 
EHTl 
EDTl 
EFTI 



.ERROR 42 



fWT42 

EhTI 

EDTl 



F 4 
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DTE SHOULD NOT BE SET 



INCORRECT HCRC STATUS 



INCORRECT HCE STATUS 



INCORRECT FER STATUS 



DPE SHOULD NOT 8E SET (NOT A DATA COMMAND) 



LOST 'na" DURING PACK ACKNOWLEDGE 



UNSAFE ERROR DURING PACK ACKNOWLEDjE 



'0? 
104 
105 



0022 1? 067632 

0022U 073332 

002216 073456 

002220 073546 



MAC»L .'04.00 4-AW-S' 



EFTI 



:ERRC» 43 



Em43 
EHT1 
EDTl 
EfTI 



6 4 
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"DPI" r«JROR DURING PACK ACKNOWLEDGE 



106 
107 
108 



002222 
002224 
002226 
002230 



109 
110 
111 



002232 
002234 
002236 
002240 



067642 
073332 
073456 
073546 



067652 
073332 
073456 
073546 



.-ERROR 44 



EMT44 
EHTI 
EDT1 
EFTI 



; ERROR 45 



EMT45 
EHTI 
EDTl 
EFTI 



•m?" ERROR DURING PACK ACKNOWLEDGE 



"ILR" ERROR DURING PACK ACKNOWLEDGE 



113 
114 



002242 
002244 
002246 
002250 



067662 
073332 
073456 
073546 



;tRROR 46 



tMT46 
EHTI 
EDT1 
EFTI 



"JLF" ERROR DURING PACK ACKNOWLEDGE 



115 
116 
•17 



002252 
002254 
002256 
002260 



M8 
119 
120 



002262 
002264 
002266 
002270 



1.V 
123 



002272 
002274 
002276 
002500 



067672 
073332 
0''3456 
073546 



067700 
073332 
0734 56 
073546 



067710 
075552 
073456 
073546 



.■ERROR 47 



EMT47 
EHT1 
EDT1 
EFTI 



iFRROR 50 



E«T50 
EHTI 
EDT1 
EFTI 



rERROR 5T 



E«T5T 
EHTI 
EDTT 
EFTT 



COMPOSITE ERROR STATUS IS INCORRECT 



PARITY ERROR WRITING REMOTE REGISTERS 



INCORRECT lAE SMTUS DURING SEEK COMMAND 



H t. 
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'?6 



002302 
OCCi 
002306 
002310 



'?7 
128 
'29 



002312 
002314 
002316 
002320 



l?i 
152 
153 



002322 
002524 
002326 
002330 



134 
13^) 
136 



002332 
002334 
002336 
002340 



Mr 
138 
•?9 



002342 
002544 
002346 
002350 



KO 
141 
14? 



002352 
002354 
002356 
002360 



U5 

'4^ 

U6 



002562 
..K)2564 
C02566 



067722 
073332 
073456 
073546 



067740 
073332 
073456 
073546 



067756 
073332 
073456 
073546 



067766 
073332 
075456 
073546 



070000 
073532 
073456 
073546 



07Q016 
073332 
073456 
0735..6 



070026 
073332 
073456 



E»1T52 

EHTI 

EDTI 



.-ERROR 53 



EMT53 
EHTI 
EOT! 
EFT1 



.ERROR 54 



EMT54 
EHn 
EDTI 
EFTI 



.-ERROR 55 



EMT55 
EHn 
EDTI 
Ef T1 



.-ERROR 56 



ECIT56 

EHTI 
EDTI 
EfTI 



;ER«0R 57 



E»"TS7 
EHTI 
EDTI 
Ef ri 



.-ERROR 60 



E^T60 

EHTI 

EDT' 



DP! ERROR DURING <ifEK - MEPIv.** IS foOT ON L.'Nf 



QPl ERROR DURING SEEK - tIEDIUM IS ON lINE. ASSUME 
ON CVLINDER LA^CH DIDN'T RESET 



SEEK INCOMPLETE ERROR DURING SEEK COWWJD 



DEVICE CHECK DURING SEEK COIWAND 



PIP IS STILL SET AFTER SEEK - SKI IS RESET 



ATA DID NOT SET DURING SEEK COMMAND 



:VC ERROR DURING SEEK COMMAND - LOST 
VOLUME VA^ID 



I 4 
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U7 
U8 



002576 
002400 



8?P 

073456 
075546 



EHTl 
EDTl 
EFTl 



EWONEOUS IVC ERWJR DURING SEEK fOWNT 
VOLi#€ VALID IS STIL SET 



1S4 



00240? 
0OP404 
002406 
0024 10 



1S5 
'S7 



002412 
002414 
002416 
002420 



158 
159 
160 



002422 
002424 
0024.^6 
002430 



161 
16? 
16^ 



002432 
002434 
002436 
002440 



164 
165 
166 



0024*2 
002444 
00241.6 
002450 



070064 
073532 
075456 
075546 



000000 
000000 
000000 
000000 



070102 
07335? 
075456 
073546 



070122 
073332 
073456 
073546 



070U2 
073332 
073456 
073546 



;E«ROR 62 



E«Tt»2 
EHTl 
EDTT 
EfTI 



;ffifi0ft 63 

0 
0 
0 
0 



; ERROR 64 



EMT64 

EHTl 
EDTl 
EFT1 



;tRR0R 65 



EMT65 
EHTl 
EDTl 
Ef Tl 



.•ERROR 66 



EMT66 
EHTl 
EDTl 
EFT1 



MOL IS ZERO. BuT OPI WAS NOT 
REPORTED DURING SEEK COWAND 



UNUSED 



DRIVE DID NOT DETECT "IVC" ERROR DURING SEEK 



DRIVE EXECUTED A SEEK WITH ERROR SET 



UNEXPECTED ERROR SET IN RMERl 



'67 
168 
'69 



070154 
073332 



.-ERROR 67 



EHT1 



UNEXPECTED ERROR SET IN RMER2 



002* 

002- 



EDT1 
FfTI 



17-' 



002*62 
002*6* 
002*66 
002*70 



17? 
V5 



002*72 
002*7* 
002*76 
002500 



176 
1/7 
17« 



002502 
00250* 
002506 
002510 



179 
180 
181 
18*'' 



002512 
00251* 
002516 
002520 



075*56 
0755*6 



070176 
075552 
075*56 
0755*6 



070206 
075552 
075^56 
0755*6 



07022* 
075552 
075*56 
0755*6 



; ERROR 70 



fWTTO 

fHTI 
EDTl 
ff n 



; ERROR 71 



E«^T71 
EMTI 
EDTl 
EFTI 



.-ERROR 72 



EMT 72 
EHT1 
EDTl 
EFTI 



;fRROft 75 



EHT75 
EHT1 
EDTl 
EFTI 



•8? 
184 

la*^ 



002522 
00252* 
002526 
002550 



186 
187 
188 



002552 
00255* 
002556 
0025*0 



070242 
075552 
075*56 
07«*6 



070252 
075552 
075*56 
0755*6 



.•ERROR 74 



EMT74 
EHT1 
EDTl 
EFTI 



; ERROR 75 



Em 75 
EHT1 
EDT1 
EFTI 



189 

>H»1 



0025*2 
0025** 



0702 72 
075552 



; ERROR 76 



E'^T76 
EMTI 



J * 
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ERRONEOUS "lAE" ERROR OURIMG RECALIBRATE 



"ILF" ERROR DURING RECALIBRATE 



VI" ERROR DURING RECALIBRATE DUE TO "MOL" 



•10PI" ERROR DURING RECALIBRATE BECAUSE ON 
CYLINDER DIDNT DROP 



"iVC" ERROR DURING RECALIBRATE - 'VV" = 0 



ERRONEOUS "IVC" ERROR DURING RECALIBRATE - 



•"Stcl" ERROR DURING RECALIBRATE 



fKROR POINTER TABLE 



002S46 073456 
0025S0 073546 



19? 
195 
194 



002552 
002554 
002556 
002560 



195 
19t) 
197 



002562 
002564 
002566 
002570 



198 
199 
200 



002572 
002574 
002576 
002600 



201 
202 
203 



002602 
002604 
002606 
002610 



204 
205 
206 



002612 
002614 
002616 
002620 



207 
208 
209 



002622 
002624 
002626 
002630 



210 
211 
212 



002632 
002634 
002636 



070302 
073332 
073456 
073546 



070314 
073332 
073456 
073546 



070532 
073332 
073456 
073546 



070350 
073332 
073456 
073546 



070360 
073332 
073456 
073546 



070372 
073332 
073456 
073546 



070410 
073332 
073456 



K 4 
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EDTl 
EFTI 



: ERROR 77 



"DVC" OCCURRED DURING RECALIBRATE 



LOST 'WL" DURING RECALIBRATE - 'XtPl" = 0 



LOST 'VV DURING RECALIBRATE - "IVC" = 0 



EMT77 
EHT1 
EDTl 
EFTI 



; ERROR 100 

EMT100 
EHT1 
ED11 
EFTI 



.-ERROR 101 

EMT101 
EHT1 
EDTl 
EFTI 



.-ERROR 102 "ATA" DID NOT SET DURING RECALIBRATE 

EMT102 

EHT1 

EDTl 

EFTI ^ 

.ERROR 103 "OM" DID NOT RESET DURING RECALIBRATE 

EMT103 
EHT1 
EDTl 
EFTI 



.-ERROR 104 



"PIP" IS STIL SET AFTER RECALIBRATE 



EMT104 
EHT1 
EDTl 
EFTI 



.-ERROR 105 



UNEXPECTED "JLR" EWR DURING RECALIBRATE 



EMT105 

EHTl 

EDTl 



HQ 0049 



rZRWBO RM05/3/2 FCTNL TST 1 
(RROR POINTER TABLE 



0026AO 0755/.6 



?13 
?15 



0026A2 070A20 

0026A4 073332 

002646 075456 

002650 073546 



216 
2i7 
218 



002652 
002654 
002656 
002660 



219 

220 
221 



002662 
002664 
002666 
002670 



222 
223 
224 



002672 
002674 
002676 
002700 



225 
226 
227 



002702 
002704 
002706 
002710 



228 
229 
230 



002712 
002714 
002716 
002720 



231 
232 
233 



002722 
002724 
002726 
002730 



070430 
073332 
073456 
073546 



070450 
073354 
073474 
073564 



070462 
073360 
073476 
073566 



070470 
073360 
073476 
073566 



070476 
000000 
000000 
000000 



070512 
073364 
073500 
073570 
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EFT1 



SEQ 0050 



.•ERROR 106 JNEXPECTED "Rm" ERROR DURING RECALIBRATE 

EMT106 
EHT1 
EDIT 
EFT1 



.•ERROR 107 



EMT107 
EHTI 
EDT1 
EFT1 



; ERROR 110 



EMT110 
EHT110 
EDTIIO 
EFT110 



; ERROR 111 



EMT111 
EHT111 
EDT111 
EFTIII 



.•ERROR 112 



EMT112 
EHT111 
EDTin 
EFTIII 



.-ERROR 113 



EWT113 
0 
0 
0 



.•ERROR 114 



EMTIU 
EHT114 
EDT114 
fcFTIU 



'\JNS" ERROR DURING RECALIBRATE - AC POWER IS LOW 



CANNOT ACCESS MASS8US CONTROLLER VIA UNI8US 



NONEXISTENT DEVICE 



DEVICE NOT AVAILABLE 



BUS TIMEOUT-NED STATUS FAILURE 



DEVICE NOT AN RM05/3/2 



fRROR POINTER TABLE 



n 4 
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2V* 
?35 
236 



00P732 
0C2754 
002756 
002740 



J?7 
238 
239 



002742 
002744 
002746 
002750 



240 
241 
242 



002752 
002754 
002756 
002760 



243 
244 
245 



002762 
002764 
002766 
002770 



246 
24 7 
248 



002772 
002774 
002776 
003000 



249 

250 
251 



003002 
003004 
003006 
003010 



252 
?53 
254 



003012 
003014 
003016 
003020 



070520 
073332 
073456 
073546 



070530 
073332 
073456 
073546 



070540 
073332 
073456 
073546 



070550 
073332 
073456 
073546 



070560 
073332 
073456 
073546 



070570 
073332 
073456 
073546 



070600 
073332 
073456 
073546 



.•ERROR 115 



EHTl 
EDT1 
EFTl 



.-ERROR 116 



EMT116 
EHTl 
EDT1 
EFTl 



; ERROR H7 



EWT117 

EHTl 
EDT1 
EFTl 



; ERROR 120 



EMT120 
EHTl 
EDTl 
EFTl 



.-ERROR 121 



EMn21 
EHTl 
EDTl 
EFTl 



.-ERROR 122 



EMT122 
EHTl 
EDTl 
EFTl 



; ERROR 123 



EWT123 
EHTl 
EDTl 
EFTl 



RMCS1 NOT INITIALIZED BV UNJSUS 



RI>«A NOT INITIALIZED BY UNI8US 



RMCS2 NOT INITIALIZED BY UNIBUS 



RMERI NOT INITIALIZED BY UNIBUS 



RMAS NOT INITIALIZED BY UNIBUS 



RinRI NOT INITIALIZED BY UNIBUS 



RMDS NOT INITIALIZED BY UNIBUS 



ZWHHBO SM05/V2 rCTNL TST 1 
FR>)OR F^OI^TER TABLE 



?55 
256 
?57 



003022 
005024 
00TO26 
003030 



260 



003032 
003034 
003036 
003040 



261 
262 
?63 



C03042 
003044 
003046 
003050 



264 
26S 
266 



003052 
003054 
003056 
003060 



?<>7 
269 



00306? 
003064 
003066 
003070 



c»72 



003072 
005074 
005076 
005100 



.>7^ 



005102 
005104 
005106 
005110 



C70610 
073332 
073456 
073546 



070620 
073332 
073456 
073546 



070630 
073332 
075456 
073546 



070642 
073332 
073456 
073546 



070654 
075332 
073456 
073546 



070666 
073552 
075456 
073546 



070700 
075532 
075456 
0'"^54.6 
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.ERROR 124 



EMT124 
EHT1 
EDIT 
EFT1 



.-ERROR 125 



EMn25 
EHT1 
EDTI 
EFTI 



: ERROR 126 



EMn26 
EHTI 
EDTI 
EFn 



.ERROR 127 



EMn27 
EHTI 
EDTI 
EFTI 



;EPROR 130 



EMn30 
EHTI 
EDTI 
EFTI 



R»iEC2 NOT INITIALIZED Br LWIBJS 



RrriR2 NOT INITIALIZED BY UNI8US 



RMCSl NOT CLEARED BY CONTROLLER CLEAR 



\ 

\ 

RMBA NOT CLEARED BY CONTROLLER CLEAR 

\ 



RMCS2 NOT CLEARED BY CONTROLLER CLEAR 



;ERROR 131 RMERI NOT CLEARED BY CONTROLLER CLEA" 

EMT151 
EHTI 
EDTI 
EFTI 



; ERROR 132 



RHAS NOT CLEARED BY CONTROLLER CLEAR 



EMT152 
EHTI 
EDTI 
EFTI 



0031V 
0051 U 
00|116 

0CV2O 



07071? 
075332 
073456 
073546 



B S 
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;EaflOR 133 



E«T135 

EMTI 

EDTI 

eft: 



5fO 0053 



1 NOT CLEARED BV CONTROLLER CLE«R 



^79 



00312? 
003124 
005126 
003130 



282 
283 
284 



003132 
C03134 
003136 
005140 



285 
287 



003142 
003144 
005U6 
0051 SO 



070724 
075332 
073456 
073546 



0^0736 
073332 
073456 
073546 



070750 
073332 
073456 
073546 



;ERROR 154 



EWT134 
EHTI 
EOT! 
EfTI 



.-ERROR 155 



E«n35 
EHTI 
EOT! 
EfTI 



.-ERROR 136 



Em 156 
EHTI 
EDTI 
EFTI 



m>S NOT CLEARED BY CONTROLLER CLEAR 



RMEC2 NOT CLEARED Br CONTROLLER CLEAR 



WHR2 NOT CLEARED BY CONTROLLER CLEAR 



.^88 
290 



005152 
005154 
003156 
003160 



070762 
073332 
073456 
073546 



.-ERROR 137 



EMn37 
EHTI 
EDTI 
EFTI 



RMCSI WT CLEARED BY ERROR CLEAR 



^9] 
t'93 



003162 
003164 
003166 
003170 



2<J4 
2Q«; 
2% 



003172 
003174 
005176 
003200 



070772 
073332 
073456 
075546 



071002 
073332 
075456 
075546 



.ERROR 140 



EMTI 40 
EHT7 
EDTI 
EFTI 



;ERROR K1 



EMTKI 
EHTI 
EDTI 
EFTI 



.-ERROR 142 



RMCS2 NOT CLEARED BY ERROR CLEAR 



RMCS1 NOT CLEARED BY DRIVE CLEAR 



RfVS NOT CLEARED BY DRIVE CLEAR 



9 



?99 



005202 071012 

003204 073332 

003206 073456 

003210 073546 



500 
3C1 
302 



003212 
0032 U 
003216 
003220 



503 
304 
305 



003222 
003224 
C03226 
003230 



306 
307 
508 



003232 
003234 
003236 
003240 



309 
510 
511 



003242 
003244 
003246 
003250 



51? 
515 
514 



C03252 
003254 
003256 
003260 



SI'"* 



003262 
003264 
003266 
003270 



"8 



071022 
075332 
073456 
073546 



071032 
073332 
073456 
073546 



071042 
073332 
075456 
073546 



071052 
073332 
073456 
073546 



071062 
07355? 
073456 
073546 



0710^2 
073352 
C73456 
075546 



c s 
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EHT142 
EMTI 
EDTI 
EFT1 



.-EWOR 143 



.•ERROR 



Emi43 
EHT1 
EDTI 
EFT1 



.-ERROR 144 



EMn44 
EHT1 
EDTI 
Ff n 



J ERROR 145 



EMTUS 
EHT1 
EDTI 
EFT1' 



.•ERROR 146 



EMT146 

EHT1 
EDTI 
EFT1 



147 

t«T147 
EHT1 
EDTI 
EFT! 



.•ERROR 150 



EMT150 
EHT1 
EDTI 
EFT1 



151 



RMER1 NOT CLEARED BV DRIVE CLEAR 



RMAS NOT CLEARED BV DRIVE CLEAR 



RWRI NOT CLEARED BY DRIVE CLEAR 



RrriR2 NOT CLEARED BY DRIVE CLEAR 



RMER2 NOT CLEARED BY DRIVE CLEAR 



ft«£C2 NOT CLEARED BY DRIVE CLEAR 



>ffDlU« NOT ON LINE 



;«»«fB: mi'i/^/d fCTNL tst i 

^UfiOH K)INTER TABLE 



00527? 
005274 
005276 
005500 



52'. 
522 
525 



005502 
005504 
005506 
005510 



071102 
075552 
075456 
0755^6 



071114 
075552 
075456 
075546 



0 5 
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E«T151 
EHT1 
EDTl 
EFT1 



.EWOR 152 



EWT152 
EHT1 
EDTl 
Ef T1 



DRIVE FAULT 



524 
525 
526 



005512 
005514 
005516 
C05520 



527 
!28 
529 



005522 
005524 
003526 
005550 



5<0 
551 
552 



005552 
005554 
005556 
005540 



555 
554 
555 



005542 
005544 
005546 
005550 



556 
557 
558 



005552 
005554 
005556 
005560 



^59 
540 

541 



071126 
075552 
075456 
C75546 



071144 
075552 
075456 
075546 



071162 
07555? 
07545t) 
075546 



071174 
075552 
075456 
075546 



071206 
073552 
075456 
075546 



; ERROR 155 



EMT155 
EHT1 
EDTl 
EFT1 



.•ERROR '54 



EMT154 
EHTI 
EDT1 
EFTl 



; ERROR 155 



EMn55 
EHTI 
EDTl 
EFTl 



.•ERROR 156 



EMn56 
EHTI 
EDTl 
EFTl 



.ERROR 157 



UNSAFE SHOULD BE SET BECAUSE DVC IS SET 



UNSAFE SHOULD NOT BE SET, AC IS LOW 



VOLUMP VALID NOT SET BY PACK ACK 



OFFSET MODE NOT SET BY OFFSET fOITIAND 



OFFSET MODE NOT RESET BY RTC COMMAND 



005^0? 07'?20 



EMT157 
EHTI 
EDTl 
EFTl 



.•ERROR 160 RMOF NOT RESET BY RIP COMMAND 
EMT160 



7»*WBC WOS/5/2 f CTNL ^SI ' 
ffihUR POINTER T/IBLE 

003364 073332 
003366 073456 
003370 073546 



342 
543 
344 



003372 
003374 
003376 
003400 



345 
346 
547 



003402 
005404 
003406 
C03410 



348 
349 
350 
351 



00341? 
005414 
003416 
003420 



552 
353 
35<. 



003422 
003424 
003426 
003430 



555 
556 
557 



003432 
003434 
005436 
003440 



5S8 
55<J 
5t)0 



005442 

005444 
005446 
005450 



071250 
073332 
075456 
073546 



07t242 
073332 
073456 
073546 



075126 
075414 
073512 
073602 



071264 
073352 
075456 
075546 



07}272 
075332 
075456 
075546 



071300 
075352 
073456 
075546 



50f 
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EHTl 
EDTl 
EFn 



.-ERROR 161 



EMT'61 
EHTl 
EDTl 
EFTl 



.•ERROR 162 



EMT162 
EHTl 

Eon 

EFTl 



.-ERROR 163 



EI1T336 
EHT356 
ED T 336 
EFT336 



; ERROR 164 



EMT164 
EHTl 
EDTl 
EFTl 



; ERROR 165 



EMT165 
FHT1 
EDTl 
EFTl 



.•ERROR 166 



RMDA NOT RESET 8Y R]P COMMAND 



RMOC NOT RESET BY RIP COMMAND 



DATA WAS ECC CORRECTED BUT DOES NOT COMPARE WITH 
WRITE BUFFER 



OPI SHOULD NOT BE SET 



IVC SHOULD NOT BE SE^ 



lAE SHOULD NOT BE SET 



EMT166 
EHTl 
EDTl 
EFTl 



.-ERROR 167 NEM SHOULD NO^ BE SET 
EMT167 



003454 07353^ 
0034S6 

003*60 0'/'3546 

365 
366 

00346? 071 3 U 

003464 073332 

003466 0754S6 

003470 073546 



?67 
368 
36^ 



00347? 
003474 

003476 
003000 



570 

m 

37? 



00550? 
OC3504 
003506 
003510 



575 
5^-4 
37^ 



00551? 
0035U 
00J516 
0035?0 



576 
577 
578 



0035?? 
0035?4 
0035j6 
003550 



580 
581 



00353? 
003554 
005536 
005540 



58? 
583 
584 



V.HJ554? 
DC 55<.4 



071 3?6 
07333? 
073456 
073546 



071536 
C7355? 
075456 
073546 



071 546 
07333? 
073456 
075546 



071356 
07335? 
075456 
075546 



071570 
07535? 
075456 
075546 



07' 576 
07333? 
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EHT1 

Eon 

Efn 



.-ERROR 170 INCORRECT 'yQC STATUS DU^NG DIAGNOSTIC MODE 



EMT170 
EHTl 
£DT1 
Ef T1 



; ERROR 171 



"ATA"" NOT SET DURING RETURN TO CENTERLINE 



EMT171 
EHTl 
PDT1 
EFT1 



.-ERROR 17? 



•"ATA" NOT SET BY -OF SET COMMAND 



EMT17? 
EHTl 
EDT1 
fcFTI 



.-ERROR 173 



RMER? NOT INITIALIZED Br UNIBUS INIT 



EMT173 
EHTl 
EDT1 
EFT1 



/ 



.-ERROR 174 RMER? NOT INITIALIZED BY CONTROLLER cIeAR 

EMTVA ^ ' I 
EHTl 

EDT1 j 

EFT1 / 



.-ERROR 175 



SELECTED DEVICE IS IN URITE PROTECT 



Emi75 
EMT1 
EDT1 
Ef T1 



.-ERROR 176 



CAWiOT SET DIAGNOSTIC MODE 



EMT176 
EHTl 



FOitDR POI««vEf) TABLE 



005546 073456 
003550 073546 



385 

386 
387 



003552 
003554 
003556 
003560 



;?8 

389 
5<y0 



003562 
003564 
003566 
003570 



591 
792 
397 



007572 
003574 
003576 
003600 



^94 
795 
796 



007602 
003604 
007606 
003610 



597 

';98 

799 



007612 
007614 
005616 
003620 



400 
401 
402 



005622 
005624 
005626 
005650 



40^ 
404 
405 



007672 
005654 
005656 



000000 
000000 
000000 
000000 



071406 
075332 
073456 
073546 



071420 
073532 
077456 
077546 



071432 
077732 
073456 
073546 



071444 
073772 
073456 
073546 



07U56 
077532 
075456 
075546 



0714 74 
075332 
075456 



G 5 
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EDTI 
EFT! 



.-ERROR 177 

0 
0 
0 
0 



.-ERROR 200 



—RESERVED FOR POWER MONITOR BIT FAILURE 



INCORRECT 'TPIP" STATUS DURING DIAGNOSTIC HOi 



EWT200 
EHT1 
EDTI 
EFTI 



.-ERROR 201 



EMT201 
EHT1 
EDTI 
EFTI 



INCORHECT 'V/Rl" STATUS DURING DIAGNOSTIC MODE 

) 



.-ERROR 202 INCORRECT "SKI" STATUS DURING DIAGNOSTIQ M9PE 



EriT202 
EHT1 
EDTI 
EFTI 



.-ERROR 203 INCORRECT "'DVC" STATUS DURING DIAGNOSTIC MODE 
EMT203 

EHT1 , 
EDTI 

EFTI 1' 



.-ERROR 204 



EMT204 
EHT1 
EDTI 
EFTI 



.-ERROR 205 



VV" WAS NOT RESET BV MAINTENANCE pNIT READy' 

I 



SELECTED DEVICE HAS A PERSISTENT "SKr^ERROR 



'II 



EMT205 

EHTI 

EDTI 



H 5 
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EfTI 



«.C8 



C0?644 
0C5646 
003650 



005652 
003654 
003656 
003660 



414 



003662 
005664 
003666 
0036P0 



4^5 
416 
417 



003672 
003674 
003676 
003700 



418 
419 
420 



005702 
003704 
003706 
003710 



421 

•.22 
423 



003712 
0037U 
005716 
003720 



424 
42S 
426 



003722 
003724 
0057^6 
0O37B0 



071504 
073332 
073456 
C 73546 



071514 
073352 
073456 
073546 



071526 
073352 
073456 
073546 



071534 
073332 
073456 
073546 



071550 
073332 
073456 
073546 



071564 
073332 
073456 
073546' 



071574 
0 7 3344 
073466 
073556 



; ERROR 206 



EMT206 
EHTI 
EDM 
EFTI 



;ERR0R 207 



EMT207 
EHT1 
EDT1 
EFTI 



; ERROR 210 



EMT210 
EHT1 
EDT1 
EFTI 



; ERROR 211 



EMr211 
EHT1 
EDT1 
EFTI 



.•ERROR 212 



EMT212 
EHT1 
EDT1 
EFTI 



.-ERROR 213 



EMT213 
EMT1 

Eon 

EFTI 



.•ERROR 214 



EMT2U 
EHr2 
EDT2 
EFT2 



•18£" DID NOT SET DURiNG DIAGNOSTIC MODE 



UNEXPECTED LOSS OF 'WOL" - MEDIUM IS OFF LINE 



UNEXPECTED LOSS OF VOLUME VAl ID - 'VV = 0 



UNEXPECTED MECHANICAL MOTION - 'PJP" 1 



UNEXPECTED DEVICE FAULT - 'DVC" - 1 



UNEXPECTED SEEK INCOMPLETE ERROR - "SKI" - 1 



DRIVE EXECUTED A RECALIBRATE WITH ERROR SB 



1 5 
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00373? 
00375^ 
003756 
003740 



00574^ 
003744 
003746 
003750 



4 35 



003752 
003754 
003756 
003760 



436 
43/ 
4 38 



003762 
005764 
003766 
003770 



4^9 
440 
441 



003772 
003774 
0C3776 
004000 



442 
443 
444 



004002 
004004 
004006 
004010 



445 
446 
44 7 



004012 
004014 
004016 
0040?0 



C716U 
073344 
073466 
C73556 



071626 
073332 
073456 
073546 



071636 
073332 
073456 
073546 



071646 
073332 
073456 
U73546 



071656 
073332 
073456 
073546 



071666 
073332 
073456 
073546 



071676 
073370 
073502 
075572 



; ERROR 215 



EMT215 

eh:2 

EDr2 
EFT2 



.-ERROR 216 



EMT216 
EHT1 
EDTI 
EFT1 



.•ERSOR 217 



EMT217 
EHTI 
EDTI 
EFT1 



.•ERROR 220 



EMT220 
EHTI 
EDTI 
EFTI 



; ERROR 221 



EMT221 
EHTI 
EDTI 
EFTI 



; ERROR 222 



EMT222 
EHTI 
EDTI 
EFTI 



; ERROR 223 



EMT223 
EHT223 
EDT223 

ef:223 



DRIVE DID NOT DETECT "IVC" ERROR DURING RECALIBRATE 



INCORRECT "IVC" STATUS 



INCORRECT "lAE" STATUS 



INCORRECT 'UE" STATUS 



INCORRECT 'lOPI" STATUS 



RM DID NOT DETECT RMR ERROR 



RM DID NOT DETECT PARITY ERROR ON WA^SBUS CONTROL BU 



MACRO VW.OO n:4?:<?8 



4S0 



004022 
004024 
004026 
004030 



4S2 
453 



004032 
004034 
004036 
004040 



4S4 

4S5 

45-'; 



C04042 
004044 
004046 
004050 



/.5^ 
458 
459 



004052 
004054 
004056 
004060 



460 
461 
46? 



004062 
004064 
004066 
004070 



465 
464 
465 



004072 
004074 
0040^6 
004100 



466 
467 
468 



004102 
004104 
004106 
004110 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 

ooocoo 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



.-ERROR 224 

0 
0 
0 

c 



;t«R0R 225 

0 
0 
0 
0 



.-ERROR 226 

0 
0 
0 
0 



.ERROR 227 

0 
0 
0 
0 



;CRR0R 230 

0 
0 
0 
0 



.•ERROR 231 

0 
0 
0 
0 



.-ERROR 232 

0 
0 
0 
0 



UNUSED 



UNJSED 



UNUSED 



UNUSED 



UNUSED 



UNUSED 



UNUSED 
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SEO 0061 



^Z««»eO RM05/3/2 FCTNL TST 1 
ERI^QP POINTER TABLE 
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SEO 006 



470 
471 



004112 
004114 
004116 
004120 



4 7? 
47? 
474 



004122 
004124 
004126 
0041 30 



4^5 
476 
477 



004132 
b04134 
004136 
004140 



478 
479 
480 



004142 
004144 
004146 
004150 



48 1 
482 
485 



004152 
004154 
004156 
004160 



484 
485 
486 



004162 
004164 
004166 
004170 



487 
488 
489 



004172 
004174 
004176 
004200 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



; ERROR 233 

0 
0 
0 
0 

.•ERROR 234 

0 
0 
0 
0 

.•ERROR 235 

0 
0 
0 
0 



.•ERROR 236 

0 
0 
0 
0 



.•ERROR 237 

0 
0 
0 
0 



.•ERROR 240 

0 
0 
0 
0 



.ERROR 241 

0 
0 
0 
0 



UNUSED 



UNUSED 



UNUSED 



UNUSED 



UNUSED 



UNUSED 



UNUSED 



490 
491 



.•ERROR 242 



JNte*CED 



JRireO C|«0S/^/2 FCTNL TST 1 
ffiCiCR POINTER TABLE 



492 



OOA202 
00A2(K 
004206 
004210 



493 
494 
495 



004212 
004214 
004216 
004220 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



496 

497 
498 



004222 000000 

004224 000000 

C04226 000000 

004230 000000 



499 
500 
501 



004232 
004234 
004236 
004240 



502 
503 
504 



004242 
004244 
004246 
004?50 



505 
506 
507 



004252 
004254 
004256 
004260 



508 
509 
5T0 



004262 
004264 
004266 
004270 



000000 
000000 
000000 
000000 



071752 
073332 
073456 
073546 



071 762 
073332 
073456 
073546 



071774 
075332 
073456 
075546 



51] 
5^2 
513 
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0 
0 

— 0 

0 



.•ERROR 243 

0 
0 
0 
0 



; ERROR 244 

0 
0 
0 
0 



; ERROR 245 

0 
0 
0 
0 



; ERROR 246 



EMT246 
EHTI 

Eon 



.•ERROR 247 



EMT247 
EHTI 
EDTl 
EFTl 



.-ERROR 250 



UNUSED 



UNUSED 



UNUSED 



"ATA" NOT RESET BY GO WMfcN "ERR" - 0 



"ATA" NOT RESET BY WRITING RriAS 



"ATA" WAS RESET BY GO WHEN *tftR" - 1 



EMT250 
EHTI 
EDTl 
EFTl 



.-ERROR 251 PROGRAM INTERRUPT WAS NOT GENERATED 



'7RJ«tB0 FCTNL TST 1 
tRROR POINTER TABLE 

00A?72 0720^0 

OOA2.4 0733A4 

0M276 073466 

004300 073556 

5U 
515 
516 

004302 072016 

004304 073344 

004306 073466 

004310 073556 



517 
518 
519 



004312 072024 

004314 073332 

004316 073456 

C04320 073546 



520 
521 
522 



004322 072042 

004324 073332 

004326 073456 

004530 073546 



523 
524 
525 



004332 072052 

004334 073332 

004336 073456 

004340 073546 



526 
527 
528 



004342 
004344 
004346 
004350 



529 
530 
531 



004^52 
004354 
004356 
004360 



072062 
073402 
073502 
073572 



072072 
073332 
073456 
073546 



552 
553 
554 
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EMT251 
EHT2 
EDT2 
EfT2 



SEO 0064 



.•ERROR 252 



PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED 



EMT252- 
EHT2 
EDT2 
EFT2 



.•ERROR 253 tFFSET MODE WAS NOT RESET BY WRITING RMDC 

EMT253 
EHT1 
EDT1 
EFT1 



.-ERROR 254 



INCORRECT "ILF" STATUS 



EMT254 
EHT1 
EDTl 
EFT1 



; ERROR 255 



INCORRECT "ATA" STATUS 



004562 072104 



EMT255 
EHT1 
EDTl 
EFT1 



.•ERROR 256 INCORRECT "ILR" STATUS 

EMT256 
EHT256 
EDT223 
EFT223 

.•ERROR 257 INVALID lAE STATUS DURING SE/^R([^^ COMMAND 

EMT257 
EHT1 
EDTl 
EFT1 

.•ERROR 260 ."IVC" WAS NOT DETECTED DURING SEARth COMMA\D 
EMT260 



ZaWMBO W105/5/2 niNL 1ST 
FRROR POINTER T/«LE 

0(K364 07333? 
004366 073456 
004370 073546 



555 
536 
537 



004372 
004374 
004376 
004400 



558 
539 
540 



004402 
0044C4 
004406 
004410 



072116 
073332 
073456 
073546 



072136 
073332 
'3456 
' '/ '546 
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EHT1 
EDT1 
EFTI 



; ERROR 261 



DRIVE EXECUTED SEARCH WITH ERROR SET 



EMT261 
EMT1 
EDTI 
EFTI 



•w ERROR 262 



"LQC" ERROR NOT SET DURING DIAGNOSTIC MODE 



EMT262 
EHT1 
EDTI 
EFTI 



SEO 006' 



541 
542 
543 



004412 072146 

004414 073332 

004416 073456 

004420 073546 



.ERROR 263 



"SKI" ERROR DURING SEARCH COMIWlD 



EMT263 
EHT1 
EDTI 
EFTI 



544 
545 
546 



004422 
004424 
004426 
004430 



072156 
073332 
073456 
073546 



.•ERROR 264 



•IVC" ERROR DURING SEARCH - LOST VOLUME VALID 



EMT264 
EHT1 
EDTI 
EFTI 



547 
548 
549 



004432 
004434 
004436 
004440 



550 
551 
552 



004442 
004444 
004446 
004450 



072176 
073332 
073456 
075546 



072216 
075532 
073456 
075546 



555 
554. 
«55 



; ERROR 265 



ERRONEOUS IVC ERROR DURING SEARCH - VOLlflE IS VALID 



EMT265 
EHT1 
EDTI 
EFTI 



.-ERROR 266 



DEVICE FAULT (DVO DURING SEARfH 



EMT266 
EHT1 
EDTI 
EFTI 



; ERROR 267 



SKI SHOIAO HAVE BEEN SET BECAUSE '^.I'-li'-^ 
ADDRESS IS TOO LARGE 



EHT267 



004454 02??? 
0044% QTV,^ 
004460 C73546 

5S8 
S59 



00446? 
004464 
004466 
004470 



560 

062 
%? 



004472 
0O4474 
004476 
C04500 



0722^6 
075??2 
075456 
C73546 



072262 
07?532 
075456 
075546 



564 
565 
566 



004502 072500 

004504 0733?2 

004506 073456 

004510 073546 



567 
568 
56V 



004512 
004514 
004516 
004520 



570 
571 
572 
573 



004522 
004524 
0045|6 
004550 



574 
575 
576 
577 



004532 
004554 
004536 
004 540 



072316 
073332 
073456 
073546 



072334 
073532 
073456 
073546 



072352 
073332 
075456 
073546 



*>78 



•MCnC y04.0C 
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EMT1 
EDTl 

E*^n 



SEO OOU 



:EmOR 270 OPI EMOR Di^iniG SEARCH BECAJSE MOL 

EWT270 
EMU 
EDTl 
EfTI 



;E»»ROR 271 



OPI ERROR OORING SEARCH BECAUSE ON CYLINDER 
DIDN'T DROP 



EMT271 
EHTI 

ton 

EFTI 



.-ERROR 272 



LOST HOL DURING SEARCH. OPI IS NOT SET 



EHTI 
EDTl 
EFTI 



.-ERROR 273 



PIP STIL SET AFTER SEARCH 



EWT273 
EHTI 
EDTl 
EFTI 



.•ERROR 274 



PARITY ERROR OCCURRED WHILE WRITING REWTE 
REGISTERS BUT MXF DID NOT SE^ 



EMT274 
EHTI 
EDTl 
EFTI 



; ERROR 275 



MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA 
COMMAND STARTED 



EMT275 
EHTI 
EDTl 
EFTI 

.•ERROR 276 "DPI" ERRW DURING DATA TRAM^'ER BETAUSE '*I0l" WAS 



S80 
581 



004546 
004550 



582 
583 
584 
585 
536 



004552 
004554 
004556 
004560 



587 
588 
589 
590 



004562 
004564 
004566 
004570 



591 
S92 
09^ 
594 



00457? 
004574 
004576 
004600 



595 
596 
597 



004602 
C04604 
004606 
004610 



598 
599 
600 



004612 
004614 
004616 
004620 



601 
602 
60^ 



004624 
004626 



072364 
073332 
073456 
073546 



072400 
073332 
073456 
073546 



072416 
073332 
073456 
073546 



072436 
07333? 
073456 
073546 



072460 
07333? 
073456 
073546 



072472 
073332 
073456 
073546 



072504 
073332 
073456 
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Em276 
EHTI 
EDTl 
EfT^ 



EWOR 277 



EMT277 
EHTI 
-DTI 
EFT1 



;ERROP 300 



EMT300 
EHTI 
EDTl 
EFT! 



.•ERROR 301 



E''.T301 
EHTI 
EDTl 
EFT1 



; ERROR 30? 



EMT302 
EhTI 
EDTl 
EFT1 



; ERROR 303 



EMT303 
EHTI 
EDTl 
EFT1 



: ERROR 304 



EMT304 
EHTI 

ton 



SEO 0067 



ZEftO 



■TDPI" ERROR DURING DATA TRANSFER BECAUSE 1) ON 
CV.INDER DIDN'T DROP OR 2) SEARCH TIMED OUT Oft 
3) RUN TIMED OUT 



"JVC" ERROR DURING DATA TR-ANSFER BECAUSE VOLUME 
UAS NOT VALID 



ERRONEOUS "iVC" ERROR DURING DATA TRANSFER - VOLUME 
IS VALID 



"ILR" ERROR DURING DATA TRANSFER 



"ILr" ERROR DURING DATA TRANSFER 



"mi" ERROR DURING DATA TRANSFER 
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EFT1 



SEQ 006» 



'/6 



00^.65? 

00<.636 
004640 



072516 
075332 
073456 
C73546 



; ERROR 305 



EMT305 
EHTI 
EDT1 
EFT1 



INCORRECT "lAE" STATUS DURIMG DATA TRA.USFER 



tC7 
6J9 



004642 
004644 
004646 
004650 



072530 
073332 
073456 
073546 



; ERROR 306 



EMT306 
EHTI 
EDT1 
EFT1 



"SKJ" ERROR DURING DATA TRANSFER 



6^0 
611 
612 



004652 
004654 
004656 
004660 



072540 
073332 
073456 
073546 



.•ERROR 307 



Em307 
EHTI 
EDT1 
EFT1 



DRIVE DID NOT DETECT SKI ERROR DUE TO CYLINDER 



615 
614 
615 



004662 
004664 
004666 
004670 



072560 
075332 
073456 
073546 



.•ERROR 31 C 



EMT310 
EHTI 
EDT1 
EFT1 



DEVICE FAULT DURING DATA TRANSFER 



616 
617 
618 



004672 
004674 
004676 
004700 



0725/2 
073552 
073456 
073546 



;ERR0R| 



311 

Em5n 

EHTI 
EDT1 
EFT1 



LOSS OF Bl^ CLOCK DURING DATA TRANSFER 



b19 
620 
621 



004702 
004704 
004706 
004710 



072604 
073552 
075456 
073546 



; ERROR 312 



EMT312 
FHT1 
EDT1 
EFT1 



LOSS OF SYSTEM CLOCK DURING DATA TRANSFER 



622 
62 J 
624 



004712 
004714 
004716 
004 7?0 



072616 
073332 
075456 
073546 



; ERROR 513 



EMT315 
EHTI 
EDTI 
EFT1 



UNSAFE ERROR DURING DATA TRANSFER (DVC = 0) 



E 6 
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SEO 006** 



004722 
004724 
004726 
: 04 730 



072656 
073332 
073456 
073546 



630 



004732 072650 

004754 073332 

0C4756 073456 

004740 073546 



651 
655 



004742 
004744 
004746 
004750 



'.54 
'i55 



004752 
004 754 
00Vf6 
004760 



657 
658 
65'5 



004 762 
004764 
004766 
004770 

640 

004772 
C04 774 
004 776 
005000 

64< 

6*4 • ^ 

00500? 
00500< 
• I 1005006 
. ,005010 



072662 
Q75352 
573456 
073546 



072674 
075332 
075456 
U73546 



072704 
073352 
073456 
073546 



072714 
073532 
073-, 56 
Q75546 

I 



'.072724 
1073332 
073456 
^73546 



: ERROR 3U 



.-ERROR 



EMT314 
EHT1 
EDTI 
EFT! 



; ERROR 315 



EMT315 
EHTI 
EDTI 
EFT! 



.•ERROR 316 



FMT316 
tHTI 
EDTI 
EFT! 



.-ERROR 317 



EMT317 
EHTI 
EDTI 
EFT1 



320 

EMT32() 
EHTI 
EDTI 
EFT1 



.■ERROR ^21 



EMT321 
EHTI 
EDTI , 
EFT1 



.•ERROR 322 



EWT522 

lEHTI 
EDTI 

rr 



DRIVE TIMING ERROR DURING DATA TRANSFER 



WRITE LOCK ERROR 



ERRONEOUS WRITE LOCK ERROR 



HEADER CRC ERROR DURING DATA TRANSFER 



FORMAT ERROR DURING DATA TRANSFER 



HEADER COMPARE ERROR DURING DATA TRANSFER 



HEADER ERRORS SHOULD NOT BE SET 



^£ . 

^ 0050V 072712 . 

• 0050K 073552 , 

, 005016 • 0754561 

00502? Q727i.? 

005024 073332 I 

005D26 073^56 ' 

005030 07B546 



65 



I 

65^ 



00^034 
005036 
005040 



00504^ 
005044 
\005046 
00^050 



072754 
073?3? 
073456 
073fif6 



'I 



tl58 
659 
660 



005052 
005054 
005056 
0Q|060 



66'1 
662 
66^ 



0b5062 
005064 
005066 
005070 



072766 
073332 
073456) 
073646 



073004 
033332 
07*3456 
Oi'3546 



073016 
C73532 
,073456 * 
IOf'3546 



6^' 



005072 073026 

005074 0753^2 

005C'6 073A56 

00*; 100 0^'5<.t 
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;fr<RdR 323 



EnT323 

EHTI 
EDTI 
EFTI 



;tSR0a 324 



EMT324 

EHTI 
EDTI 
EFTI 



.•ERROR 325 



EMT325 
EHTI I 
EDTI ' 
EMI 



.•ERROR 326 



E^)T326 
EHTI 
EDTI 
Ef T1 



.•ERROR 327 



E(^T327 
EHTI 
EDTI 
EFTI 



DATA CHECK ERROR DURING DATA TRANSFER 



COr<REC TABLE DATA CHECK ERROR DURING DATA TRANSFER 



UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 



DATA PARITY ERROR DURING READ COMWAND 



OFFSET MODE NOT RESET BY WRITE COMMAND 

1 



;E<?ROR 330 1 DATA PARITY ERROR DURING WRITE COMMAND 

EMT330 
EHTI 



EDTI 

eftI 



.-ERROR 331 



WRITE CLOCK FALURE DURING WRITE COMMAND 



EMT331 

EHTil 
EDH 
EMI 



!■ 



fRROB POINTER Ti^|6 , 



I-:' 



I 

I 005102, 0730^0 

(I 005104 075332 

005106 073456 
005110 073^46 

670 
671 

672 t' 

00511? ,07305? 
0051 U 1 0^^5532 
005116 '073£56 
0p5120 073:>46 



h 



67^ 
6^4 
675 



ioSI 22 0730^0 

C05124 07r3?32 

005126 073456 

005130 07'3546 



676 
677 
678 



005132 
005134 
005156 
005140 



b7y 
680 
68' 



005142 
005144 
005146 
005150 



073106 
073332 
073456 
073546 



073126 
073414 
073512 
073602 



682 
683 
684 



685 
686 
687 



005152 lo73156 

005154 073'.26 

005156 073522 

005160 073612 



005162 073146 

005164 073414 

005166 073512 

005170 073602 
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; ERROR 532 



DATA LATE ERROR DURING DATA TRANSFER 



E«T332 
EHTl 
EDTl 
EFTl 



.•ERROR 333 



PIP STIL SET AFTER DATA TRANSFER - SKI 



EMT333 
EHTl 
EDTl 
EFTl 



.•ERROR 334 



LOST MOL DURING DATA TRANSFER - OPl = 0 



EMT334 
EHTl 
EDTl 
EFTl 



.•ERROR 335 LCST VOLUME VALID DURING DATA TRANSFER - IVC 

E«T335 
EHTl 
EDTl 
EFTl 

;ERROfi 336 DATA READ DOES NOT COMPARE WITH DATA WRITTEN 

EMT336 
EHT336 
EDT336 
EFT336 



.•ERROR 337 WRITE CHECK ERROR NOT DETECTED 

EMT337 
EHT337 
EDT337 
EFT337 



.•ERROR 340 WRITE THECK ERROR AT UNEXPECTED ADDRESS 

EMT340 
EHT336 
EDT536 
EFT336 



688 
68^^ 



.•ERROR 341 INCORRECT DATA DURING WRITE CHECK ERROR 



ftiUCf* POINTER TABLE 



690 



005172 
005174 
005176 
005200 



691 
692 
^93 



005202 
005204 
005206 
005210 



075160 
0754K 
075512 
073602 



075166 
073552 
075456 
075546 



694 
695 
696 



005212 075200 

005214 075332 

C05216 073456 

005220 073546 



69' 
698 
699 



00522? 075212 

005224 073440 

005226 073532 

005230 073622 



700 
701 
702 



005252 
005234 
005256 
0J5240 



703 
704 
705 



005242 
005244 
005246 
005250 



706 
707 
708 



005252 
005254 
005256 
005260 



073224 
073332 
073456 
073546 



075234 
073332 
073456 
073546 



073250 
073532 
075456 
073546 



T9 
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E;MT541 
EHT556 
EDT536 
En536 



.•ERROR 542 



6MT342 
EHT1 
EDT1 
EFT1 



; ERROR 343 



EMT343 
EHT1 
EDTl 
EFT1 



.•ERROR 344 



EMT544 
EHT544 
EDT344 
£f T344 



.•ERROR 345 



EMT345 
EHT1 
EDTl 
Ef n 



.•ERROR 346 



EMT346 
EHT1 
EDTl 
EFT1 



"IVC" ERROR NOT DETECTED DURING DATA TRANSFfR 



•TER" NOT DETECTED DURING pATA TRANSFER 



"VCE" NOT DETECTED DURING DATA TRANSFER 



'BSE" NOT DETECTED DURING DATA TRANSFER 



HEADER ERROR WAS DETECTED W/ HCI SET 



/ERROR 347 DATA TRANSFER NOT ABORTED W/ COMP ERROR SET 

EMr347 
EHT1 
EDTl 
EFT1 



; ERROR ^50 



LOST VOLUME VALID DURING SEARCH - "IVC" 



Ffi!»Of< POINTER TABLE 

00526? 07^26? 

00S264 0755^2 

005266 075456 

005270 073546 
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EMT350 
EHTI 
EDTI 
EFT1 



SfO 0075 



7'5 
'14 



;FR«*0R 351 



"ATA" DID NOT SET DURING SEARCH 



005272 
005274 
005276 
005500 



715 
7'6 
717 



005502 
005304 
005506 
C05510 



7^8 
7^9 
720 



005512 
005314 
005516 
005520 



721 
722 
723 



005522 
005524 
005526 
005550 



075500 
075552 
075«.56 
075546 



075510 
000000 
000000 
000000 



075514 
075452 
075544 
075652 



075524 
073552 
073456 
073546 



Em551 
EHTI 
EDTI 
EFTI 



;EFiR0R 552 PROGRAM TIMEOUT WHILE TESTING RMLA 

EMT552 
0 
0 
0 



;ERR0R 553 LOOK AHEAD TEST cauS 

EMT355 
EHT553 
EDT353 
EFT555 



.ERROR 554 BSE SHOULD NOT BE SET 

EMT554 
EHTI 
EDTI 
EFTI 



724 
725 



;PUT ERROR TABLE HERE 



ERROR TABLE USAGE 



6 

7 

8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
?0 
21 
22 
25 
2A 
25 
26 
27 
28 
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SfO 0074 



.SBTTL ERROR TABLE USAGE 

THE ERROR TA8LE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR 
NUMBER. I.E.. 

EMT - ERRO-'? MESSAGE TABLE ADDRESS 
EHT - ERROR HEADER TABLE ADDRESS 
EDT - ERROR DATA TABLE ADDRESS 
EFT - ERROR FORMAT TABLE ADDRESS 

THE EMT ENTRy IS JHE ADDRESS OF' THE TABLE OF ERROR MESSAGE STRINGS 
FOR THE PARTICUL'AR ERROR. EACH ERROR MESSAGE TABLE LISTS THE ADDRESS 
OF ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND 
TYPED BY THE ERROR TYPE SUBROUTINE. IF THE EMT ENTRiT IS ZERO, THERE IS 
NO MESSAGE TO BE "YPED FOR THE ERROR. 

SIMILARLY. THE EHT. EDT. AND EFT ENTRIES ARE ADDRESSES OF TABLES 
OF HEADER, DATA AND FORMAT INFORMATION FOR A GIVEN ERROR. EACH ENTRY 
IN THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF 
DATA. HOWEVER. EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND 
HEADER. THAT IS, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA, 
BUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE 
MUST ALSO HAVE A FORMAT. 

IN SUMMARY. 

EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE, 

EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS 

OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT. 



'"ZRWBO RM05/3/? FCTNL TST 1 
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MACRO V04.00 



K 6 

4-APR-81 11:43:i^8 PAGt 10 



3 005332 
A 00533^ 

5 005336 

6 005340 
J0534A 



0M600 
005740 
022626 
104401 
000417 



005460 
005466 
005474 
005502 
005510 
005516 
005524 
005532 
005540 
005546 
005552 
005556 
005564 
005572 



005600 
005604 
005612 
005620 
005626 
005634 



012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
005037 
112737 
012737 
012737 



005346 





UU54U4 






r 


AAC / A/ 


A 1 AA/ 




3 


005406 


104402 




9 


005410 


000240 




"0 








1 1 








1 T 

1 d 








1 3 














1 77777 


15 


005420 


000402 




16 








1? 


C05422 


005037 


0C1326 


18 


005426 


000240 




19 


005430 


005227 


000000 


20 


005434 


001375 




21 


005436 


000005 




22 








23 










005440 


012706 


001114 




005444 


005026 






005446 


022706 


001154 




005452 


001374 






005454 


012706 


001100 



061650 
000340 
062540 
000340 
065574 
000340 
065702 
000340 
041466 
001206 
001210 
000001 
005564 
005572 



013746 000004 

012737 005640 

012737 177570 

012737 177570 

022777 1 77777 
001012 



001 326 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
041460 



001131 
001122 
001124 



000004 
001154 
001156 
1 73320 



.•THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 
BADTMO 



;;65$: 
64$: 



.S8TTL 
START1 ; 



MOV 
TST 
CMP 
TYPE 
BR 

.ASCIZ 

MOV 

TYPOC 

NOP 



(SP),RO 
-(RO) 

(SP)+.(SP)* 
.65S 
64$ 



SAVE PC WHERE THE TIME OUT OCCURED 
ADJUST PC -2 
RESTORE STACK POINTER 
.-TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 



<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/ 



RO.-(SP) 



START OF PROGRAM 



MOV 
BR 



START: CLR 
START2: NOP 
INC 
BNE 
RESET 



*-1,CHGADR 
STAR 72 

CHGADR 

#0 
.-4 



; SETUP FOR TYPING OUT PC 

;PUT 'HALTCOJ* INST,?UCTION HERE If YOU WISH 
;T0 STOP ON UNEXPECTED TIMEOUT. 



.•CHANGE RH/RM BUS ADDRESS 



:N0 CHANGE IN ADDRESS 

TTY LOOP, WAIT FOR INCREMENT 
OF WORD 

RESET THE WORLD 



.S87TL 
;; CLEAR 



0056% 000403 



INIT 
THl 
MOV 

CLR 
CMP 
BNE 
MOV 
INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
M0V8 
MOV 
MOV 
SIZE FOR A 
EQUAL TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 

BR 



lALlZE THE COMMON TAGS 
COMMON TAGS ($CMTA6) AREA 
#$CMTAG.R6 
(R6)* 
*SWR.R6 
.-6 

^STACK.SP 
FEW VECTORS 
*$SCOPE,a*IOTVEC 
<r340.a#IOTVEC*2 
*$ERROR.S#EMTVEC 
#340.*rEMTVEC-»2 
*$TRAP,a/»TRAPVEC 



*340,a#TRAPVEC+2; LEVEL 7 



4rSPURDN.a#PURVEC 
*340,a#PWRVEC*2 
$ENDCT.$EGPCT 
$TIMES 
$ESCAPE 
*1,$ERMAX 
*.,$LPADR 
*..$LPERR 



FIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 

DONE? 

LOOP BACK IF NO 
SETUP THE STACK POINTER 



;IOT VECTOR FOR SCOPE ROUTINE 
LEVEL 7 

;EMT VECTOR FOR ERROR ROUTINE 
LEVEL 7 

.■TRAP VECTOR FOR TRAP CALLS 



.-POWER FAILURE VECTOR 
LEVEL 7 

SETUP END-OF -PROGRAM COIMTER 
INITIALIZE NUMBER OF ITERATIONS 
CLEAR THE ESCAPE ON ERROR ADDRESS 
ALLOW ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE ERROR LOOP ADDRESS 
HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
■-1". SETUP FOR A SOFTWARE SWITCH REGISTER. 



aXfERRVEC,-(SP) 
*64$,a*ERRVEC 
*DSWR,SWR 
*DDISP. DISPLAY 

*-1 .aswR 
66$ 

65$ 



SAVE ERROR VECTOR 
SET UP ERROR VECTOR 
SETUP FOR A HARDWARE SWlCH REGISTER 
AND A HARDWARE DISPLAY REGISTER 
TRY TO REFERENCE HARDWARE SWR 
BRANCH IF NO TIMEOUT TRAP OCCURRED 
AND THE HARDWARE SWR IS NOT 
BRANCH IF NO TIMEOUT 



IfifTBO RM05/^/2 FCTNL TST 1 
IM'IALIZE THE COMMON TAGS 



•lACRO VOA.OO 



L 6 
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0056AO 


012716 


005646 




00564A 


000002 






005646 


012737 


000176 




005654 


012737 


0001 74 




005662 


012637 


000004 




005666 


005037 


001 230 




005672 


132737 


000200 




005700 


OOU03 






005702 


012737 


001244 




005710 














?5 


005710 


012737 


005332 


^6 005716 


012737 


000300 



27 
28 

005724 
005730 
C05732 
005 74U 
005/42 
005746 

006024 

006024 
006030 
006032 
006040 
006042 
006050 
006052 
006054 
006056 
006064 

29 
30 
31 
32 

33 006064 

34 C06070 

35 006076 

36 006100 

37 006106 

38 006114 

39 006116 

40 006122 

41 006126 
4? 006130 

006134 

006162 

43 006162 

44 006164 

45 006170 

46 00617? 



005227 
001035 
022737 
001431 
104401 
000426 



005737 
001012 
123727 
001406 
023727 
U01005 
104407 
000403 
112737 



005037 
122737 
001160 
013737 
122737 
103002 
105037 
005737 
001425 
104401 
000412 



005046 
113716 
104403 
001 



177777 
041630 
005750 

000042 
001242 
001154 



001330 
000016 

000040 
000007 

001 330 
000042 

006136 



001330 



SfO 00 7^ 



001154 
001156 



001243 
001154 



000004 
000006 



000042 



000001 
0001 76 



000001 001150 



000041 

001330 
001330 



64S: 
65$: 
66S: 



MOV 
RT] 
MOV 
MOV 
MOV 



#65$. (SP) 



;;SET UP FOR TRAP RETURN 
; .-POINT TO SOFTWARE SWR 



#SUREG.SUR 
*D I SPREG. DISPLAY 
(SP^ + .a^ERRVEC .-.'RESTORE ERROR VECTOR 



CLR SPASS ;; CLEAR PASS COUNT 

BIT8 *APTSIZE.$ENVM ;.-TEST USER SIZE UNDER APT 

BEQ 67$ ;; YES, USE NON-APT SWITfH 

MOV *$SWREG.SUR ;;NO,US£ APT SWITCH REGISTER 

67$: 

; SETUP '7IME0UT" TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 

MOV #8ADTM0.ERRVEC .-SETUP FOR UNEXPECTED TIMEOUT 

MOV *PR6,ERRVEC*2 ;LEVEL 6 



.S8TTL TYr' PROGRAM NAME 
;;TYPE THF NAME OF THE PROGRAM 
I). *-1 
BNt 68$ 
CMP *$ENDAD.a#42 
BEQ 68$ 
TYPE .69$ 
BR 68$ 
.ASCIZ <CRLF>aCZRMMBO 



;;69$: 
66$: 
.S8TTL 



IF FIRST PASS 
FIRST TIME? 
BRANCH IF NO 
ACT-11? 
BRANCH IF YES 
TYPE ASCIZ STRING 
..GET OVER THE ASCIZ 
- RM05/3/2 FUNCTIONAL 



TEST. PT 1S<CRIF> 



GET VALUE FOR SOFTWARE SWITCH REGISTER 



TST 


a#42 


.-.-ARE WE RUNNING UNDER XXDP/ACT"* 


BNE 


70$ 


.-.-BRANCH IF YES 


CMP8 


$fcNV.*1 


.-.-ARE WE RUNNING UNDER APT? 


BEQ 


70$ 


;:8RANCH IF YES 


CMP 


SWR./trSWREG 


; .-SOFTWARE SWITCH REG SELECTED? 


BNE 


71$ 


.-.-BRANCH IF NO 


GTSWR 




.-.-GET SOFT-SWR SETTINGS 


BR 


71$ 




M0V8 


#1 .$AUT0B 


.-.-SET AUTO-MODE INDICATOR 



70$: 
71$: 



;THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
.-PAPER TAPE (MANUAL). AC Til, XXDP CHAIN OR DUMP 



1$; 



;;73$: 
72$: 



CLR 
CMP8 
BNE 
MOV 

CMpe 

BHIS 

CLR8 

TST 

BEQ 

TYPE 

BR 

•ASCIZ 

CLR 
M0V8 
TYPOS 
.8YTE 



XXDP 

#i6.a#4i 

3$ 

a*40.XXDP 

*7.XXDP 

1$ 

XXDP 

a>y42 
2$ 

.73$ 
72$ 

<CRLF>/N0T 

-(SP) 
XXDP,(SP) 

1 



•CLEAR 'XXDP' LOAD DEVICE STORAGE 
; LOADED FROM AN RM05/3/2 ? 
.-BRANCH IF NOT 

:GET DEVICE INDICATOR AND NUMBER 
IS IT A VALID NUMBER ? 
;YES 

;N0, DEFAULT TO DRIVE 0 
CHAIN MODE OR ACTll AUTO ACCEPT ? 
;8R IF NEITHER 
;TYPE ASCIZ STRING 
.-GET OVER THE ASCIZ 
TESTING DRIVE / 



CLEAR WORD ON STACK 
GET DRIVE ADDRESS 
TYPE THE ADDRESS 
ONLY 1 CHARACTER 



rZKMWBO KTNL TST 1 MACRO VO^.OO 

GET VALUC FOR SOFTWARE SWITCH REGISTER 



2$: 



M 6 
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SEO 00^ 











^8 


006174 


104401 


001217 


A9 


006200 


000517 




50 








51 


006202 


005227 


^77777 


5<? 


006206 


001114 




55 


006210 


10440^ 


006216 




0062H 


000410 












54 


006236 


005046 




55 


006240 


115716 


001550 


56 


006244 


104405 




«;7 








58 


006247 


000 




59 


006250 


104401 


006256 




006254 


000451 






006540 






60 


C06340 


104401 


006546 




006544 


000455 






006440 






64 








65 


006440 


005757 


000042 


66 


006444 


001561 




67 


006446 


012737 


000577 



.8yTE 0 
TYPE .SCRLF 
BR 5$ 



68 
69 

70 006454 

71 006454 
V2 006462 
75 

74 006464 

75 006466 

76 006472 
77 

78 006476 

79 006504 

80 006506 

81 006512 
006514 
006516 
006517 
006520 



82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
9? 
94 



0065^4 
006552 
006556 
006542 
006550 
006552 
006560 
006562 
006566 
006574 
006600 



132757 
001146 

005001 
013700 
104401 

136137 
001531 
104401 
010146 
104403 
002 
000 
104401 

012760 
010160 
005760 
032760 
001051 
032760 
001450 
016002 
012737 
022702 
.001430 



;;75$: 
74$: 



;;77$: 
76S: 



JNC 
BNE 
TYPE 
BR 

.ASCIi 

CLR 

wove 

TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

-ASCIZ 

TYPE 
BR 

.ASCIZ 



#-1 
3$ 

.75$ 
74$ 

<CRLF>/T0 ^EST DRIVE / 



SUPRESS LEADING ZEROS 
CR-LF 

GET NUMBER OF DRIVES 

FIRST TIME THRU HERE ' 
NO 

.•TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 



-(SP) 
XXDP,(SP) 

1 
0 

.77$ 
76$ 



CLEAR WORD ON STACK 
GET DRIVE ADDRESS 
TYPE DRIVE ADDRESS 
ONLY 1 CHARACTER 
SUPRESS LEADING ZEROS 
.•TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 



;;78$ 
3$: 

.•CHECK FOR AUTO 
TST 
BEO 
MOV 



/. HALT PROGRAM. REMOVE RRDP PACK AND REPLACE IT/<CRLF> 

,78$ ;;TYPE ASCIZ STRING 

3$ ;;GET OVER THE ASCIZ 

/WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF> 
MODE OR STANDLONE MODE 



a*42 
STANDALONE 
*377.$DEVM 



RUNNING IN AUTO MODE ? 
BR IF NO 

SET DEVICE MAP FOR ALL DRIVES 



000200 001243 

001276 
066720 

067236 001 300 
001217 



067130 

000040 000010 

000010 

000012 

010000 000010 
004000 000000 
000026 

066736 006766 
020025 



.•PROGRAM IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED 
XSIZ: 

.•SIZING ALLOWED ? 
;N0 

START FROM DRIVE 0 
LOAD THE BASE ADDRESS 
TYPE 'UNIT STATUS:' 

1$: BITS ATNT8L(R1).$DEVM ;IS DEVICE PRESENT IN MAP ? 

BR IF NO 
CR-LF 

SAVE R1 FOR TYPEOUT 
GO TYPE—OCTAL ASCII 
TYPE 2 DIGIT(S) 
SUPPRESS LEADING ZEROS 
TYPE 4 BLANKS 

CLEAR MASS BUS 
LOAD THE DRIVE ADDRESS 
ACCESS DRIVE REGISTER 
IS DRIVE PRESENT ? 
BR IF NO 

IS DRIVE AVAILABLE ? 
BR IF NO • 

SAVE DRIVE TYPE REGISTER IN R2 
ASSUME RM02 DEVKE 
SINGLE PORT RM02 
BR IF YES 



BITS 


#8IT7.$ENVM 


BNE 


12$ 


CLR 


R1 


MOV 


$8ASE,R0 


TYPE 


.SYSTAT 


BITS 


ATNT8L(R1).$DE 


BEQ 


11$ 


TYPE 


.$CRLF 


MOV 


R1,-(SP) 


TYPOS 




.BYTE 


2 


.BYTE 


0 


TYPE 


.8LNKS4 


MOV 


#CLR.RMCS2(R0) 


MOV 


R1.RMCS2(R0) 


TST 


RMDS(RO) 


BIT 


*NED,RMCS2(R0) 


BNE 


3$ 


BIT 


*DVA.RMCS1 (RO) 


BEQ 


4$ 


MOV 


RMDT(R0),R2 


MOV 


*$RM02.10t 


CMP 


*20025,R2 


BEO 


2$ 



'Zf»'>teO W105/3/2 fCTNL TST 1 nACRO VOA.OO <.-APR-81 
jr ;ALU£ FOR SOFTyARE SWITCH REGISTER 



9S 
96 
97 
98 
99 
00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
1? 
1i 
K 
15 
16 
17 
18 
19 
<0 
2) 
?2 
?3 
?4 

2t 
27 
28 

31 006754 
52 006760 
3> 006764 
34 006766 
35 

36 006770 

37 006772 

38 006776 
39 

AO 007000 
41 007004 



006602 
006606 
006610 
006616 
006622 
006624 
006650 
006652 
006640 
006644 
006646 
0066S2 
006654 
006660 
006662 
006670 
006672 

006674 
006700 

006702 
006706 
006714 

006716 
006722 
006730 

006732 
006736 
006740 
006744 
006746 
006752 



022702 
001425 
012737 
022702 
001417 
022702 
001414 
012757 
022702 
001406 
022702 
001405 
104401 
000412 
032760 
001412 
000417 

104401 
000402 

104401 
146137 
000425 

104401 
146137 
000413 

005737 
001406 
123701 
001360 
104401 
000755 

104401 

104401 
104401 
000000 

005201 
020127 
003657 

104401 
00013' 



024025 






CHP 








BEO 


066745 


C06766 




«0V 


020024 






CMP 








BEO 


024024 






CMP 








BEO 


066750 


006766 




MCV 


02002^' 






CMP 








oto 


024027 






CMP 








BEO 


OotfJt 






T VDC 








BR 


010000 


000012 


2$: 


BIT 








BEO 








ao 
oH 


067013 




5$: 


TYPE 








BR 


067050 




4S: 


TYPE 


067256 


001300 


5S: 


BIC8 








BR 


067047 




6S: 


TYPE 


067236 


•J01300 




6ICB 








OK 


001330 




7%: 


TST 








BEO 


001 330 






CMP8 








QAiC 
Onit 


066776 






TYPE 








BR 


AiL.7nA.n 
UO^UoU 




at. > 


T VDC 
1 TKC 


067152 




9$; 


TYPE 








TYPE 






10$: 


.WORD 






11J: 


INC 


000007 






CMP 








BLE 


001 ?1 7 




12S: 


TYPE 


007466 






JMP 
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SFO 007- 



#24025. R2 


DUAL PORT RM02 ? 


21 


BR IF YES 


#SRM03.10$ 


ASSl^ RM03 DEVICE 


#20024. R2 


SINGLE PORT RM05 ? 


2$ 


8R IF YES 


*24024,R2 


•DUAL PORT RM03 ? 


2f 


■BR If YES 


<r$RM05.10S 


•Assure RM05 DEVICE 


#2002 7. R2 


•SINGLE PORT RM05 ? 


2S 




#24027. R2 


■DUAL PORl RM05 ? 


2S 


•8R IF YES 






5$ 


; CHECK NEXT DRIVF 


#M0L.RMDS(R0) 


;IS MEDIUM ON L NE ? 


6$ 


:8R IF NO 


7$ 




.NOTPRS 


;DRIVE NOT PRESENT 


SS 


; CHECK NEXT DRIVE 


.NOTAVL 


.■DRIVE NOT AVAILABLE 


ATNT8L(Rl),fDEVM 


; CLEAR DEVICE 



11$ 

.UMTOFF 

ATNT3L(R1).$DEVM 
9$ 

XXDP 
8$ 

XXDP.Rl 
5$ 

,LODEV 
5$ 

,UNTON 
.8LNKS2 



CHECK NEXT DRIVE 

DRIVE OFFLINE 

.•CLEAR DEVICE FROM BIT MAP 
PRINT DRIVE TYPE 

LOADED FROM RM05/3/2 ? 
NO 

IS THIS THE DRIVE ? 
8R IF NO 

DRIVE IS LOAD DEVICE 



R1 

Rl.#7 
1$ 

.$CRLF 
CMNSTART 



.•DRIVE ONLINE 
;TYPE 2 BLANKS 
.•PRINT DRIVE TYPE 
.•MESSAGE ADDRESS HERE 

.•INCREMENT THE DRIVE ADDRESS 
.-ALL DRIVES ARE CHECKED ? 
.•BRANCH IF NOT 

; CR-LF 

.•JUMP TO COMMON START 



B 

«WC^' rf04.3C 4-4PQ-ei T .-45:^8 PAGE 



7 
1 1 



SCO 007V 



3 

5 
6 
7 

8 

9 
10 
11 
12 

.4 
15 
16 
17 
18 
19 
?0 
?1 
22 
2? 
24 
25 
26 
27 
28 
29 
30 
31 
l^ 
33 

34 

35 
36 
37 
58 
39 
40 
41 
42 
43 
44 
45 
46 

4r 

48 
49 

50 
51 
52 
53 
54 
55 
56 



00701 c 
OO'OlO 

0070U 
007020 



007022 
007026 
007030 
007034 
007042 
007044 
007050 
007054 
007056 
C07062 
007066 



007070 
007070 
007074 
007076 
007102 



007106 
007106 
007112 
007116 
007120 
007124 
007126 
007132 
007134 
007142 
007144 
0071 5C 
007152 

007160 
007164 
007166 
007172 
007174 
007200 
007202 
007206 
007210 
007216 
0072a0 
007224 
007?26 



004737 0642*3 

005227 ^77777 
001023 



104401 
104411 
012637 
123727 
001005 
104401 
104401 
000414 
104401 
104401 
000407 



005737 
001457 
005^37 
104401 



104401 
013746 
104402 
104401 
104413 
012637 
001412 
022737 
101403 
104401 
000756 
013737 

104401 
005046 
113716 
104402 
104401 
104413 
012637 
001412 
022737 
101003 
104401 
000^55 
113737 



.SSTIt STAMDALOnC IM>UT iHXJTINEb 



Sr«M)ALONE: 

JSA 

m 



PC.IUII^T .-INITIALIZE CONSOLE 

#-1 .-FIRST TIME 'MRl mE«E ' 

21 :6R IF NO 



:SEE IF OPERATOR yANTS HElP TEXT 



066344 
001176 

001176 000131 

00V76 
10'''<^74 

067124 
0C1217 



001326 

001 326 
001217 

066375 
001276 

067132 

001176 

160000 00r76 
066405 

001176 001276 

066447 

001272 

067132 

001176 

001000 001176 
066456 

001176 001272 



^ypE 


.MSHELP 


■WANT HELP ? 


RDCHR 




■GET RESPONSE 


MOV 


(SP)*.sTMPi ; 


■SAVE AND ECHO RESPONSE 


cMPe 


tTI»*>l.#'Y 


■WAS IT A YES RESPONSE ? 


BNE 


1$ 


;N0 


TrPE 


.$T«P1 


•TYPE 'Y' 


TYPE 


.HELP 


■YES - TYPE HELP TEXT 


8R 


3$ 




TYPE 


.N 


•TYPE 'N' 


TYPE 


.SCRLF 


■CR-LF 


BR 


3$ 





IS: 



;SEE 'F USER WANTS TO CHANGE UNlQbS ADDRESS 
2S: 

TST CHGADR 
BEG 7$ 
CLR CHGADR 
TYPE .SCRlF 



CHANGE RH/RM BUS ADDRESS ? 
8R IF NO 

NO CHANGE NEXT TIME 
CR-LF 



.-DIALOGUE TO CHANGE THE UNI8US ADDRESS. VECTOR ADDRESS AND INTERRUPT PRIORITY 
3S: 

TYPE CURRENT BUS ADDRESS 
.-SAVE S8ASE FOR TYPEOUT 
;G0 TYPE—OCTAL ASCII (ALL DIGITS) 
TYPE d BLANKS 
GET NEW BUS ADDRESS 
CARRIAGE RETURN ? 
YES-SKIP TO NEXT ENTRY 
BASE ADDRESS JN I/O PAGE 
YES 

TYPE WARNING MESSAGE 
TRY AGAIN 

STORE NEW BUS ADDRESS 



4t: 
5$: 



TYPE 

MOV 

TYPOC 

TYPE 

RDOCT 

MOV 

8E0 

CMP 

BLOS 

TYPE 

BR 

MOV 



.CNSL01 
$8ASE.-(SP) 

.8LNKS2 

(SP)*.tTMP1 
5$ 

#160000. STMP1 
4S 

.CNSL02 
3$ 

STMP1 .SBASE 



6J: 



TYPE 

CLR 

M0V8 

TYPOC 

JYPE 

RDOC 

MOV 

BEQ 

CMP 

BHI 

TYPE 

BR 

M0V8 



.CNSL03 
-(SP) 

$VECT1.(SP) 

.8LNKS2 

(SP)*.$ThP1 
7% 

#1000.$TMP1 
6$ 

,CNSL04 
5$ 

$TMP1.$VECT1 



;GET CURRENT VECTOR ADDRESS 

TYPE 2 BLANKS 

GET NEW VECTOR ADDRESS 

CARRIAGE RETURN? 

YES-SKIP TO NEXT ENTR> 

VECTOR ADDRESS < 1000 ' 

YES!! 

TYPE WARNING MESSAGE 
RETRY 

STORE NEW JBClQfr ADDRESS 



-2RWBC R«05/^/2 fCIHL TST 1 
ST4M[)4L0NE IMPUT DOUTINES 



*MtRO t/04.00 



C 7 

(.-APR-SI 11:45:28 PAGE 11-1 



S7 
58 
59 

60 007240 

61 007242 

62 007246 

63 007252 

64 007256 

65 007262 

66 007264 

67 007270 
o8 007276 

69 007300 

70 007304 

71 007312 
72 

73 007316 

74 007324 

75 007326 

76 C07332 

77 007340 

78 007342 

79 007350 

80 007352 
81 

82 007354 

83 007356 

84 007362 

85 007370 

86 007372 

87 007376 
8c5 007402 

89 007410 

90 007412 

91 007420 

92 007422 

93 007426 
94 

95 007430 

96 007434 

97 007440 

98 C07446 

99 007454 

100 007«,:6 

101 007462 



005227 
001002 
104401 
104401 
005037 
104401 
104411 
012637 
023727 
001007 
104401 
012737 
0001 37 

023727 
001436 
104401 
023727 
002430 
023727 
003427 
0C0423 

104411 
012637 
023727 
'001432 
104401 
104401 
023727 
002404 
023727 
003403 
104401 
00071 1 

01 3701 
042701 
156137 
122737 
101337 
104401 
0001 37 



}77777 

066512 
001217 
001300 
066676 

001176 
001176 

066330 
000377 
006454 

001176 

001176 
001 1 76 

001176 



001 1 76 
001176 

066341 
001176 
001176 

001176 

066654 



001 1 76 
1 77770 
067236 
000377 

001217 
006454 



DIALOGUE TO INPUT DEVICE NJBERS 



8$: 
9$: 



000101 

001 300 

00001 5 

000060 
000067 

000015 

000060 
000067 



10$: 



11$: 



001300 
001300 



12$: 
13$: 

14$: 



INC #-1 

BNE 8$ 

TYPE .CNSL07 

TYPE .$CRLF 

CLR $DEVM 

TYPE ,MSDRVS 
ROCHR 

MOV (S:^)*.$TMP1 

CMP $TriPl.*'A 

BNE 1 0$ 

TYPE .ALL 

MOV *377.$DEVM 

JMP XSIZ 

CMP $TMP1.*CR 

BED 12$ 

'YPE .$TMP1 

CMP $TMP1,#'0 

BLT 12$ 

lMP $TMP1.*'7 

BLE 13$ 

BR ^2$ 

RDCHR 

MOV (SP)*.$TMP1 

CMP $TMP1.4rCR 

6E0 14$ 

TYPE .COMMA 

TYPE ,$TMP1 

CMP $TMP1.*'0 

BLT 12$ 

CMP $TMP1.*'7 

BLE 13$ 

TYPE .CNSL08 

BR 9$ 

MOV $TMP1,R1 

BIC #*C7.R1 

BJSe ATNT8L<R1).$DEVM 

CMP8 *377.$DEVM 

BH] 11$ 

TYPE .$CRLF 

JMP XSJZ 



FIRST TIME THRU "» 
8R IF NO 

TYPE INPUT INSTRUCTIONS 
CR-LF 

CLEAR DEVICE MAP 
TYPE 'DRlVEfS): ' 

GET RESPONSE 
IS INPUT "A" ? 
NO 

YES, TYPE "ALL" AND GO 

SET DEVICE MAP FOR ALL DRIVES 

AUTO SIZE. 

CARRIAGE RETURN ? 
YES 

ECHO RESPONSE 
NUMBER < 0 ? 

YES 

NUMBER > 7 ? 
NO 

ILLEGAL INPUT 



GET RESPONSE 
CARRIAGE RETURN 
YES 

TYPE ■ 
ECHO RESPONSE 
NUMBER < 0 ? 
YES 

NUMBER > 7 ? 
NO 

TYPE CR-LF 
RETRY 



7ILLEGAL INPU' 



R1 - DRIVE NUMBER 



DONE 
NO 

CR-LF 
GO SIZE 



;SET DEVICE IN MAP 



DEVICES 



zriwo rm05/3/2 fctml tst 
mndalone input routines 
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SEO 008' 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

n 

12 
13 
H 
15 
16 



17 
18 
19 
20 
21 
2? 
23 
24 
25 
26 
27 
28 
29 
30 



31 



007466 
007466 
007472 
0C7476 
007500 
00^504 
007510 
007514 
007520 
007524 
007526 
007530 
007532 
0C7536 
007540 
007542 
007544 
007545 
C07546 
007554 
007560 
007562 
007564 
007566 
007570 
007572 
007574 



007600 
007604 
007606 
007612 



0076^.2 
007642 

32 007646 

33 007650 

34 007654 

35 007660 
36 

37 007660 

38 007662 

39 007666 

40 007670 

41 007674 

42 007676 

43 007702 
44 

45 007706 

46 007712 

47 007716 

48 007722 
007726 
007732 
007734 



"•04401 
01 3700 
001004 
104401 
104401 
012701 
010137 
012702 
005003 
030200 
001413 
104401 
010311 
010346 
104403 
001 
000 
116361 
062701 
006302 
105702 
001402 
005203 
000756 
005011 
104401 



004737 
000425 
104401 
000413 



005737 
001002 
000137 
000137 



000240 
105737 
001007 
005737 
001002 
000137 
000137 

105037 
005037 
004737 
012746 
012746 
000002 



067070 
001 300 

066341 
0671 1 7 
001466 
001464 
000001 



066341 



067236 
000002 



001217 

043400 
007614 

000042 

005422 
041620 

001300 

000042 

005422 
041620 

001116 
001206 
064210 
000240 
007734 



.•ASSEMBLE TEST 
C WIS TART: 



IS: 



QUE FROM DEVICE MAP 



2$: 



000001 



3S: 



4$: 



.•SIZE 



;;65$ 
64$: 



5$: 

6$: 

READY: 



1$: 
2$: 



64$: 



TYPE 


DRIVES 




MOV 


$DEVM.RO 


•RO = DEVICE MAP 


BNE 


1$ 


'BR IF DRIVES TO TEST 
■TYPE ' 


TYPE 


.COMMA 


TYPE 


.NONE 


■TYPE 'NONE' 


MOV 


#TST0UE*2,R1 


■R1 = ADDRESS OF FIRST FNTRV 


MOV 


R1 . TSTQUE 


■INITIALIZE ENTRY POINTFR 


MOV 


#1.R2 


■R2 = DEVICE POINTER 


CI R 


R3 


■R3 = DEVICE NUMBER 


BIT 


R2.R0 


•IS THIS DEVICE IN MAP "» 


BEQ 


^$ 


;N0 ' ' 


TYPE 


.COMMA 


•TYPE • 

'YES - ENTER DEVICE NUMBER I 


MOV 


R3.(R1) 


MOV 


R3.-(SP> 


".'SAVE R3 FOR TYPEOUT 


TYPOS 




■:G0 TYPE— OCTAL ASCII 


.BYTE 


1 


;;TYPE 1 DIGIT (S) 


.BYTE 


0 


SUPPRESS LEADING ZEROS 


M0V8 


ATNTBl(R3M (R1) 


•ENTER ATTENTION BIT IN QUE 


ADD 


*2.R1 


•ADVANCE ENTRY POINTER 


ASL 


R2 


•ADVANCE DEVICE POINTER 


TST8 


R2 


;DONE ALL DEVICES ? 


BEQ 


4$ 


•YES 


INC 


R3 


•ADVANCE DEVICE NUMBER 


BR 


2$ 


•ENTER NEXT DEVICE 


CLR 


(R1) 


•TERMINATE TEST QUE 


TYPE 


,$CRLf 


;TYP£ CR-LF 



FOR CLOCK 
JSR 
BR 
TYPE 
BR 

.ASCIZ 

TST 
BNE 
JMP 
JMP 



PC.SIZCLK 
6$ 
.65$ 
64$ 

<CRLF>/NO "L* 

a#42 
5$ 

START 
$6ET42 



NOP 

TSTB 

BNE 

TST 

BNE 

JMP 

JMP 

CLR8 

CLR 

JSR 

MOV 

MOV 

RTI 



$DEVM 
2$ 

&tr42 
1$ 

START 
$GET42 

$TSTNM . 
$TIMES^ . 
PC,$TKIf5T 
*PR5.-(SP) 
*64$.-(SP) 



SEE IF CLOCK PRESENT 
YES - CLOCK IS PRESENT 
;TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 
OR 'P' CLOCK/ 



ANY MONITOR PRESENT ? 

8R IF YES 

JUMP TO START 

RETURN CONTROL TO MONITOR 



READY TO START TEST 
ANY DRIVES IN MAP ? 
BR IF YES 

ANY MONITOR PRESENT ? 

BR IF YES 

JUMP TO START 

RETURN CONTROL TO MONITOR 

RESET TEST NUMBER 

INITIALIZE NUMBER OF ITERATIONS 

INITIALIZE TTY 

PUT NEW PS ON STACK 

PUT NEW PC ON STACK 

POP NEW PC AND PS 



ZRIWO RMU5/5/2 FCTNL TST 
TANDALONF INPUT ROUTINES 



{.9 0077^ 


117757 


171524 


001 234 


SO 
























53 








54 007742 


012737 


002000 


001^32 


55 007750 


013700 


001276 




56 00775A 


012760 


000040 


000010 


57 007762 


1 1 7760 


1 71 4 76 


000010 

WW * w 


58 007770 


016002 


000026 




59 00777^ 


042702 


177770 




60 010000 


022702 


000007 




61 010004 


001003 






62 010006 


012737 


011000 


001 332 


65 








64 








65 








66 010014 


10440^ 


001217 




67 010020 


104401 


066712 




68 CI 0024 


013746 


0C1234 





69 
70 
71 
72 
73 



010030 
010032 
010033 
010034 
010036 
010040 
010042 
010044 



1 04403 
002 
000 
005004 
005304 
001376 
005304 
001376 
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M0V8 arSTOUE.SUNIT ;L0AD DRJVE NUMBEft 

.•CLEAR P1ASS8US CONTROLLER. SELECT DRIVE AND DETERMINE THE LAST Tf<A 
;0f THE' DIFFERENT DRIVE TYPES 

MOV *TA4,LSTRK ; ASSUME LAST TRACK FOR RM02/3 - 4. 

MOV SeASE.RO ;R0 = UNl8Ub ADDRESS 

MOV *CLR.RMCS2(R0) ; CLEAR MASS8US 

M0V8 3lTSTOUE,RMCS2(R0) .-SELECT DEVICE UNDER TEST 

MOV rm:)T(R0),r2 .-get rmdt and 

BIC #1 77770. R2 ;SAVE DRIVE TYPE BITS 

CMP *7.R2 ;IS IT AN RM05 ? 

BNE 3$ ;N0. MUST BE AN RM02 OR RM03 

MOV *TA16!TA2.LSTRK .-YES— <:£i LAST TRACK = 18. 

.-TYPE DRIVE NUM3ER TO BE TESTED($UNIT) 



3$: 



TYPE 
TYPE 
MOV 

TYPOS 

.BYTE 

.BYTE 

CLR 

DEC 

BNE 

DEC 

BNE 



.$CRLF 

.MS6DRV 

$UNIT.-(SP) 



2 

0 

R4 

R4 

.-2 

R4 

.-2 



CR-LF 

TYPE 'DRIVE' 
.•SAVE $UNIT FOR TYPEOUT 
;TYPE DRIVE NUMBER 
;G0 TYPE— OCTAL ASCII 
.•TYPE 2 DIGIT (SJ 
.•SUPPRESS LEADING ZEROS 
THESE TWO LOOPS ARE ADDED TO 
WAIT FOR TTY 



•WC t<M05/?/2 fCTfyJL TST 1 
CONTROLLER ACCESS TEST 



•WCKO VO'i.OO '.-APR-81 11:43:^8 



F 

PAGE 



7 

13 



? 
3 

S 
6 

7 
8 
9 
10 
11 
•2 
1? 

15 
16 
V 
18 
19 

20 
21 
2? 
23 

2A 
25 
2i 
27 
28 
29 
30 
31 
52 



0^00^6 
0100A6 
010050 
010052 
010056 
010062 
010066 

01007A 
010076 
010102 
010''06 
0101U 

010122 
010126 
C10132 
010136 
010K2 
010K6 
010152 
010156 
010162 
010166 
010172 
010176 
010202 
010206 

010210 
010212 
010216 

010222 
010224 
010230 
010232 
010236 
010242 
C 10246 



010246 
010246 
010250 
010252 
010256 
010262 
010266 
010274 

3? 

<4 010302 
C10306 



000004 
000240 
012706 
013700 
013701 
012737 

005001 
013746 
013746 
012737 
012737 

110160 
010160 
016002 
010160 
CI 6002 
016046 
010160 
016002 
012660 
010160 
016002 
012637 
012637 
000417 

022626 
012637 
012637 
104*10 
005737 
001002 
000137 
005037 
000137 



000004 
000240 
012706 
01 3700 
013701 
012737 
0127?7 

004737 
000404 



001100 
001276 
001464 
000001 



000004 
000006 
010210 
000300 

000001 
000002 
000002 
000004 
0000C4 
000010 
000010 
000010 
000010 
000022 
000022 
000006 
000004 



000006 
000004 

000042 

005412 
001 300 
041432 



001100 
001 276 
001464 
000C01 
000002 

052264 



•TEST 1 



TSTl; 



001226 



000004 
000006 



1$: 



2J: 
3$: 



•TEST 2 



TST2; 



001206 
001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

MOV 

JSft 
BP 



CONTROLLER ACCESS TEST 



SCOPE 




NOP 




MOV 


*STACK.SP 


MOV 


$8ASE,R0 


MOV 


TSTQUE.R1 


MOV 


#1,$TESTN 


CLR 


R1 


MOV 


ERRVEC,-(SP) 


MOV 


fcRRVEC*2.-(SP) 


MOV 


#1S,ERRVEC 


MOV 


#PR6.ERRVEC*2 


M0V8 


R1 .RMCSUI (RO) 


MOV 


RI.RMWCCRO) 


Mm/ 

MUV 


KTTWL ,Hc 


MOV 


R1.RJ>BA(R0) 


MOV 


RM8A(R0).R2 


MOV 


RMCS2(R0).-(SP^ 


MOV 


R1,RMCS2(R0> 


MOV 


PMCS2(R0),R2 


MOV 


(SP)*.RMCS2(R0) 


MOV 


R1 .RMDB(RO) 


MOV 


RMD8(R0).R2 


MOV 


{SP)*.ERRVEC»2 


MOV 


(SP)*,ERRVEC 


BR 


3$ 


CMP 


(SP)*.(SP)* 


MOV 


(SPJ*.ERRVEC*2 


MOV 


(SP) ♦,ERRVFC 


EMF 


no 


TST 


a#42 


BNE 


2$ 


JMP 


START! 


CIR 


SDEVM 


JMP 


$E0P 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNJ8US ADDRESS 

(«1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL 



BOX 



;;PUSH ERRVEC ON STACK 

;;PUSH ERRVEC ^2 ON STACK 



;MOVE HI BYTE TO RMCSl 
.•MOVE WORD COUNT REGISTER 

.-MOVE BUS ADDRESS REGISTER 

;;PUSH RMCS2(R0) ON STACK 
.•MOVE CONTROL STATUS REGISTER 

;;POP STACK INTO RMCS2(R0) 
.-MOVE DATA BUfFER 

;;pop stack into errvec ^2 
;;pop stack into errvec 
;n0 bus timeout occurred 

.•adjust stack 

..oop stack into errvec 
;;pop stack into errvec 

stand alone mode ' 

no: : 

yes-go get $8ase 
fudge no drives in map 
return to $eop 



UNJ8US INITIALIZE TEST 



#STACK,SP 

$8ASE,R0 

TSTOUE.RI 

*1.$TIMES 

#2.$TESTN 

PC.CNTCLR 
IS 



SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 
RO = UNI8US ADDRESS 
(Rl) = DEVICE BEING TESTED 
;D0 1 ITERATION 

.•SET TEST NUMBER IN APT MAIl BOX 

;G0 ISSUE CONTROLLER CLEAR 
;60 TO 1$ IF NO ERROR 



I^mSQ RM05/5/2 FCTNL TST 1 
•? UNIBOS INITIALlZt TEST 



MACRO V04.00 



44 

45 



010310 
01C312 
0103U 
35 010320 
56 010320 

37 0''0324 

38 010332 
59 010340 

40 010346 

41 010346 
010352 
010354 
010356 
010360 

42 010364 

43 010366 
010370 
010376 

46 010404 

47 C10412 

48 010420 

49 010426 
50 

51 010434 

52 0-'0440 

53 010444 

54 010450 

55 C10454 

56 010460 

57 010464 

58 010470 

59 010474 
010500 
010502 
010504 
010506 

60 010512 

61 010514 

62 010520 

63 010524 
64 

65 010530 
010534 
010536 
010540 

66 010542 
67 

68 010544 

69 010552 

70 010560 

71 010566 

72 010574 

73 010576 
74 

75 010600 
'6 010604 
77 0T0612 



000240 
104000 
000137 

012702 
012737 
112737 
112737 

004737 
000404 
000240 
104000 
0001 37 
005302 
001367 
012737 
012737 
012737 
012737 
012737 
012737 

012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 
004737 
000404 
000240 
104000 
000137 
000005 
004757 
111160 
004737 

004737 
000405 
000240 
104000 
000565 

013737 
042737 
012737 
023737 
001401 
104115 

00503^ 
0^3737 
00U01 



011116 

000101 
000000 
000022 
000200 

043160 



011116 



M7177 
M7777 
y77777 
040001 
003577 
021037 

001543 
000004 
000014 
000042 
000024 
000000 
000010 
000200 
043160 



011116 

064210 
000010 
042624 

042710 



001334 
100000 
004200 
001140 



001140 
001340 



001432 
001543 
001544 



1$: 



2J: 



3S: 



001414 
001424 
001452 
001434 
001410 
001420 



4$: 



001142 
001142 
001140 
001142 



001142 



5$: 



6S: 



NOP 
FMT 
JMP 

MOV 
MOV 
M0V8 
M0V8 

JSR 

BR 

NOP 

EMT 

JMP 

DEC 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

JSR 

BR 

NOP 

EMT 

JMP 

RESET 

JSR 

M0V8 

JSR 

JSR 

BR 

NOP 

EMT 

BR 

MOV 
BK 
MOV 
CMP 
BEO 
EMT 

CLR 
MOV 
BEO 
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t SEO 0084 



15$ 

*65. ,R? 
#0.RMD8O 
*RMD8,PUTINX 
*200.PUTINX*1 

PC. PUT 
3$ 



15$ 

R2 

2$ 

#-1,RMBA0 

#-1.RMERlO 

*-1 .RMER20 

*DMD!DBEN.Rft1R10 

<r003577,RMCSl0 

#021037,RMCS20 

*PUTINX.R2 
*RM8A,(R2)* 
#RMER1,(R2)* 
#RMER2.(R2)* 
#RMr«1 ,(R2)* 
*RMCS1.{R2)* 
*RMCS2,(R2)* 
*?00.(R2)* 
PC,PUT 
4S 



15$ 

PCfTKiNT 

(R1>.RMCS2(R0) 

PC.GETSTS 

PC, GET 
5$ 



15$ 

RMCS1].$BDDAT 

*SC.$6DDAT 

*PVA.RDY.$GDDAT 

$GDDAT.$BDDAT 

6$ 

115 

SGDDAT 

RMBAI.$8DDAT 
7$ 



.•RETURN HERE ERROR 

.-ERROR NUMBER DEFINED BY SUBROUTINE 

;G0 TO 15$ IF ERROR 

SET OR AND RESET IR 
WRITE ZEROS IN DA'A SJLO 
SETUP REGISTER INDEX 



GO WRITE REGISTER(S) WITH PuT SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR K DEFINED BV PUT SU8H0UTINE 

GO TO 15$ IF ERROR 

DECREMENT COUNT 

WRITE SILO AGAIN 

RM8A = ALL I'S 

RMER1 = ALL I'S 

RMER2 = ALL I'S 

.-SET DIAGNOSTIC MODE 



;R2 = ADDRESS OF INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BV PUT SUBROUTINE 

60 TO 15$ IF ERROR 

UNIBUS INITIALIZE 

INITIALIZE CONSOLE 

SELECT DEVICE 

60 SET UP FOR STATUS FETCH 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

SKIP REMAINDER OF TEST 

VERIFY RMCS1 

IGNORE SPECIAL CONDITION 
EXPECT DVA & RDY 
COMPARE EXPECTED. RECEIVED 
BRANCH IF EQUAL 



.•VERIFY RMBA IS ZERO 
.•BRANCH IF ZERO 



ZaWBC RM05/^/.r FCTNL TST 1 
? IJNIBUS INITIALIZE TEST 
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79 
8U 
3* 
82 
83 
8A 
85 
86 
87 
38 
89 
90 
91 
9? 
93 
94 
95 
96 
97 
96 
99 
100 
101 
102 
103 
10A 
105 
106 
107 
108 
109 

no 
m 

M3 
'U 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
'34 



010614 1041-6 



010616 

010624 
010626 
010630 
010634 
010640 
010646 
010650 

010652 
010656 
010664 
010672 
010674 

010676 
010704 
CI 0706 
010712 
010714 
010716 
010720 
010724 
010726 

010730 
010736 
010744 
010752 
010760 
010762 

010764 
010770 
010776 
011000 

011002 
011010 
C11016 
011024 
011032 
011034 

011036 
011042 
011050 
011056 
011060 
011062 
011070 
011076 
011104 
011112 
011114 



013737 
005046 
111116 
052716 
012637 
023737 
001401 
104117 

005037 
013737 
042757 
001401 
104120 

013737 
005002 
116102 
000302 
005102 
000240 
040237 
001401 
104121 

013737 
042737 
012737 
023737 
001401 
104122 

005037 
013737 
001401 
104124 

013737 
042737 
012737 
023737 
001401 
104125 

005037 
013737 
042737 
001401 
104173 
013737 
042737 
012737 
023737 
001401 
104123 



001344 001142 7%: 



000100 
001 140 
001140 



001140 
001350 
040000 



001352 
000001 

001142 



001 360 
000046 
000010 
001140 



001140 
001402 



001374 
140000 
011777 
001140 



001140 
001376 
040200 



001 346 
177177 
000600 
001142 



001142 



001142 
001142 



001142 



001142 
001142 



8$: 



001142 91: 



001142 10$: 
00M42 • 
001 UO 
001142 



11$: 



001142 12$: 
001142 
001140 
001142 



13$: 



001142 14$: 
001142 
001140 
001140 



FWT 

MOV 

CLR 

M0V8 

BIS 

MOV 

CMP 

BEQ 

EMT 

CLR 
MOV 
BIC 
BEQ 
EMT 

MOV 

CLR 

M0V8 

SWAB 

COM 

NOP 

BIC 

8FQ 

EMT 

MOV 

BIC ^ 

MOV 

CMP 

BEQ 

EMT 

CLR 
MOV 
BEO 
EMT 

MOV 

BIT 
MOV 
CMP 
BEG 
EMT 

CLR 
MOV 
BIC 
BEQ 
EMT 
MOV 
BIC 
MOV 
CMP 
BEQ 
EMT 



H 7 
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116 



RMCS2I.$8DDAT 

-(SP) 

(R1),(SP> 

*IR.(SP) 

(SP)*.$GDDAT 

$GDDAT.$8DDAT 

8$ 

117 

$GDDAT 

RMER1I,$8DDAT 

#UNS.$BDDAT 

9$ 

120 

RnASI.$8DDAT 
R2 

1(R1),R2 

R2 

R2 

R2.$8DDAT 
10$ 

121 



;VERIFV RMCS2 

.•EXPECT IR ft UNI. NUMBER 



; COMPARE EXPECTED RECEIVED 
;8RANCH IF EQUAL 



; VERIFY RMER1 

.•IGNORE UNSAFE 
.-BRANCH IF ZERO 



VERIFY RMAS 

CLEAR ALL BUT THIS 

DRIVES ATTENTION BIT 



.-BRANCH IF ITS 0 



RMMR1I.$BDDAT .-VERIFY RMMR 

*UC.'LS!LST,$8DDAT .-IGNORE WORD CLOCK. SCT. TRK 



*MWD,$GDDAT 
$GDDAT,$8DDAT 
11$ 

122 

$GDDAT 

RMEC2I.$BDDAT 
12$ 
124 

RMMft2l.$B0DAT 

#RQA!RQB.$8DDAT 

#TSr. 1777.$GDDAT 

$6DDAT.$8DDAT 

13$ 

125 



.-EXPECT WRITE DATA BIT 
.•COMPARE EXPECTED AND RECEIVED 
.-BRArgCH IF 0 



.-EXPECT ZEROS 
.-VERIFY RMEC2 - 0 



.•VERIFY RMMR2 | 

.-EXPECT TEST. TAG BIT ON 



$GDDAT .-EXPECT ALL ZEROS 

RMtR2l,$BDDAT .-VERIFY RMER2 
*SKI.DVC,$BDDAT .-IGNORE DEVICE ERRORS 
14$ .-BRANCH IF OTHER BITS 0 

173 

RMDSI,$BDDAT ' ;CMfcCK DRIVE STATUS REGISTER 

#*C<DPR.DRY>,$8DDAT 

/irDPR.DRY,$GDDAT .-EXPECTED STATUS 

$8DDAT.$GDDAT .-COMPARE EXPECTED & RECEIVED STATUS 

15$ .-DRIVE STATUS IS OK 

123 



CZRWBO RM05/5/2 FCTNL TST 1 n|ACRO V04.00 -i-APR-81 
T2 UMIBUS INITIALIZE TES^ 

155 011116 15$: 
i?6 



011116 








TST3: 




011116 


000004 








SCOPE 


011120 


000240 








NOP 


011122 


012706 


001100 






MOV 


011126 

ori52 


013700 


001276 






MOV 


01 3701 


001464 






MOV 


011136 


012737 


000003 


001226 




MOV 


138 












159 Oil HA 


004737 


052264 






JSR 


011150 


000404 








BR 


011152 


000240 








NOP 


011154 


104000 








EMT 


011156 


000157 


011454 






JM? 


KO 011162 








IS: 




141 C11162 


012702 


000101 






MOV 


142 011166 


012737 


000000 


001432 




MOV 


"•43 011174 


112737 


000022 


001543 




M0V8 


144 011202 


112737 


000200 


001544 




M0V8 


145 011210 








2S: 




146 011210 


004737 


043160 






JSR 


011214 


000404 








BR 


011216 


000240 








NOP 


011220 


104000 








EMT 


011222 


000137 


01';454 






JMP 


147 011226 


005302 






3S: 


DEC 


148 011230 


001367 








BNE 


149 011232 


012737 


Mill! 


001414 




MOV 


150 011240 


012737 


■[77777 


001424 




MOV 


151 011246 


012737 


^77777 


001452 




MOV 


152 011254 


012737 


040001 


00143*. 




MOV 


153 011262 


012737 


003577 


001410 
001420 




MOV 


154 011270 


012737 


021037 




MOV 


155 011276 


012702 


001543 






MOV 


156 011302 


112722 


000004 






M0V8 


157 011306 


112722 


000014 






M0V8 


158 011312 


112722 


000042 






M0V8 


159 011316 


112722 


000024 






M0V8 


160 011322 


112722 


000000 






M0V8 


161 011326 


112722 


000010 






M0V8 


162 011332 


112722 


000200 






M0V8 


163 011336 


004737 


043160 






JSR 


011342 


000403 








BR 


01 1344 


000240 








NOP 


011346 


104000 








EMT 


164 011350 


000430 








BR 


165 










166 011352 








4$: 




167 011352 


004737 


052264 






JSR 


011356 


000404 








BR 


011360 


000240 
104000 








NOP 


011362 








EMT 


011364 


000137 


011454 






JMP 
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CONTROLLER CLEAR TEST 



*STACK,SP 
$8ASE,R0 
TSTQUE.R1 
*3.$TESTN 

PC.CNTCLR 
1$ 



8$ 

#65., R2 

*0.RMDB0 

#RMD8.PUTINX 

#200.PUrJNX*l 

PC. PUT 
3S 



8$ 

R2 
2$ 

*-l .RMBAO 
#-1.RMER10 
*-l .RMER20 
#Df1D.'D8EN,RMMR10 

*003577.RMCS10 
*021037,RMC_S2O 

#RMER1,(R2)* 
*RriER2,(R2) + 
#Rr«R1 ,(R2) + 
#RMCS1.(R2)* 
*RMCS2.(R2)+ 
#200, (R2)* 
PC. PUT 
4$ 



71 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

.■SET TEST NUMBER IN APT MAIL BOK 

GO ISSUE CONTROLLER CLEAR 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR NUMBER DEFINED BY SUBROUTINE 

GO TO 8$ IF ERROR 



.•WRITE ZEROS IN DATA SILO 
.•SETUP REGISTER INDEX TA8LE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY PUT SUBROUTINE 

GO TO 8$ IF ERROR 

DECREMENT COUNT 

AND WRITE SILO AGAIN IF NOT DONE 



R2 ADDRESS OF INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 



PC.CNTCLR 
5$ 



8$ 



GO ISSUE CONTROLLER CLEAR 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR NUMBER DEFINED BY SUBROUMNE 

GO TO 8$ IF ERROR 



ZRMMBO 

168 

170 



171 
172 



FCTML TST 1 
COMTROUER CLEAR TEST 



011370 00A737 



'/3 
174 
175 
V6 



177 
178 
179 



011374 
011400 
011402 
011404 
011406 
011412 
011412 
011416 
011420 
011422 
011424 
011426 
011432 
011432 

011440 
01 1444 
CI 1446 
011450 
01 1452 
011454 



004737 
000404 
000240 
104000 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

012737 

004737 
000403 
000240 
104000 
004736 



042624 
042710 

011454 
052402 

011454 
000000 
044540 





011454 








011454 


000004 






011456 


000240 






011460 


012706 


001100 




011464 


013700 


001276 




011470 


01 3701 


001464 




011474 


012737 


000004 


180 








181 


011502 


004737 


052264 




011506 


000404 






011510 


000240 






011512 


104000 






011514 


000137 


011660 


182 


011520 






183 


011520 


112737 


000000 




01 1 526 


112737 


000200 




011534 


012737 


040000 




01 1 542 


004737 


043160 




011546 


000403 






011550 


000240 






011552 


104000 




784 


011554 


000441 




185 


011556 


112737 


000000 


186 


011564 


112737 


000010 


187 


011572 


112737 


000200 


188 








189 


011600 


004737 


042710 




011604 


000403 






011606 


000240 






011610 


104000 





^CRO V04.00 



5$: 



J 7 
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SFO 0087 



6t: 



001410 



7$: 



8S: 



jsr 


PC.GETSTS 


JSR 


PC, GET 


BR 


6S 


NOP 




EMT 




JMP 


8& 


JSR 


PC.CLfiSTS 


BR 


7$ 


NOP 




EMT 




JSR 


pc,a(SP)* 


JMP 


8S 


MOV 


*N0P,RMCS10 


JSR 


PC.SECERR 


BR 


8S 


NOP 




EMT 




'JSR 


pc.a(SP)* 



SETUP TO READ ALL REGISTERS 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 8S IF ERROR 

GO VERIFY CONTROLLER fLEAR OPERATION 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY CLRSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8$ IF ERROR 

CHANCE FUNCTION CODE FOR ERROR CHECK 

GO CHECK FOR SECONDARY ERRORS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR It DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 



.••TEST 4 ERROR CLEAR TEST 

■•»»••»•»**•»**»»••*•»••»»•»»•••»•»•••»•••♦••••••••••»•••*•»*•••• 

TST4: 



001226 



001543 
001544 
001410 



001514 
001515 
0015^6 



10$: 



20$: 



SCOPE 




.•SCOPE CALL 


NOP 




.-START OF TEST 


MOV 


fSTACK.SP 


.•INITIALIZE STACK POINTER 


MOV 


$8ASE.R0 


;R0 = UNJBUS ADDRESS 


MOV 


TSTQUE.R1 


;(R1) = DEVICE BEING TESTED 


MOV 


*4,STESTN 


;.SET TEST NUMBER IN APT HAIL BOX 


JSR 


PC.CNTCLR 


;60 ISSUE CONTROLLER CLEAR 


BR 


10$ 


;G0 TO 10$ IF NO ERROR 


NOP 




.-RETURN HERE IF ERROR 


EMT 




.•ERROR NUMBER DEFINED BY SUBROUTINE 


JMP 


50$ 


;G0 TO 50$ IF ERROR 


M0V8 


*RMCS1 ,PUTINX 


.•SETUP PJT INDEX TABLE 


Move 


*200.PUTINX*1 


.-SET TERMINATOR BYTE 


MOV 


*TRE.RMCS10 


.-SET RMCS1 OUTPUT BUFFER TRE 


JSR 


PC .PUT 


;G0 WRITE RMCS1 VIA PUT SUBROUTINE 


BR 


20$ 


;G0 TO 20$ IF NO ERROR 


NOP 




.•RETURN HERE IF ERROR 


EMT 




.-ERROR DEFINED BY PUT SUBROUTINE 


BR 


50$ 


.•SKIP REST OF TEST 


M0V8 


*RMCS1 .GETINX 




M0V8 


*RMCS2.GETINX*1 




M0V8 


*200.GETINX+2 




JSR 


PC. GET 


;G0 READ REGISTER (S) WITH GET SUBROiJUNE 


BR 


30$ 


;G0 TO 30$ IF NO ERROR 


NOP 




.•RETURN HERE IF ERROR 


EMT 




.•ERROR • DEFINED BY GH SUBROUTINE 



190 

'91 

192 

^93 

194 

195 

1% 

197 

198 
199 

200 
201 
202 
205 
20A 



RM05/5/2 FCTNL TST 
ERROR CLEAR TEST 



1 MACRO V0<i.00 4-APR-81 



011612 
0116U 
011622 
011626 
011634 
011636 

0116A0 
011646 
011654 
011656 

011660 



000422 
013737 
005037 
042737 
001401 
104137 

013737 
042737 
001401 
104140 



001334 
001140 
1 1 7777 



001344 
104377 



001142 30$: 
001142 



001142 
001142 



40$: 



50$; 



BR 

MOV 

CLR 

BIC 

BbQ 

EMI 

MOV 
BIC 
BEO 
EMT 



.••TEST 5 





011660 








TST5; 






011660 


000004 








SCOPE 




CI 1662 


000240 








NOP 




011664 


012706 


001100 






MOV 




011670 


01 3700 


001276 






MOV 




011674 


013701 


001464 






MOV 




01 1 700 


012737 


000005 


001226 




MOV 


205 














206 


011706 


004737 


052264 






JSR 




011712 


000404 








BR 




011714 


000240 








NOP 




011716 


104000 








EMT 




011720 


000137 


012174 






JMP 


207 


011724 








1$: 




208 


011724 


004737 


042624 






JSR 


209 














210 


011730 


004737 


042710 






JSR 




011734 


000403 








BR 




01 1 736 


000240 








NOP 




011740 


104000 








EMT 


211 


01 1 742 


000514 








BR 


212 


01 1 744 


032737 


010000 


001346 


2$: 


BIT 


213 


011752 


001016 








BNE 


214 


01 1 754 


013737 


001346 


001140 




MOV 


215 


011762 


042737 


162000 


001140 




BIC 


216 


011770 


052737 


010000 


001140 




8JS 


217 


011776 


013737 


001346 


001142 




MOV 


218 


012004 


104151 








EMT 


219 


012006 


000440 








BR 


220 














221 


012010 


032737 


000200 


001376 


3$; 


BIT 


222 


012016 


001422 








BEO 


223 


012020 


013737 


001376 


001142 




MOV 


224 


012026 


005037 


001140 






CLR 


225 


012032 


104152 








EMT 


226 














227 


012034 


032737 


040000 


001350 




BIT 


228 


0 J 2042 


001022 








BNE 


229 


012044 


013737 


001350 


001142 




MOV 


?50 


012052 


012737 


040000 


001140 




MOV 
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SEO 0088 

50$ .-SKIP REST Of TEST 

RMCS1I.$BDDAT :CHECK TRE MCPt 
$GDDAT .-EXPECT O'S 

**C<TRE.MCPE>.$BOOAT 

40$ .-BRANCH IF TRE S MCPE - 0 

137 

RMCS2I,$BDDAT ; CHECK RMCS2 

#*C<WCE lUPE .'NED.'PGE !MXF :MDPE>,$8DDAT 

50$ 

140 



DRIVE STATUS TEST 



#STACK,SP 
$8ASE,R0 
TSTQUE.R1 
#5.$TESTN 

PC.CNTCLR 
1$ 



8$ 

PC.GETSTS 

PC. GET 
2$ 



8$ 

*«0L,RMDSI 
3$ 

RMDSI.$GDDAT 

*ATA!ERR1PIP.'L8T 

*M0L,$GDDAT 

RMDSI.$BD(}AT 

151 

5$ 

*DVC.RMER2I 
4$ 

RMER2I.$BDDAT 
$GDDAT 

152 

ffUNS.RMERI I 
5$ 

RMER1I.$8D0AT 
*UNS,$GDDAT 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

GO ISSUE CONTROLLER CLEAR 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR NUMBER DEFINED BY SUBROUTINE 

GO TO 8$ IF ERROR 



GO READ RtGISTER(S) WITH GET bUeRCJTINE 

60 TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINr 

SKIP REST OF TEST 

MEDIUM ON LINE?? 

YESI! 

EXPECTED STATUS 
$GDDAT 

RECEIVED STATUS 

MOL STATUS INCORRECT 



IS THERE A DEVICE CHECK^^ 
BR IF NO 
RECEIVED STATUS 
EXPECTED STATUS 
DRIVE FAULT 



SET 



•)7 



IS UNS 

yes: ! 

received status 
expected status 



:«MMBO RM05/V2 FCTNL TST 
S DRIVE STATUS TEST 



AAifiO V04.00 



?51 012060 
232 012062 
233 

25A 01206A 

235 012072 

236 01207*. 

237 012102 

238 012106 

239 012110 
240 

2A1 0121 K 
2^2 012122 
243 01212A 
24A 012132 

245 012K0 

246 012146 
247 

248 012150 
24Q 012156 

250 012160 

251 012166 

252 012172 

253 012V4 
254 

25^ 



104153 
000412 

032737 
001410 
013737 
005037 
104154 
000137 

032737 
001412 
013737 
042737 
013737 
104175 

032737 
001406 
013737 
005037 
104205 



040000 

001350 
001140 

041374 

004000 

001346 
166076 
001346 

040000 

001376 
001140 





012174 








012174 


000004 






012176 


000240 






012200 


012706 


001100 




012204 


013700 


001276 




012210 


013701 


001464 




012214 


012737 


000006 


256 








257 


012222 


004737 


052264 




012226 


000404 






012230 


000240 






012232 


104000 






012234 


000137 


012354 


258 


012240 






259 


012240 


112737 


000000 




012246 


112737 


000200 




012254 


012737 


000023 




012262 


004737 


043160 




012266 


000403 






012270 


000240 




?60 


012272 


104000 




012274 


000427 




261 


012276 


004737 


042624 


262 


012302 


004737 


043522 


263 








264 


012306 


004737 


042710 




012312 


000403 






012314 


000240 






012316 


104000 




?6S 


012320 


000415 





001350 
001142 

001 346 

001140 
001140 
001142 

001576 
001142 



4$: 

51: 
6$: 



7%: 



8$: 





L 7 




APR-81 
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•6 


EMT 


153 


•"DVC" IS SET 8UT 'VWS" IS NOT 


BR 


5S 




BJT 


trUNS.RMERl I 


:IS UNS SET'*"' 


BEO 


6S 


:N0. ! 


MOV 


RMER1 I .SBDDAT 


.•RECEIVED STATUS 


CLR 


SGDDAT 


•EXPECTED STATUS 


EMT 


154 


•'t)VC" IS NOT SET BUT 'TJNS" IS 


JMP 


SEOSP 


•SKIP REST OF TEST 


BJ T 


tfWRL.RMDSI 


;IS WRITE PROTECT ON?? 


BEO 


7$ 


;N0! ! 


MOV 


RMDSI.tGDDAT 


.•EXPECTED STATUS 


BIC 


** C <MOL ! PGM I DPR ! DR Y ! VV ! 0M> , SGDDAT 


MOV 


RMDS I. SBDDAT 


.•RECEIVED STATUS 


EMT 


175 


.•SELECTED DEVICE IN WRITE PROTECT 


BIT 


*SKI.R«ER2I 


;IS SKI SET?? 


BEO 


8S 


;NOI ! 


MOV 


RMER2I. SBDDAT 


.•RECEIVED STATUS 


CLR 


SGDDAT 


.•EXPECTED STATUS 


EMT 


205 


.•PERSISTENT SEEK INCOMPLETE ERROR 



SEO 0089 



.••TEST 6 PRIMARY/SECONDARy ERROR TEST 

tST6: 



001226 



001543 
001 544 
001410 



IS: 



2$: 



SCOPE 




.•SCOPE CALL 


NOP 




.•START OF TEST 


MOV 


<fSTACK.SP 


; INITIALIZE STACK POINTER 


MOV 


SSASE^RO 


;R0 = UNiSUS ADDRESS 


MOV 


TST0UE,R1 


;(R1) = DEVICE BEING TESTED 


MOV 


#6,$TESTN 


;;SET TEST NUMBER IN APT MAIL BOX 


JSR 


PC.CNTCLR 


;G0 ISSUE CONTROLLER CLEAR 


BR 


IS 


;G0 TO IS IF NO ERROR 


NOP 




.•RETURN HERE IF ERROR 


EMT 




; ERROR NUMBER DEFINED BY SUBROUTINE 


JMP 


5$ 


;G0 TO 5S IF ERROR 


M0V8 


tfRMCSl .PUT I NX 


.•SETUP PUT INDEX TABLE 


Move 


*200.PUTINX+1 


.-SET TERMINATOR BYTE 


MOV 


tfPAKACK.GO.RMCSI 


D ;SET RMCSl OUTPUT BUFFER - PAKACK 


JSR 


PC, PUT 


;G0 WRITE RMCSl VIA PUT SUBROUTINE 


BR 


2S 


;G0 TO 2$ IF NO ERROR 


NOP 




.•RETURN HERE IF ERROR 


EMT 




.•ERROR DEFINED BY PUT SUBROUTINE 


BR 


5S 


;SKIP REST OF TEST IF ERROR 


JSR 


PC.GETSTS 


.•SETUP FOR STATUS FETCH 


JSR 


PC.TIMOUT 


.-WAIT FOR COMPLETION OF NOP 


JSR 


PC. GET 


;GC READ REGISTER(S) WITH GET SUBROUTINE 


BR 


3S 


;G0 TO 3S IF NO ERROR 


NOP 




.•RETURN HERE IF ERROR 


EMT 




.•ERROR » DEFINED BY GET SUBROUTINE 


BR 


5S 


.•SKIP REST OF TEST IF ERROR 



CZRWBO RM05/3/2 FCTNL TST 1 MACRO V04.00 
re PRIMARY /SECONDARY ERROR TEST 



M 

4-APR-81 11:43:28 PAGE 



7 

13- 



SEO 0090 



?66 012322 

267 012322 
012326 
012330 
012332 
012354 

268 012336 

269 012340 
2^0 012340 

012344 
012346 
012350 
012352 

271 012354 

272 

273 



004737 043706 

000404 

000240 

104000 

004736 

000406 

004737 044540 

000403 

000240 

104000 

004736 



3S: 



4$: 



5$: 



JSR 

BR 

NOP 

EMT 

JSR 

BR 

JSR 

BR 

NOP 

EMT 

JSR 



PC.PRIERR 
4$ 



pc.a(sp)* 

5$ 

PC.SECERR 
5S 



pc.acsp)* 



GO CHECK FOR PRIMARY ERRORS 

GO TO 4S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

SKIP REST OF TEST IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

GO TO 5S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEC^RR' SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 



.-•TEST 7 



DIAGNOSTIC MODE TEST 





012354 
C12354 










000004 








012356 


000240 








012360 


012706 


001100 






012364 


01 3700 


001276 






012370 


01 3701 


001464 






012374 


012737 


000007 


001226 


274 










275 


012402 
012406 
012410 
012412 


004737 
000404 
000240 
104000 


052264 






012414 


000137 


013426 




27b 


012420 








277 


012420 


112737 


000024 


001543 




012426 


112737 


000200 


001544 




012434 


012737 


000001 


001434 




012442 


004737 


043160 






012446 


000404 








012450 


000240 








012452 


104000 








012454 


000137 


013426 




278 


012460 


004737 


042624 




279 










280 


012464 
012470 
012472 
012474 


004737 
000404 
000240 
104000 


042710 






012476 


000137 


01 3426 




281 


012502 


032737 


000001 


001360 


282 


012510 


001011 






283 


012512 


012737 


000001 


001140 


284 


012520 


013737 


001360 


001142 


285 


012526 


104176 






286 


012530 


000137 


013426 




287 


012534 


032737 


010000 


001346 


288 


012542 


001411 






289 


012544 


013737 


001 3' & 


001142 


290 


012552 


042737 


1677 


001142 



TST7: 



1$: 



2S: 



3S: 



41: 



SCOPE 




.•SCOPE CALL 


NOP 




.-START OF TEST 


MOV 


*STACK.SP 


.-INITIALIZE STACK POINTER 


MOV 


SBASE.RO 


;R0 = UNIBUS ADDRESS 


MOV 


TSTQUE.RI 


;(R1) = DEVICE BEING TESTED 


MOV 


*7,$TESTN 


.-.-SET TEST NUMBER IN APT MAIL BOX 


JSR 


PC.CNTCLR 


;G0 ISSUE CONTROLLER CLEAR 


BR 


1S 


;G0 TO 1$ IF NO ERROR 


NOP 




.-RETURN HERE IF ERROR 


EMT 




.-ERROR NUMBER DEFINED BY SUBROUTINE 


JMP 


21$ 


;60 TO 21$ IF ERROR 


M0V8 


#RMMR1,PJTINX 


.-SETUP PUT INDEX TABLE 


M0V8 


*200,PUTINX+1 


.•SET TERMINATOR BYTE 


MOV 


#DMD,RMMR10 


.SET RMMRl OUTPUT BUFFER - DMD 


JSR 


PC, PUT 


;G0 WRITE RMMRl VIA PUT SUBROUTINE 


BR 


2$ 


;G0 TO 2$ IF NO ERROR 


NOP 




.•RETURN HERE IF ERROR 


EMT 




.•ERROR DEFINED BY PUT SUBROUTINE 


JMP 


21$ 


;G0 TO 21$ IF ERROR 


JSR 


PC.GETSTS 


.-SETUP FOR STATUS FETCH 


JSR 


PC. GET 


.GO READ REGISTER(S) WITH GET SUBROUTINE 


BR 


3$ 


;60 TO 3$ IF NO ERROR 


NOP 




; RE TURN HERE IF ERROR 


ErtT 




.-ERROR * DEFINED BY GET SUBROUTINE 


JMP 


21$ 


;G0 TO 21$ IF ERROR 


BIT 


#DMD,RMMR1I 


;IS DIAGNOSTIC MODE SET?? 


BNE 


4$ 


;YES. .' 


MOV 


*DMD,$GDDAT 


.-EXPECTED STATUS 


MOV 


RMMR1I,$BDDAT 


.-RECEIVED STATUS 


EMT 


176 




JMP 


21$ 


;SKIP REST OF TEST IF DMD - 0 


BIT 


ffMOL.RMDSI 


;IS "mi" 0 ?? 


BEQ 


5$ 


;YES! ! 


MOV 


RMDSI.$BDDAT 


.-SETUP BAD DATA FOR TYPEOUT 


BIC 


#*CMOL,$BDDAT 





'•ZRMMBO W05/5/2 FCTNL TST 1 HACRO VW.OO 4-APR-81 
'7 DIAGNOSTIC MODE TEST 









nni 1 /.n 
UU 1 1 hU 








eye 


r\i oc^/ 


m/ 1 7C 
IU41 /^L 








CMT 

tn 1 




Ul <: joo 


nZ'5777 


UrUUUU 


nni 7ZA 
UU 1 j'»o 


3»: 


O I T 

HI 1 


DO/ 




UOlU « <: 








UnJt 


cV!) 




A1 7777 


nni 7/ A 
UU 1 >»»o 


nni 1/5 
UUI K*: 




nuv 




A1 OiUV. 

Ul rt>0*» 


n/ 5777 


1 C7777 


nn 11/5 

UU 1 I 




Hi L 


■5Q7 


ni 0A1 0 


m 0777 

Ul 


UtUUUU 


nni 1 z.n 
UU 1 1 *»u 




nuv 




U 1 CO£U 


inA 5nn 








CMT 


7QO 
tW 


ni 


n75777 


nnz. nnn 

UU'^UUU 


nni 7Z.A 
UU 1 5*»o 




O I T 




ni 5iL7n 


nni /II 

UU 1 H 1 1 








DC n 




ni 5/;75 


ni 7777 

V 1 ^1 Jl 


nni 7Z.A 

UU 1 JHD 


nni 1 A5 

UU 1 1 








U 1 cO'fU 


nz 5777 

yjHci ji 


1 77777 

\ 1 JI 1 I 


nni 1 z. 5 
UU 1 iHc 




Hi (. 




ftl 


UU3Ujf 


nni 1 z.n 

UU 1 1 '•U 






LLK 






1 U'»cU 1 








CMT 




Kj 1 CO JH 


n75777 

\JjCI JI 


nz,nnnn 
u*»uuuu 


nni 77/s 
UU 1 J' o 


7C . 

/» : 


Q I T 
HJ 1 




f>1 


nni A1 1 
UU mil 








Hru 


X(\7 


01 '^(■.(■.L 

y 1 coo*» 


ni 7777 


nni 77A 

UU 1 jr O 


nni 1 Z.5 

UU 1 1 HC 




nuv 


xna 

jUo 


Kj \ cot c 


CiL 5777 
\)HC.I JI 


1 77777 

1 JI III 


nni 1 z.5 

UU 1 1 HC 




Hi L 




ni 57nn 


nnt;n77 


nni 1 L(\ 
UU 1 ' *»u 






L LK 


7in 

J 1 u 




inA?n? 

1 \JHC\JC 








CMT 

t" 1 


71 1 


ni 57nA 


n75777 

\JJCI JI 


vvvcW 


nni 77A 

UU 1 3r O 


fiC • 
o» • 


O I T 
□ i 1 


XI ? 

J 1 c 


ni ?7i A 


nni A1 1 

Uv 1 H 1 1 










71 7 


ni ?7i A 

CI ID 


ni 7777 

U 1 J' J' 


nni 77A 

UU 1 J f o 


nni 1 z.5 

UU 1 1 




Mnw 
nuv 


71 A 


ni 57PZ. 
\J \ CI CH 


nA5777 


1 7T\77 
\ 1 1 jl 1 


nni 1 A5 

UU 1 1 *»c 




D J L 


71 S 


ni ?77P 


nn*in77 


nni i^n 

UU 1 1 SU 








71 ^ 


ni ?77A 
vie' jO 


1 nApnx 

1 Uhc V J 








CMT 

tn 1 


71 7 


\J \ CI HU 








7* . 




71R 


ni P7An 


1 1 P777 

1 let JI 




nni SAX 

UU 1 jhj 




nuvs 




012746 


112737 


000200 


001 544 




MOVB 




012754 


012737 


001711 


001434 




MOV 




012762 


004737 


043160 






JSR 




nip 7/^A 


(innAfA 

UvUHLH 








DD 




\} \ CI Iv 


nnnp^n 








MOD 




ni ?77? 

\J I CI 1 c 


1 nz. nnn 








CMT 

tn 1 




012774 


nnni 37 


ni 7A5A 
U 1 j*«cO 






IMO 


710 


ni 7nnn 








1 n« . 

1 u« : 




>). U 


Ti 7nnn 
ni 7nnz. 
ni 7nnA 
m 7ni n 


nnz. 777 

Uv't 1 JI 
UUUhUh 

nnn5z.n 
m^nnn 


nz.371 n 

\JhcI I u 






1 CD 

Jon 

QD 
OK 

CMT 

tn 1 




ni 7ni ? 


nnm 77 

UUU 1 5 ' 


ni 7/. 3 A 






IMD 




ni 7ni A 


n75777 


UUUUU 1 


nni 7An 

UU 1 jOU 


11*. 


BIT 

Hi 1 


7PJ 


ni 7n3/. 
m 7n3A 


nnmi i 

UU 1 U 1 1 








omc 
oNc 


737 


UlCf Jf 


nnnnni 


nni 1 z.n 

UU 1 1 "lU 




nuv 




ni 71". <i 


ni 7777 

\J] Jf JI 


nn 1 7An 

UU 1 JOU 


nni 1 A 3 

UU 1 1 HC 




nuv 


73^ 


ni 7n/.3 


1 nz. 1 7A 

1 U*» 1 ' o 








CMT 

tn 1 


7^^ 


ni 7n/.A 


nnni 77 

UUU 1 J 1 


ni 7A 5A 

U 1 JHCO 






IMD 

Jrr 


737 


ni 7n?n 


n73777 


n 1 f\i\f\(\ 
U 1 UUUU 


'^n1 7/ A 

UU 1 i*fO 


1 5C . 


BIT 

Hi 1 


528 


013056 


00101? 










529 


013060 


013737 


001 346 


001142 




MOV 


350 


013066 


042737 




001142 




BIC 


331 


013074 


012737 


010000 


001140 




MOV 


532 


013102 


104170 








EMT 


333 


013104 


032737 


020000 


001346 


13$: 


BIT 


M4 


013112 


001411 








BEQ 




013114 


013737 


001346 


001142 




MOV 


<3e 




042737 


57777 


001 H2 




Bir 



N 7 
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SEO 0091 



SGDDAT 

170 

*PJP.RMOSI 
6S 

RMDSI.SBDDAT 
**CPJP,$BDDAT 
*P J P. SGDDAT 

200 

/irWRL,RMDSI 
7$ 

RMDSI.SBDDAT 

tf^CWRL.SBDDAT 

SGDDAT 

201 

#SKI.RMER2I 
8S 

RMER2I,$BDDAT 
**CSKI .SBDDAT 
SGDDAT 

202 

*DVC.RMER2I 
9S 

RMER2 I, SBDDAT 
**CDVC. SBDDAT 
SGDDAT 
203 

*RMMR1.PUTINX 
*200.PUTINX*1 



SETUP GOOD DATA FOR TVPEOUI 

IS PIP SET?? 
YESI . 

SETUP BAD DATA FOR TVPEOUT 

EXPECTED PIP SET 

IS WRITE LOCK OFF?? 
YES! ! 

SETUP BAD DATA FOR TYPEOUT 
EXPECTED WRL = 0 

IS SKI - 0 

yes; . 

seti;« bad data for typeout 

ski should be 0 

is device check = 07? 

YES! ! 

SETUP BAD DATA FOR TYPEOUT 
DVC SHOULD BE 0 



*DMD ! MUR ! MOC ! MSER 1 MDF ! MWP , RMMR 1 0 
PC. PUT 
lOS 



21S 

PC. GET 
11$ 



21$ 

#DMD-RMMR1I 
12$ 

^DMD.$GDDAT 
Rf1MRlI.$BDDAT 

176 
21$ 

#MOL,RMDSI 
13$ 

RMDSI.$BDDAT 
**CMOL,$BDDAT 
iW>10L,$GDDAT 
170 

#PIP.RMDSI 
14$ 

RMDSI.$BDDAT 
#*CPIP.$8DDAT 



SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 



GO WRITE RMMR1 VIA PUT SUBROUTINE 
GO TO 10$ IF NO error' 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 21$ IF ERROR 

GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR ^- 

ERROR ff DEFINED BY GET SUBROUTINE 

GO TO 21$ If ERROR 

IS DIAGNOSTIC MODE SET?? 

YES ' 

EXPECTED STATUS 
RECEIVED STAJUS 

SKIP REST OF TEST IF DMD = 0 
IS MOL = 1?? 
YES. ! 

SETUP BAD DATA FOR TYPEOUT 



.-SET RMMR1 OUTPUT BUFFER = DMD I MUR M 



EXPECTED MOL = 1 



IS PIP - 0 ? 
YES! ! 

SETUP BAD DATA FOR TYPEOU^ 



• 7 



557 

538 

559 

340 

341 

-•Ad 

543 

544 

345 

?4fc 

547 

5^8 

349 

550 

551 

552 

553 

354 

355 

356 

357 

358 

359 

360 

361 

562 

563 

564 



565 
366 



56/ 
568 
569 
370 
571 
572 
373 
374 
375 



W>l05/5/*. '^»MI T5T 1 
DIAGNOSTIC «00E TEST 



013130 

013134 
013156 
013144 
013146 
0'5i54 
015162 
0^3170 
01317? 
013200 
01 3202 
013210 
013216 
01 5224 
013226 
013234 
013236 
013244 
013252 
01 5260 
015262 
013270 
013272 
013300 
013306 
015312 
013514 
015514 
01 3322 
013330 
013336 
013342 
013344 
013346 
013550 
013554 
015554 
01 5360 
015362 
01 3564 
013366 
01 3372 
013400 
013402 
013410 
013416 
013424 
01 3^ ."'6 



B 

PAGE 















•FVPFTTFO PfP <TATii^ 


' v*»cW 








en 1 


POO 






nrw AAn 




'■49* 






« i O W^L < • ■ 


VA/ 1 V f c 










15S 


; YES! '. 


r»iX7X7 

\J 1 Jl Jf 


1 7^77"* 


nni 1^? 

VV 1 1 **C 




MOU 




•^FTt'lP RAD DATA FOR TVPFOllT 




001 ""^.P 

V*' 1 




R! r 

Cli L 






ni ?7T7 




001 1^0 

VV ' 1 V 




MOV 


#URl Xf^DDAT 


•FXPFfTFD GOOD 5TATH^ 












201 




n^P7'^7 


vH WW 


001 ^7fi 

VV 1 J * o 




RI ^ 






VV 1 V 1 c 










165 


; VES ' ! 


U ' Jl Jl 




001 1^? 






RMFRPI tRDDAT 


•RAD DATA FOR TVPFOlJ* 


04P737 

V/HC 1 Jl 


1 Vf777 


001 142 










ni P7^7 

\J \ C 1 -'I 








MOV 

'TV » 




•FXPFfTFD <;<Cl OW 










L n 1 


202 




V jC I J I 




001 57^, 




r 

u i • 


#D\/r RMFRPI 


• K DVf SFT 


noini ? 

W 1 V 1 c 










171 


; VES . 


01 ^7^7 










RMFRPI SRDDAT 


■RAD DATA FOR TVPFOllT 


0A?737 


177577 


001 14? 




BIC 










001 1^0 

W 1 1 "tv 








•FXPFTTFD DVr ON 


104203 








EMT 


203 




VJCI Jl 


nrtni no 




1 7* • 




* V V ,Ftni/ J i 


-MrP ^MHi II uAwF PPCPT wni imp wai in 

, nun jnuULu nMVC rtc jC I VULV^tC VML 11/ 


00K1 1 










18S 


-ARAMfH IF IT DID 


01 ^757 


00 346 


001 142 

V V • ' ~ c 




MOV 


RMDSJ SBDDAT 


■BAD DATA FOR TYPFOUT 


042757 


}77677 


001 142 




BJ C 


#*CVV.$8DDAT 




005057 


001 140 






CLR 


SGDDAT 


.-GOOD DATA FOR TYPE OUT 


104204 






18S: 


FMT 


204 




112757 


000000 


001543 




M0V6 


#RMCS1 .PUTINX 


.■SETUP PUT INDEX T^SLE 


112737 


000200 


001544 




M0V8 


#200. PUT I NX* 1 


.-SET TERMINATOR BrTE 


012737 


00001 1 


001410 




WV 


mVCLRlGO.RMCSlO ;SET RMCM OUTPUT BUFFER 


004737 


043^60 






JSR 


PC, PUT 


;G0 WRITE RMCSl WA PUT SUBROUTINE 


U00404 








BR 


19S 


;60 TO 19S IF NO ERROR 


000240 








NOP 




.RETURN HERE IF ERROR 


104000 








E«T 




.•ERROR DEFINED BY PUT SUBROUTINE 


000137 


013426 






JMP 


21J 


;G0 TO 21 S IF ERROR 



004737 
000404 
000240 
104000 
000157 
032737 
001012 
013737 
012737 
042757 
104262 



013426 
01 3426 
013430 
013432 
013436 



000004 
000240 
012706 
013700 



042710 



013426 
002000 

001376 
002000 
002000 



19$: 



001 3 7t) 20$: 

001142 
001140 
001142 

21$: 



^SR 

6R 

NOP 

EMT 

JMP 

BIT 

BNE 

MOV 

MOV 

BIC 

EMT 



PC.GET 
20$ 



21$ 
<fL8C.RMER2l 
21$ 

RMER21.$8DDAT 
#L8C. $GDDAT 
#L8C. $80DAT 
262 



DRVCLRIGO 



GO READ RE6ISTER(S) WITH GET SUBROUTINE 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 21$ IF ERROR 

IS L8C SET ?? 

yes: . 

8ad data for type out 
good data for typeout 



•TEST 10 
ST10: 



PACK ACKNOWLEDGE TEST 



0011 00 
001276 



SCOPE 
NOP 
MOV 
MOV 



#STACK.SP 
$8ASE.R0 



SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 
RO = UN I BUS ADDRESS 



Too 




TST 1 


MACRO V04.00 






PACK ACKNOWLEDGE TEST 












01 3701 


001464 










01 3<>46 


012737 


COOOlO 


001226 




nuv 
















7 77 


0T3A54 


004757 


052264 






J On 




01 3460 


000404 








on 




01 3462 


000240 












013464 


1C4000 












013466 


000137 


013726 






IMP 


77ft 

Jf o 


013472 








1»: 




77Q 


013472 


112737 


000024 


001 d43 




MDUR 
nuvo 




013500 


112737 


000200 


001544 




Mnv/P 




013506 


012737 


000001 


AA1 /I/ 








013514 


004737 


O/.5160 






J on 




OT 3520 


000404 








on 




013522 


000240 








MOP 




01 3524 


104000 








PMT 




013526 


000137 


013726 






IMP 




013532 








2>: 






013532 


112737 


000024 


001 








CI 3540 


112737 


000200 


001 bHH 




MDUP 
nu vo 




013546 


012737 


000000 






nuv 




013554 


004737 


043160 






J jn 




01 3560 


000404 








Mi 
OH 




013562 


000240 








MOP 




013564 


104000 








t'" ' 




013566 


000137 


013726 






IMP 




013572 








3»: 






013572 


112737 


000000 


001 D<f5 








013600 


112737 


000200 


AA1 C/ / 
001 bHH 




MTIV/Q 

nuvo 




013606 


012737 


000023 


AAl / 1 A 

001^10 




HUV 




013614 


004737 


043160 






Jon 




013620 


000404 








RR 
On 




013622 


000240 








Mnp 




013624 


104000 








FMT 

C ™ 1 




013626 


000137 


013726 






IMP 




013632 


004737 


042624 




4>: 


ICR 




013636 


004737 


043S22 






KR 
J jn 
















JO/ 


013642 


004737 


042710 






KR 
J on 




013646 


000403 








PR 

on 




013650 


000240 












01 3652 


104000 








TMT 


JOO 


013654 


000424 








PR 

On 




013656 








cc • 

>». 






013656 


00'«737 


'143706 






ISR 

J jn 




013662 


000404 








AR 
On 




013664 


000240 








MOP 




013666 


104000 








FMT 




013670 


004736 








KR 
J jn 


J T 1 


013672 


000415 








PR 
On 




013674 












393 


013674 


004757 


055262 






JSP 




013700 


000404 








BR 




01 3702 


000240 








NOP 




013704 


104000 








EMT 




013706 


004736 








JSR 




C13710 


000406 








BR 



11-43:28 PAGE 



TS7QUE.R1 
•10,$TESTN 

PC.CN^CLR 
1$ 



8$ 

#aiWl , PUT I NX 

#200,PUTINX*1 

*DMD,RWIR10 

PC, PUT 

2% 



8S 

#Rff1R1,PUTINX 
#200. PUT I NX ♦! 
»0.RMMR10 
PC. PUT 
3S 



as 

#RMCS1.PUT1NX 
*?00.PUTINX*1 



SfcC C'OV' 



.•(R1) = DEVICE BEING TESTED 
;;SET TEST NUMBER IN AP' MAIL BOX 

GO ISSUE CONTROLLER CLEAR 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR NUMBER DEFINED BY SUBROUTINE 

GO TO 8$ IF ERROR 



SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMTRl OUTPUT BUFFER - DMD 

GO WRITE RMMRl VIA PUT SUBROUTINE 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SlBROUTINE 

GO TO 8S IF ERROR 

SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMMR1 OUTPUT BUFFER - 0 

60 WF»ITE RMMR1 VIA PUT SUBROUTINE 

60 TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 8$ IF iTRROR 



#PAKACK!G0.RMCS10 
PC. PUT 
4S 



.•SETUP PUT INDEX TABLE 
;SET TERMINATOR BYTE 



8S 

PC.6ETSTS 
PC.TIMQUT 

PC. GET 
5$ 



8$ 

PC.PRIERR 
6S 



PC.a(SP)* 
8$ 

PC.ACKSTS 
7$ 



pc.a(SP)* 

8t 



.-SET RMCSl OUTPUT BUFFER PAKACK!GO 
GO WRITE RMCSl VIA PUT SUBROUTINE 
60 TO 4$ IF NO ERROR 



RETURN HERE IF ERROR 

ERf 



ERht)R DEFINED BY PUT SUBROUTINE 
60 TO 8S IF ERROR 

.•WAIT FOR COMPLETION 

GO READ REGISTER(S) WITH GET SUBROUTINE 

60 TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

SKIP REMAINDER OF TEST 

60 CHECK FOR PRIMARY ERRORS 

60 TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BV PRIERR SUBROUTI\E 

60 BACK FOR MORE ERROR CHECKS 

SKIP TO NEXT TEST 

60 VERIFY PACK ACKN0ULED6E 

GO TO 7$ !F NO ERROR 

RETURN her: if ERROR 

ERROR * DEFINED BY ACKSTS SUBROUTINE 

60 BACK FOR ^ORE ERROR CHECKS 

SKIP TO NEXT TEST 



CZ^MMBO RM05/3/2 FTTNL TST 1 
no PACK ACKNOWLEDGE TEST 



MACRO V04.00 4-APR-81 



595 
596 
^97 



398 
399 
«,00 



401 
402 



013712 
013712 
013716 
013720 
013722 
013724 
013726 



004737 044540 

000403 

000240 

104000 

004736 



7$: 



8S: 



jSR 
-BR 
NOP 
EMT 
JSR 



013726 








013726 


000004 






013730 


000240 






01i732 


012706 


001100 




013736 


01 3700 


001276 




013742 


013701 


001464 




01 3746 


012737 


000001 


00^206 


013754 


012737 


0C001 1 


001226 


01 3762 


004737 


041650 




01 3766 


050020 







•TEST n 



TSTII 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 
.WORD 





013770 


000404 








BR 




013772 


000240 








NOP 




013774 


104000 








EMT 




01 3776 


000137 


014144 






JMP 


403 


014002 








1$: 




40<. 


014002 


112737 


000000 


001543 




M0V8 




014010 


112737 


000200 


001544 




M0V8 




014016 


012737 


000007 


001410 




MOV 




014024 


004737 


043160 






JSR 




014030 


000404 








BR 




014032 


000240 








NOP 




014034 


104000 








FMT 




014036 


000137 


014144 






JMP 


405 


014042 


004737 


042624 




2$: 


JSR 


406 


014046 


004737 


043522 






JSR 


407 














408 


014052 
014056 
014060 
014062 


004737 
000404 
000240 
104000 


042710 






JSR 
BR 
NOP 
EMT 




014064 
014070 


000137 


014144 






JMP 


409 








3$: 




410 


014070 
014074 
014076 
014100 
014102 


004737 
000405 
000240 
104000 
004736 


043706 






JSR 

BR 

NOP 

EMT 

JSR 




014104 


000137 


014144 






JMP 


411 


014110 








4$: 






014110 
014114 


004737 
000405 


054056 






JSR 
BR 



D 8 
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PC.SECERR ;G0 CHECK FOR SECONDARY ERRORS 

8 J ;G0 TO 3S IF NO ERROR 

.-RETURN HERE If ERROR 

.'ERROR # DEFINED BY SECERR SuBROUTINf 
Pf.a(SP)* ;G0 BACK FOR MORE ERROR CHECKS 



RECALIBRATE TEST 



*STACK.SP 

SBASE.RP 

TSTQUE,R1 

*1.$TIMES 

*11,$TESTN 

PCJSTPRP 
05002C 



1$ 
6$ 

#RMCS1 .PUTINX 
#200.PUTINX*1 

#recal:go,rmcsio 

PC.PUT 
2$ 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

;D0 1 ITERATION 

.-SET TEST WJMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR M DEFINED BY TSTPRP SUBROUTINE 

GO TO 6S IF ERROR 



6$ 

PCGETSTS 
PC'IMOUT 

PC. GET 
3$ 



6S 

PC.PRIERR 
4$ 



PC.a(SP)* 
6$ 

PC.RCLSTS 
5$ 



.•SETUP PUT INDEX TABLE 
;SET TERMINATOR BYTE 

;SET RMCS1 OUTPUT BUFFER RECAL 
60 WRITE RMCSl VIA PU^ SUBROUTINE 
GO TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BV PUT SLBROUTINE 
60 TO 6$ IF ERROR 
GO SETUP FOR STATUS FETCH 
WAIT FOR COMPLETION 

GO READ REGISTER(S) WITH GET SUBROUTIf^ff 

GO TO 3$ IF NO ERROR 

RETURN HERE I*^ ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 6$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 6$ IF ERROR 

;G0 VERIFr RECALIBRATE OPERATION 
;G0 TO 5$ IF NO ERROR 



ZRIWBO RM05/3/^ FCTNL TST 1 
RECALIBRATE TEST 



4^4 



415 
416 
417 



014116 
014120 
014122 
014124 
014130 
014130 
014134 
014136 
014140 
014142 
014144 



000240 
104000 
004 "'36 

000137 014144 

004737 044540 

000403 

000240 

104000 

004736 



MACRO V04.00 4-APR-81 



NOP 
EMT 
JSR 
JMP 



5$: 



6S: 



C14144 








014144 


000004 






014146 


000240 






014150 


012706 


001100 




C14154 


013700 


001276 




014160 


013701 


001464 




014164 


012737 


000001 


001206 


014172 


012737 


000012 


001226 


418 








419 0''4200 


004737 


041650 




014204 


054130 







JSR 

BR 

NOP 

EMT 

JSR 



"TEST 12 
TST12: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 
.WORD 



014206 
014210 
014212 
014214 

420 014220 

421 014220 
014226 
014234 
014242 
CI 4246 
014250 
014252 
014254 

422 014260 

423 014260 
014266 
014274 
014302 
014306 
014310 
014312 
014314 

424 014320 
425 

426 0'4324 



000404 
000240 
104000 
000137 

112737 
112737 
012737 
004737 
000404 
000240 
104000 
000137 

112737 
112737 
012737 
004737 
000404 
000240 
104000 
000137 
004737 



014452 

000014 00154 3 
000200 001 544 
040000 001424 
043160 



014452 

000000 001543 
000200 001 544 
000007 001410 
043160 



1$: 



21: 



014452 
042624 



3$: 



004737 042710 



BR 
NOP 
EMT 
JMP 

M0V8 

M0V8 

MOV 

JSR 

BR 

NOP 

EMT 

JMP 

M0V8 

M0V8 

MOV 

^SR 

BR 

NOP 

EMT 

JMP 

JSR 

JSR 
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PC.a(SP)* 
6S 

PC.SECERR 
6$ 



pc,a(SP)* 



SEC 0095 



RETURN HERE If ERROR 

ERROR » DEFINED Br RCLSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 6$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

60 TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY SETERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 



A80RT RECALIBRATE TEST 



#STACK,SP 

$8ASE,R0 

TSTQUE.Rl 

#1-$TIMES 

*12,STESTN 

PC.TSTPRP 
054130 



1$ 
9S 

#RMFR1.PUTINX 

*200.PUTINX*1 

*UNS.RMER10 

PC, PUT 

2$ 

9S 

#RMCS1 .PUTINX 

*200.PUTINX+1 

*RECAL.60,RMCS10 

PC. PUT 

3$ 



9$ 

PC.GETSTS 
P' .GET 



SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 
RO = UNJ8US ADDRESS 
(Rl) = DtVICE BEING TESTED 
;D0 1 ITERATION 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS : 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "Sk:" OR "PJP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

60 TO 9$ IF ERROR 

SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMER1 OUTPUT BUFFER UN5 

GO WRITE RMER1 VIA PUT SUBROUTINE 

GO TO 2S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 9S IF ERROR 

SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 

;SET RMCS1 OUTPUT BUFER RECAL.GO 
GO WRITE RMCS1 VIA PUT SUBROUTINE 
GO TO 3S IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 9$ IF ERROR 
SETUP FOR STATUS FETCH 

GO READ REGISTER(S) WHH GE ' :uef.'j> 'IV 



►^TBC f*M05/^/2 FCTML 'ST 1 

ABORT RECALIBRATE TEST 



KWCWO V04.00 4-APR-81 







Ann A f\L. 






















U 1 *• J JH 








FMT 




U 1 H J X) 


UUU 1 J' 


01 LL*^"? 




MP 


••r 


'J 1 *♦ J*»C 


n7?777 
Vjcf J' 




it • 


R I T 


*»cO 










DC W 


/ 

'•c ^ 


ni AT*;? 


1 HA T 1 Z. 








/ zrs 


U 1 *♦ J 






St • 

J* ■ 


J on 


•« J 1 














.11^ TAD 


AflA 777 






J J n 




n 1 A 

U 1 H 3DH 


\J\J\JH\JH 










U 1 *» jOO 








MOP 




m A77n 












(\^LX7'> 








)MP 


'^J> 


J ' *♦ J f o 






^t ■ 




L'^L 


^ *« J f o 


0047^7 


0437n^ 




jsr 




01440? 








on 






nnop^o 






NOP 












FMT 






00^ 7 

VVH r JO 






JSR 




ni ^41 ? 


nnn''X7 

V/Vw Jr 


0144SP 




jmp 




ni44ift 






7$: 






0T4416 


004737 


057766 




JSR 






000405 






RR 












NOP 












FMT 






004 7'?6 






JSR 




0144?? 


0001 37 

WWW 1 J 1 


0K452 




JMP 










8S: 






014436 


0C4737 


044540 




JSR 




014442 


000403 






BR 




014444 


000240 






NOP 




014446 


104000 






EMT 




014450 


004736 






JSR 


439 


014452 






















441 


















.••TEST 


13 



442 
44 3 



014452 
014452 
C14454 
014456 
014462 
014466 
014472 
014500 

0U506 
014512 



000004 
000240 
012706 
013700 
013701 
012737 
012737 

004737 
054130 



001100 
001276 
001464 
000001 
000013 

041650 



TST13: 



001206 
001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

MOV 

jSR 
.WORD 



:'45'4 



000404 



BR 



F 8 
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4$ 



9$ 

ffPIP.RMDSJ 
5$ 

214 

PC.TIMOUT 

PC. GET 
6S 



9$ 

PC.PRIERR 
7$ 



pc.a(SP)+ 

9$ 

PC.STCDRVSTS 
8S 



pc.a(SP)* 

9$ 

PC.SECERR 
9$ 



PC,a(SP)* 



GO TO 4$ IF NO ERROR 

RETURN HERE JF ERROR 

ERROR * DEFINED BY GET SUBROuriNE 

GO TO 9$ JF ERROR 

DJD THE DRIVE RECALIBRATE?? 

NO. . 

WAIT FOR COMPLETION 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SU8R0UMNE 

GO TO 9$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

GO CHECK FOR CHANGES IN DRIVE STATUS 
GO TO 8$ IF NO ERROR 
RETURN HERE IF ERROR 

ERROR # DEFINED BY STCDRVSTS SUBROUTINE 
60 BACK FOR MORE ERROR CHECKS 
GO TO 9S IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

GO TO 9J IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 



*•»»»••*»•**■»♦*»»»*•••••••»••*•»•»•»»•»♦»•»•»•••••• 



IVC RECALIBRATE TEST 



#STACK,SP 

SBASE.RO 

TSTQUE.R1 

#1.$T]MES 

*'3,$TESTN 

PC.TSTPRP 
054130 



SCOPE CALL 

START OF TEST 

INJTIALJ2E STACK POINTER 

RO = UNJ8US ADDRESS 

(R1) - DEVICE BEIN6 TESTED 

;D0 1 ITERATION 

;SET TEST NUMBER IN APT MAIL 



BOX 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER 8 SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SE' 
VERIFY RE CAL I BRAT I ON 
GO TO 1$ IF NO ERROR 



. /««f180 RM05/^/2 FCTNL TST 't "1ACR0 V04.00 4-APR-81 
IVC RECALIBRATE TEST 



0U516 000240 NOP 

0K520 104000 EM^ 

014522 000137 014762 JMP 
4^4 014526 

^.45 014526 112737 000024 00154? M0V8 

014534 112737 000200 0015^.4 

014542 012737 000001 001434 MOV 

014550 004737 043160 JSR 

014554 000404 BR 

014556 000240 NOP 

014560 104000 EMT 

014562 000137 014762 JMP 

446 0145t6 2$: 

447 014566 112737 000024 001543 M0V8 
014574 112737 000200 001544 P10V8 
0'4602 012737 000000 001434 MOV 
014610 004737 043160 JSR 
014614 000404 BR 
014616 000240 NOP 
CI 4620 104000 EMT 
014622 000137 014762 JMP 

448 014626 3$: 

449 014626 112737 000000 001543 M0V8 
014634 112737 000200 00" 544 M0V8 
014642 012737 000007 001410 MOV 
014650 004757 043160 jSR 
014654 000404 BR 
014656 000240 NOP 
014660 104000 EMT 
014662 000137 014762 jMP 

450 014666 004737 042624 4$: JSR 
45 014672 004737 043522 JSR 
452 

a53 014676 004737 042710 JSR 

014702 000404 BR 

014704 000240 NOP 

0U 706 104000 EMT 

014710 000137 014762 JMP 

454 014714 5$: 

455 014714 004737 043706 JSR 
014720 000405 BR 
CI 4 722 000240 NOP 
014724 104000 FMT 
014726 004736 JSR 
014730 000137 014762 JMP 

456 014734 032737 010000 001376 6$: BIT 

457 014742 00^001 BNE 

458 014744 104215 FMT 

459 014746 7$: 

460 014746 004737 044540 jSR 
014752 000403 BR 
014754 000240 NOP 
014756 104000 EMT 
014760 004736 JSR 

1 , 46' 01476? 8$: 

46? 

463 



G 8 
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8$ 

•RMMRI .PUT] NX 
*200.PIJTINX + 1 
*I>MD.RMMR10 
PC. PUT 
2$ 



8$ 

#RMMR1.PUTINX 

*200.PUTINX*'' 

*O.RMMR10 

PC. PUT 

3S 



8$ 

*PMCS1 .PUTINX 
*200.PUT]NX*1 

*recal:go.rmcsio 

PC.PUT 
4$ 



8S 

PC.GETSTS 
PC.TIMOUT 

PC. GET 
5S 



8S 

PC, PR I ERR 
6$ 



pc.a(SP)* 
8$ 

#IVC.RMER2I 
7$ 

215 

pc.secerr 

8$ 



PC.SCSP)' 



RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTIME 

GO TO 8$ IF ERROR 

SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMMR1 OUTPUT BUFFER " DMC 

GO WRITE RMMR1 VIA PUT SUBROUTINE 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 8$ IF ERROR 

SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMMR1 OUTPUT BUFFER 0 

GO WRITE RMMR1 VIA PUT SUBROUTINE 

GO TO 3$ IF HO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 8$ IF ERROR 

SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 

.-SET RMCS1 OUTPUT BUFFER RECALIGO 
GO WRITE RMCS1 VIA PUT SUBROUTINE 
GO TO 4$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 8$ IF ERROR 
SETUP FOP STATUS FETCH 
WAIT FOft RECAL ^0 COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

60 TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GE ' SUBROUTINE 

GO TO 8$ If ERROR 

60 CHECK FOR PRIMARY ERRORS 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8$ IF ERROR 

IVC SHOULD BE SET 

IT IS - GO CHECK SECONDARY ERRORS 



GO CHECK FOR SECONDARY ERRORS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 



''^ lAE RECALIBRATE TEST 



MACRO VGA. 00 4-APR-8'' 



.••TEST U 



0U762 

014762 000004 

014764 000240 

014766 012706 001100 

014772 013700 001276 

014776 013701 001464 

015002 012737 000001 001206 

015010 012757 000014 001226 

4^4 

4o5 015016 004737 041650 

015022 054130 



TSTU; 



SCOPE 

NOP 

MOV 

MOV 

P*OV 

MOV 

MOV 

JSR 
.WORD 





CI 5024 


000404 
000240 








BR 




015026 








NOP 




015030 


104000 








EMT 




015032 


0001 37 


015224 






JMP 


466 


015036 








1$: 




467 


015036 


012737 


1 /7777 


001444 




MOV 


468 


015044 


012737 


177777 


001416 






469 


015052 


012737 


000007 


001410 




MUV 


470 


015060 


012702 


001543 






MOV 


471 


01 5064 


112722 


000034 






M0V8 


472 


015070 


11272? 


000006 






M0V8 


473 


015074 


1 1 2722 


000000 






M0V8 


47*. 


015*00 


U2722 


000200 






M0V8 


475 


015104 
015110 
015112 


004737 
000404 
000240 


043160 






JSR 

BR 

NOP 




015114 


104000 








EMT 




015116 


000137 


015224 






JMP 


476 


015122 


004737 


042624 




2$: 


JSR 


47^ 


015126 


004737 


043522 






JSR 


478 














479 


015132 
C15136 
015140 
015142 


004737 
000404 
000240 
104000 


042710 






JSR 
BR 
NOP 
EMT 




015144 


0C0137 


015224 






JMP 


480 


015150 








3$: 




481 


015150 
015154 
015156 
015160 
015162 


004737 
000405 
000240 
104000 
004726 


043706 






JSR 

BR 

NOP 

EMT 

JSR 




015164 


000137 


015224 






JMP 


482 


015170 








4$: 




483 


015170 
015174 
015176 
015200 


004737 
000405 
000240 
104000 


054056 






JSR 
BR 
NOP 
FMT 



H 8 
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lAE RECALIBRATE TEsT 



slu Hoy- 



*STACK,SP 

$8ASE.R0 

TSTQUE.R1 

#1.$TiMES 

tfU.STESTN 

PCTSTPRP 
054130 



1$ 
6$ 

*-1 .RMDCO 

#-1 ,RMDA0 

*RECAL!G0.RMCS10 

*PUTJNX,R2 

*RMDC,{R2)* 

*RMDA.{R2>* 

*RMCS1.(R2)+ 

*200.(R2)+ 

PCPUT 

2$ 



6$ 

PC.GETSTS 
PC.TJMOUT 

PC, GET 
3$ 



6$ 

PC.PRIERR 
4S 



PC.a(SP)+ 
6S 

PC.RCLSTS 
5$ 



SCOPE CALL 

START OF 'EST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(RD = DEVICE BEING TESTED 

;D0 1 ITERATION 

.-SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER S SELECT DEVICE 

VERIFY CONTROLLER CLEA»J OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 6$ IF ERROR 

RMDC WILL BE ALL ONES 
RMDA WILL BE ALL ONES 

R2 POINTS TO PUT INDEX TABLE 
SETUP PUT INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 6$ IF ERROR 

SETUP FOR STATUS FETCH 

WAIT FOR GO TO RESET 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR a DEFINED BY GET SUBROUTINE 

GO TO 6$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 6$ IF ERROR 

GO VERIFY RECALIBRATE OPERATION 

GO TO 5S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ♦ DEFINED BY RCLSTS SUBRQtJ^INE 



484 
485 



486 
487 
488 



489 

A90 



491 
49? 



49^ 
494 



am'i/l/k FC7NL TST 1 
lAE RECALIBRATE TEST 

015202 004736 



MACRO V04.00 4-APR-81 11:43:28 



I 

PAGE 



8 

13- 



16 



015204 

015210 
015210 
015214 
015216 
015220 
015222 
015224 



015224 
015224 
015226 
015230 
015234 
015240 
01 5244 
015252 

01 5260 
015264 



000157 015224 



495 
496 
497 

498 
499 

500 



015266 
015270 
015272 
015274 
015300 
015300 
015306 
015314 
015322 
015326 
015330 
015332 
015334 
015340 
015340 
015346 
015554 
015362 
015366 
015370 
015372 
015374 
015400 



004737 
000403 
000240 
104000 
004736 



000004 
000240 
012706 
013700 
013701 
012737 
012737 

004737 
050020 



000404 
000240 
104000 
000137 

112737 
1127:7 
012737 
004737 
000404 
000240 
104000 
000137 

112737 
112737 
012737 
004737 
000404 
000240 
104000 
000137 



044540 



0011 00 
001276 
001464 
0C0001 
000015 

041650 



015502 

000000 
000200 
00001 5 
043160 

/ 

015502 

000000 
000200 
000007 
043160 



01550? 



015400 004737 042624 
015404 004737 043522 



S€0 0099 



5S: 



6$: 



JSR 
JHP 

JSR 

BR 

NOP 

EMT 

JSR 



PC.atSP)* 
6S 

PC.SECERR 
6S 



PC.a<SP)* 



;G0 BACK FOR MORE ERROR CHECKS 
;C0 TO 6$ IF FRROR 

;G0 CHECK FOR SECONDARY ERRORS 

;G0 TO 6$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR * DEFINED BY SECERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 



•TEST 15 
tST15: 



RECALIBRATE AT OFFSET 



001206 
001226 



001543 
001544 
001410 



1$: 



001543 
001544 
001410 



2$: 



3$: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 
.WORD 



BR 
NOP 
EMT 
JMP 

M0V8 

M0V8 

MOV 

JSR 

RP 

NOP 

EMT 

JMP 

M0V8 

M0V8 

MOV 

JSR 

BR 

NOP 

EMT 

JMP 



*STACK.SP 

SBASE.RO 

TST0UE.R1 

*1.$TIMES 

*15.$TESTN 

PC.TSTPRP 
050020 



1$ 
7$ 

*RMCS1 ,PUTINX 
#200,PUTINX*1 
tfOFFSET IGO.RMCSI 
PC, PUT 
2$ 

7$ 

#RMCS1 ,PUTINX 

#200,PUTINX*1 

#RECAL.G0.RMCS10 

PC. PUT 

3$ 

7$ 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO - UNJBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;D0 1 ITERATION 

;SET TEST NUMBER IN APT MAIL 



BOX 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER £ SELECT DEVICE 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 7$ IF ERROR 

SETUP PUT INDEX TAbLE 
SET TERMINATOR BYTE 

I ;SET RMCS1 OUTPUT BUFFER OFFSET. GO 

GO WRITE RMCS1 VIA ^UT SUBROUTINE 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 7$ IF ERROR 

SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 

.-SET RMCS1 OUTPUT BUFFER RECAL.GO 
GO WRITE RMCS1 VIA PUT SUBROUTINE 
GO TO 3$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 7$ IF ERROR 



.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO 6ETSTS SUBROUTINE 



.-WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



•15 

50' 



502 
503 



RI«l05/5/2 FCTNL 
RECALIBRATE AT 



504 



506 
507 



508 
509 
510 



015410 
015414 
015416 
015420 
015422 
015426 
015426 
01 5432 
015434 
015436 
015440 
01 5442 
015446 
015446 
015452 
015454 
015456 
015460 
015462 
CI 5466 
015466 
015472 
015474 
015476 
015500 
015502 



004737 
000404 
000240 
104000 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
0001 37 

004737 
000403 
000240 
104000 
004736 



TST 1 
OFFSET 

042710 



015502 
043706 

015502 
05^.056 

015502 
044540 



liACRO V04.00 4-APR-81 11:43:28 



J 

PAGE 



8 

13-17 



S£0 0100 



4$: 



5$: 





015502 








015502 


000004 






015504 


000240 






015506 


012706 


001100 




015512 


01 3700 


001276 




015516 


013701 


001464 




015522 


012737 


000016 001226 


511 








512 


015530 


004737 


041650 




015534 


054130 





6$: 



7$: 

• ♦ « ♦ * 

*TEST 

• * *♦* 

TST16: 



jSR 

BR 

NOP 

EMT 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JW 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

jSR 

BR 

NOP 

EMT 

JSR 



PC. GET 
4$ 



7i 

PCPRIERR 
5$ 



pc.a(sp)* 

7$ 

PC.RCLSTS 
6S 



PC.a(SP)+ 

7$ 

PC.SECERR 
7$ 



PC,a(SP)+ 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE Jf ERROR 

ERROR * DEFINED BV GET SUBROUTINE 

GO TO 7$ JF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 5$ IF NO ERROR 

RETJRN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 7$ IF ERROR 

GO VERIFY RECALIBRATE OPERATION 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY RCLSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 7$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 



16 DRIVE CLEAR TEST 



SCOPE 

NOP 

MOV 

MOV 

MOv 

MOV 

JSR 
.UORD 



*STACK,SP 
$8ASE.R0 
TSTQUE,R1 
*16,$TESTN 

PC.TSTPRP 
054130 



015536 


000404 






BR 


015540 


000240 






NOP 


015542 


104000 






EMT 


015544 


000137 


015752 




JMP 


513 015550 






1$: 




514 015550 


012737 


000000 


001416 


MOV 


515 015556 


012737 


00001 1 


001410 


MOV 


516 015564 


012737 


177777 


001424 


MOV 


517 015572 


012737 


177777 


001452 


MOV 


5T8 015600 


042737 


004000 


001452 


BK 


519 015606 


01 2 702 


001543 




MOV 



IS 
6$ 



SCOPE CALL. 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI'" OR 'PIP" IS SET 

VERIFY RECALI8RAT10N 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 6$ IF ERROR 



*0,RMDAO 

*DRVCLR.G0.RMCS10 

#-l.RMER10 

*-1.RMER20 

*LSC.RMER20 ;DELETE FOR PASS 2 ETCH 
#PUTINX,P2 ;R2 POINTS TO INDEX TABLE 



;HMMBO RM05/3/2 FCTM TST 
■^t DRIVE CLEAR TEST 



KIACRO VOA.OO 



K 8 

4-APR-81 11;43:28 PAGE 13-18 



SEQ 0101 



52U 




1 \dfCC 


AAAAAZ 

000006 

rAAA/ 1 

000042 




MUVQ 


•KnDA. vHct; ♦ 


5(: ' 


01 5616 






nuvo 






0 (5622 


1 \27c2 


000014 




MAl/Q 

MOVQ 


»RncRl , (Rr) ♦ 


52t 


0 1 5626 


1 \2f22 


aa/Saaa 
000000 




MOVo 


•RnCS 1 , KHd)* 


524 


01 5632 

Ai rz. 7Z. 
01 ^636 


1 1 7*5 T 


AAA'^AA 

000200 




MAV/O 

MOVo 


525 


nf\/ 77 7 

004/^3/ 


A/ 7i ^A 

04 5 )oO 




1 C D 


or Dl IT 




01 364 <: 


AAA/ A 7 
00U4U3 






BH 


d9 




01 ?644 


AAA "5/ A 






Kit 1U 

NOr 






Ul 3d46 


1 A/ AAA 
1 04UUU 






C M T 






A1 CiLCn 

01 565U 


f\f\f\/ 1 A 

0004 *»U 






UK 




V' 


01 305^ 


AA/ 777 


A/ "5/. "D/ 
A/ 7C ") 






Dr rc T c T c 


COO 


Ul ^o!)o 


An/ 777 




1 CD 


or T t MAI IT 
















cm 

J 5U 


0 1 jtJOll 


F\C\i 777 
OOm fbl 


A/ D71 A 




1 CD 

Jon 


or T 




U 1 jooo 


r\f\r\/ A 7 
000hU3 






DD 






A1 CiL^A 


AAAO/ A 

000<:40 






KIAO 

IMUr 






A1 CiLTO 

U 1 30/ <: 


1 A/ AAA 

104000 






CMT 




C 7 1 


A1 

U I JO/ *• 


AAA/ "DiL 

OOOsiTO 






OD 

on 


0* 


«; ?D 


Ai ^^7/;^ 






7C • 








A 1 

\j 1 JD/O 


AA/ 777 
UOh / 3 / 


A/ 7 7A/!. 




1 CO 


Dr DDICDO 

rl. .(-"Ki t Kn 






AAA/ nt; 






OH 






f \ 1 c 7nz. 


AAA?/. A 






MAP 






Ai Q 7n/L 
U 1 3/Uo 


1 A/ AAA 
IUhOOO 






CMT 






ni C71 n 


AA/ 77A 
UU'f ' JO 






1 CD 

Jon 


or a/ CD > « 
rl. faKori t 




\J\Jf \c 


AAA1 77 


AI 'C7C3 




IMD 
JHr 






A1 C71 A 






AC • 








ni C71 ^ 


A A/ 777 






ICD 

Jin 


or rtDv/cTc 




U 1 3 ' 1 1 


AAA/ AC 
OOOhO J 






DO 
OK 








AAA 5/. A 






MAD 






U I J ' to 


1 A/. AAA 






tn 1 






ni t;77n 


AA/ 77A 
OUh / 3o 






ICO 
JoK 


or af CD ^ 4. 
rt (Oil or; ♦ 




m C775 
U 1 J / Jc 








IMP 


09 


556 


A1 C 77X 

01 b/^36 












537 


01 5736 


004737 


044540 




JSR 


PC.SECERR 




015742 


000403 






BR 


6$ 




015744 


000<;40 






NOP 






015746 


104000 






EMT 






015750 


004756 






JSR 


PC,a(SP)* 


538 


015752 






6$: 




539 














540 








• *************************** 










.■•TEST 


17 


NOP TEST 



541 
542 



015752 
015752 
015754 
015756 
015762 
015766 
015772 

016000 
016004 



000004 
000240 
012706 
013700 
013701 
012737 

004737 
054130 



001100 
001276 
001464 
00001 7 

041650 



;RMDA CLEARS L8T 



GO WRITE REG]STER(S) WITH PUT SLBROUTINE 

GO TO 2$ If NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

ESCAPE IF ERROR 

SETUP FOR STATUS FETCH 

WAIT FOR DRIVE CLEAR TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

SKIP REMAINDER OF TEST 

GO CHECK FOR PRIMARY ERRORS 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 6S IF ERROR 

GO VERIFY DRIVE CLEAR 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DRVSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 6$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SU8R0U INE 

GO BACK FOR MORE ERROR CHECKS 



rsn7: 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 
.WORD 



ASTACK.SP 
$8ASE,R0 
TSTQUE.R1 
*17.$TESTN 

PC.TSTPRP 
054130 



SCOPE CALL 

START OF TESI 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(Rl) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 



CZRWBO RM05/V2 FCTNL 
rr/ (yjOP TEST 



TST 1 



MACRO V04.00 ^-APR-81 













RR 
on 


v 1 O J 1 \J 










MOP 


w 1 Ov/ 1 c 










PMT 


v 1 vJV/ 1 


ftOOl ^7 

V/vV 1 J' 








J MP 










1 1 < 

1 9 * 




1 1?737 


ooonoo 


001 543 




MnvR 


V/ 1 UV/C VJ 


1 1?737 


000200 


001 54«. 




mOvr 


V 1 VJV/ JH 


ni?737 

vie' J ' 




\J\J 1 H 1 V 




MOV/ 


01604? 


004 737 








»/ or\ 


016046 


000404 








RR 


016050 


000?40 








NOP 


01605? 


1 04000 








FMT 


016054 


000137 


016202 






JMP 


545 916060 


004737 


042624 








546 












547 016064 


004737 


042710 






J^R 


016070 


000404 








RR 


CI 6072 


000?40 








MOP 


01 6074 


1 04000 








EMT 


016076 


000137 


016202 






JMP 


548 016102 








3$- 

ij * • 




549 016102 


004737 


043706 






JSR 


016106 


000405 








BR 


0161 10 


000240 








NOP 


016112 


104000 








EMT 


016114 


004736 








JSR 


0161 16 


0001 37 


016202 






JMP 


550 016122 








4S- 




551 016122 


004737 


050400 

V-^ V"* w 






ISR 


016126 


115760 








WORD 


016130 


000010 








UORD 


016132 


000405 








RR 


016134 


000240 








MOP 

l»kJr 


016136 


104000 








FMT 


016140 


004736 

W~ ' — /VJ 








JSR 


016142 


000137 


01620? 






JMP 


552 016146 








5S- 




553 016146 


004737 


057766 






JSR 

^ *J*» 


01615? 


000405 








QD 


C16154 


000240 








iVCP 


016156 


104000 








EMT 


016160 


004736 








JSR 


016162 


000137 


016202 






JMP 


554 016166 








6$: 




555 016166 


004737 


044540 






JSP 


016172 


000403 








BR 


016174 


000240 








NOP 


016176 


104000 








EMT 


016200 


004736 








JSR 


556 016202 








7$: 





557 



558 ••♦*♦»*•»*•••» 

;'*TEST 20 



L 8 

11:43:28 PAGE 13-19 



S£0 010? 



1$ 



7$ 



*RMCS1 .PUTINX 

*200.PUTINX*1 

#NDP!G0,RMCS10 

PC. PUT 

2S 



7$ 

PC.GETSTS 



PC. GET 
3$ 



7$ 

PC.PRIERR 
4S 



pc,a(SP)+ 

7$ 

PC.CMPERRSTS 

NDTMSK 

DPE 

5$ 



pc.a(SP)+ 

7$ 

PC.STCDP TS 
6S 



pc.a(sp)* 

7$ 

PC.SECERR 
7$ 

pc.acsp)* 



RECALieRATE If "SKI" OR 'PIP" IS SET 

VERIfV RECALI8RATI0N 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 7$ IF ERROR 

SETUP PUT INDEX TABLE 

SET TERMINATOR BYli 

SET RMCS1 OUTPUT BUFFER - NOP. GO 

GO WRITE RMCS1 VIA PUT SUBROUTINE 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BV PUT SUBROUTINE 

GO TO 7S IF ERROR 

SETUP FOR STATUS FETCH 

60 READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 7$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

60 TO 7$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY CMPERRSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 7$ IF ERROR 

GO CHECK FOR CHANGES IN DRIVE STATUS 
GO TO 6S IF NO ERROR 
RETURN HERE I» ERROR 

ERROR * DEFINE BY STCDRVSTS SUBROUTINE 
GO BACK FOR MORc ERROR CHECKS 
GO TO 7$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINtD BY SECERR SUBROUMNE 

GO BACK FOR MORE ERROR CHECKS 



******•**♦♦»»•**••♦♦«»*••»**»»•«***♦»*»••♦»♦»»**»• 

OFFSET TEST 



'"ZRI'WBO RM05/5/2 FCTNL 
T?0 OFFSET TEST 

U 16202 OOOOOA 
01620A 0002^0 



TST 1 



MACRO VOA.OO 4-APR-81 



016206 012706 001100 

016212 013700 001276 

016216 015701 001A64 

016222 012737 000020 001226 

559 • 

560 016230 004737 041650 
016234 054130 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

.SR 
.WORD 















I0R 


















()^f\?L? 
















nool ^7 

WW 1 J 








J MP 


S^l 










1S- 






m APsn 

\/ i Dc J V 


1 I C 1 Jf 


nnonno 






MO\/P 
1 i\j y o 








OOOPOO 


001 544 




MDVA 






01 P7^7 

vie* Jf 




001410 








01 AP7P 


WW** i J f 








ij jn 




01 ^=iP7fi 

V * wC f W 


000^0^ 








on 




01 MOO 










MOP 




OlA^OP 










FMT 




01 ^"50^ 


000137 


01^>S?6 






IMP 


JO J 


01^^10 


00^7^7 


\/*»COCH 




C 4» • 


J Or* 


J OH 


01 ^^1^ 


004737 


04 3S?? 

VH J Jet 








JO J 
















OI^^^PO 














01 ^^P^ 


000^ OA 








RR 




016326 


000240 








NOP 




016330 


104000 








EMT 




016332 


000137 


016526 






JMP 


567 


016336 








3$: 




568 


016336 


004737 


043706 






JSR 




016342 


000405 








BR 




016544 


000240 








NOP 




016346 


104000 








EMT 




C16350 


004736 








JSR 




016352 


0001 57 


016526 






JMP 


569 


CI 6356 


032757 


000001 


001346 


4$: 


BIT 


570 


016364 


001012 








BNE 


571 


016366 


015757 


001346 


001142 




MOV 


572 


016374 


042757 


1 77776 


00114? 




BIC 


573 


016402 


012737 


000001 


001140 




MOV 


574 


016410 


104156 








EMT 


575 


016412 


032757 


100000 


001346 


5$: 


BIT 


576 


016420 


001012 








BNE 


577 


016422 


013737 


001 546 


001142 




MOV 


578 


016430 


042737 


077777 


001 142 




BIC 


579 


016456 


012737 


100000 


001140 




MOV 


580 


016444 


104172 








EMT 


581 


016446 








6$: 




582 


016446 


004737 


050400 






JSR 



n 8 

11:43:28 PAGE 13-20 



SEO 0103 



*STACK,SP 
$8ASE,R0 
TSTQUE,R1 
#20,$TESTN 

PCTSTPRP 
054130 



1$ 
9$ 

#RMCS1 .PUTINX 

*200,PUTINX+1 

#0FF5ET!G0.RMCS1 

PC. PUT 

2$ 



9$ 

PC.GETSTS 
PC.TIMOUT 

PC. GET 
3$ 



9$ 

PC.PRIERR 
4$ 



PC.a(SP)+ 
9$ 

*0M.RMDSI 
5$ 

RMDSI.SBODAT 
#*COM.$BDDAT 
/rOM.SGDDAT 

156 

#ATA,RMDSI 
6$ 

RMDSI.SBDDAT 
#*CATA,$BDDAT 
#ATA.$GDDAT 
172 



SCOPE CAIL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(Rl) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOILOWS: 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'T'lP" IS SET 

VERIFY RE CALIBRATION 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 9$ IF ERROR 

SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 

I ;SET RMCS1 OUTPUT BUFFER - OFF SET. GO 

GO WRITE RMCS1 VIA PUT SUBROUTINE 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 9$ IF ERROR 

SETUP FOR STATUS FETCH 

WAIT FOR 60 TO RESET 

GO READ REGISTER(S) WITH GET SUBROLHINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 9$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PPIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

OFFSET MODE ON?? 

YES. .' 

BAD DATA FOR TYPEOUT 

GOOD DATA FOR TYPEOUT 

WAS ATTENTION SET ?? 
YESl .' 

BAD DATA FOR TYPEOUT 
GOOD DATA FOR TYPEOUT 



PC.CMPERRSTS .'CHECK ANY ERRORS NOT MASKED 



CZRMMBO RM05/3/2 FCTNL TST 1 
^20 OrFSET TEST 



016452 
016454 
016456 
016460 
016462 
016^*64 
016466 
533 016472 

584 016472 
016476 
016500 
016502 
016504 
016506 

585 016512 

586 016512 
016516 
0165)20 
016522 
016524 

587 016526 
588 

589 



016526 
016526 
016530 
016532 
016536 
016542 
016546 

590 

591 016554 
016560 



115760 
000010 
000405 
000240 
104000 
004736 

000137 016526 

004737 057766 

000405 

000240 

104000 

004736 

000137 016526 

004737 044540 

000403 

000240 

104000 

004736 



000004 
000240 
012706 
013700 
013701 
012737 

004737 
054130 



MACRO V04.00 4-APft-81 



.WORD 

.WORD 

BR 

NOP 

Ell 

JSR 

JW 



7$: 



8$: 



9$: 



JSR 
BR 
NOP 
EMT 

JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 



001100 
001276 
001464 
000021 

041650 



001226 



• • ************ 

;iTEST 21 

• • ************ 

TST21: 

SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 
.WORD 





C16562 


000404 






8R 




016564 


000240 






NOP 




016566 


104000 






EMT 




016570 


000137 


017146 




JMP 


592 


016574 






' 1$: 




S93 


016574 


112737 


000000 


001543 


M0V8 




016602 


112737 


000200 


001544 


M0V8 




016610 


012737 


000015 


001410 


MOV 




016616 


004737 


043160 




JSR 




CI 6622 


000404 






BR 




016624 


000240 






NOP 




016626 


104000 






EMT 




016650 


000137 


017146 




J«P 


594 


01663^ 


004737 


04262<. 




JSR 


59S 












5% 


CI 6640 


004737 


0<.2710 




JSR 



H 8 
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NDTMSK 

DPE 

7$ 



PC.a(SP>* 
9$ 

PC.STCDRVSTS 
8S 



pc,a(sp)<- 

9$ 

PC.SECERR 
9$ 



pc,a(sp>* 



MASK FOR RMERl 
MASK FOR RMER2 
GO TO 7$ IF NO ERPOR 
RETURN HERE IF ERROR 

ERROR * DEFINED BY CMPERRSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 9$ IF ERROR 

GO CHECK FOR CHANGES 'N DRIVE STATUS 
GO TO 8S IF NC ERROR 
RETURN HERE IF ERROR 

ERROR * DEFINED BY STCDRVSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 9$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SFCERR SUBROUTINE 

GO BACK FOR MORE ER.^OR CHECKS 



************************************************** 

GO/ATA TEST 

************************************************** 



#STACK.SP 
$8ASF,R0 
TSTQU£,R1 
<f21,$TESTN 

PC.TSTPRP 
054130 



1$ 
12$ 

*RMCS1,PUTINX 

*200,PUTINX*1 

*0fFSET160,RMCSl 

PC .PUT 

2$ 



12$ 

PC.GETSTS 
PC, GET 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

^0 = UNI8US ADDRESS 

(Rl) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER £ SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME FiQT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'T^IP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY TSTPRP SUBROUTINE 

GO TO 12$ IF ERROR 



OFFSETiGO 



SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

I ;SET RMCS1 OUTPUT BUFFER = 

GO WRITE RMCS1 VIA PUT SUBROUTINE 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SIBROUTINE 

GO TO 12$ IF ERROR 

SETUP TO READ ALL REGISTERS 



GO READ REGISTER(S) WITH GE' . JBROjf.'NE 



GO/ATA TEST 

0''66<.4 00(K04 

016646 000240 

016650 104000 

016652 000137 

597 016656 032737 

598 016664 001012 

599 016666 012737 

600 016674 013737 

601 016702 042737 

602 016710 104172 

603 016712 

604 016712 004737 
016716 000000 
016720 000000 
016722 000405 
016724 000240 
016726 104000 
016730 004736 
016732 000137 

605 CI 6736 

606 016736 112737 
016744 112737 
016752 012737 
016760 004737 
016764 C00404 
016766 000240 
0^6770 104000 
016772 000137 

607 016776 

608 016776 004 737 
017002 000404 
017004 000240 
017006 104000 
017010 000137 

609 01^014 

610 017014 004737 
017020 000405 
017022 000240 
017024 104000 
017026 004736 
017030 000137 

611 CV034 032737 

612 017042 001411 

613 017044 013737 

614 017052 042737 

615 017060 005037 

616 017064 104246 

617 017066 

618 017066 004737 
017072 115760 
017074 000010 
01 7076 000405 
017100 000240 
017102 104000 
017104 004736 
017106 000157 



'ST ■ MACRO V04.00 4-APR-81 









BR 








NOP 








EMT 


017U6 






JMP 


100000 


001346 


3$: 


BIT 








BNE 


100000 


001 140 




MOV 


001346 


001142 




MOV 


077777 


001142 




BIC 








EMT 






4S: 




050400 






JSft 








.WORD 








.WORD 








BR 








NOP 








EMT 








JSR 


017H6 






JMP 






5$: 




000000 


001543 




•'OVS 


000200 


001544 




M0V8 


000001 


001410 




MOV 


043160 






JSR 








8R 








NOP 








EMT 


017146 






JMP 






6S: 




042710 






JSR 








BR 








NOP 








EMT 


017146 






JMP 






71: 




043706 






JSR 








BR 








NOP 








EMT 








JSR 


017K6 






iMP 


1 00000 


001 340 


8t: 


BIT 








BEO 


001 346 


001 142 




MOV 


077777 


001 142 




8JC 


001 140 






CLR 








EMT 






0$: 




050400 






JSR 








.WORD 








.WORD 








BR 








NOP 








EMT 








JSR 


017U6 






JMP 
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3S 



12$ 

#ATA.RMOSJ 
4$ 

*ATA.SGDDAT 

RMDSI,»BODAT 

^•CATA.$8DDAT 

T72 

PCCMPERRSTS 

0 

0 

5S 



pc.a(sp)* 
12$ 

*RMCS1.PUTINX 

#200.PUTINX*1 

*N0P.'GO,RMCS10 

PC, PUT 

6$ 



12$ 

PC. GET 
7$ 



12$ 

PC.PRIERR 
8$ 



PC.a(SP)* 
12$ 

#ATA.RMDSI 
9$ 

RMDSr.$BDDAT 

*''CATA.$BDDAT 

$GDDAT 

246 

PC.CMPERRSTS 

NDTMS< 

DPE 

10$ 



PC,S(SP)* 
12$ 



GO TO 3$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINlD Br GET SueROuTINE 

go to 12$ if error 
is attention set-*? 
yes: ! 

good data for typeout 
bad data for typeout 



CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CMPERR3TS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 12$ IF ERROR 

SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMCS1 OUTPUT BUFFER - NOP .'GO 

60 WRITE RMCS1 VIA PUT SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 12$ IF ERROR 

60 READ REGISTER(S) WITH GET SUBROUTINE 

60 TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY 6ET SUBROUMNE 

GO TO 12$ IF ERROR 

60 CHECK FOR PRIMARY ERRORS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 12$ IF ERROR 

IS ATTENTION RESET?" 

YES 

8/D DATA FOR TYPEOUT 



;COOD DATA FOR TYPEOUT 



CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

60 TO 10$ iF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY CMPERRSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 12$ IF ERROR 



'21 

62C 



621 
622 



625 
624 
625 



ftW5/^/2 FCTNL 
GO/ATA TEST 



TST 1 MACRO V04.00 4-APR-81 



626 

627 



017112 
017116 
017120 
017122 
017124 
017126 
017132 
017132 
017156 
01 7140 
017142 
017144 
017146 



004737 
000405 
000240 
104000 
004736 
000137 



0577t>6 



01^146 



004737 044540 

000403 

000240 

104000 

004736 



IIS: 



12S: 



017146 






017146 


000004 




CI 71 50 


000240 




017152 


012706 


001100 


017156 


013700 


001276 


017162 


013701 


001464 


017166 


012737 


000022 001226 


017174 


004737 


041650 


017200 


054130 





JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 



.••TEST 22 
tST22: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 
.WORD 





017202 


000404 








BR 




017204 
017206 


000240 








NOP 




104000 








EMI 




017210 


000137 


017512 






JMP 


628 


017214 








IS: 




629 


017214 


112737 


000000 


001543 




M0V8 




01 7222 


112737 


000200 


001 544 




M0V8 




017230 


012737 


000015 


001410 




MOV 




CI 7236 


004737 


043160 






JSR 




017242 


000404 








8R 




017244 


000240 








NOP 




017246 


104000 








FMT 




017250 


000137 


017512 






JMP 


630 


01 7254 


004737 


042624 




2S: 


JSR 


631 














632 


017260 
017264 
017266 
017270 


004737 
000404 
000240 
104000 


042710 






JSR 
BR 
NOP 
EMT 




017272 


000137 


017512 






JMP 


633 


017276 


032737 


100000 


001346 


3S: 


BIT 


654 


017304 


001012 








BNE 


635 


017306 


013737 


001346 


001142 




MOV 


636 


017314 


042737 


077777 


001142 




8JC 
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PC-STCDRVSIS 

iii 



PC-a(SP)* 
i2i 

PC-SECERR 

i2i 



pc.a(sp»* 



SEO OlOt 



GO CHECK fOR CHANGES IN DRIVE STATUS 
GO TO IIS IF NO ERROR 
RETURN HERE IF ERROR 

ERROR # DEFINED BY STCDRVSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 12S IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 12S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BV SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 



WRITE ATA TEST 



#STACK.SP 
SSASE.RO 
TSTOUe.Rl 
*22. STESTN 

PCTSTPRP 
054130 



1$ 
9$ 

#RMCS1.PUTINX 

#200,PUTINX+1 

/rOffSETIGO.RMCSI 

PC .PUT 

2S 



9$ 

PC.GETSTS 

PC, GET 
3S 



9S 

tfATA.RMDSI 
4S 

RMDSI.SBDDAT 
#*CATA.SBDDAT 



SCOPE CALL 

START OF TEST 

INITIAIIZE STACK POINTER 

RO = UNIBUS ADDRcSS 

(Rl) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER I SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'PIP" IS SET 

VERIFY RECALIBRATION 

GO TO IS IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SLBROUTINE 

GO TO 9S IF ERROR 

SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 

I ;SET RMCS1 OUTPUT BUFFER = OFFSET !C0 

GO WRITE RMCS1 VIA PUT SUBROUTINE 

GO TO 2S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SU3R0UTINE 

60 TO 9S IF ERROR 

SETUP TO READ ALL REGISTERS 

GO READ RE6ISTER(S) WITH GET SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 9S IF ERROR 

IS ATTENTION SET?? 

YES! ! 

BAD DATA FOR TYPEOUT 



CZRMMBO RM05/3/2 FCTNL 


TST 1 


•1ACR0 V04.00 


4-APR-81 


11:45:28 PAGE 1 


T22 WRITE ATA TEST 












657 017522 


012737 


100000 


001 14C 




MOV 


#ATA,$GDDAT 


638 017330 


104172 








FMT 


172 


639 017332 


11610? 


000001 




4$: 


M0V8 


1(R1).R2 


6A0 017336 


042702 


1 77400 






BIC 


#*CATNMSK,R2 


6A1 017542 


000240 








NOP 


R2,RMAS0 


6A2 017544 


010257 


001426 






MOV 


645 017550 


1 12757 


000016 


00154 5 




M0V8 


tRMAS.PUTINX 


644 017556 


1 12757 


000200 


001544 




M0V8 • 


*200.PUTINX*1 


645 017564 


004757 


043160 






JSR 


PC. PUT 


01 7570 


000404 








BR 


5$ 


017572 


000240 








NOP 




017574 


104000 








EMT 


9$ 


017576 


000137 


0175V 






JMP 


646 017«»02 








5$: 




PCGET 


64' 017402 


004737 


042710 






JSR 


01 7406 


000404 








6R 


6S 


017410 


000240 








NOP 




017412 


104000 








EMT 


9S 


01 /414 


0001 57 


0V512 




6$: 


JMP 


648 017420 












649 017420 


004757 


045706 






JSR 


PC.PRIERR 


01 7424 


000405 








BR 


7$ 


017426 


000240 








NOP 




4 "7/ TA 

01 7450 


104000 








EMT 


PC,a(SP)* 


017432 


004 ^56 








JSR 


01 7454 


0001 3 r 


017512 






JMP 


9$ 


650 017440 


032/^ 5f 


100000 


001346 


7$: 


BIT 


*ATA,RMDSI 


651 017446 


0014 1 1 








BEO 


8S 


652 017450 


0l3O' 


001 546 


001142 




MOV 


R«DSI,$8DDAT 


655 017456 


042757 


077777 


001142 




BIC 


**CATA,$8DDAT 


654 017464 


005037 


001140 






CLR 


SGDDAT 


65!) 017470 


104247 








EMT 


247 










8S: 




PCCMPERRSTS 


657 017472 


004737 


050400 






JSR 


01 7476 


000000 








.WORD 


0 


01 7500 


000000 








.WORD 


0 


017502 


000403 








BR 


9$ 


017504 


000240 








^iOP 




017506 


104000 








EMT 




017510 


004736 








JSR 


pc,a(SP)* 


658 017512 








9$: 







9 

15-24 



SEO 010/ 



GOOD DATA FOR TrPEOUT 

R2 = ATTENTION BIT 
CLEAR SIGN EXTENSION 

PUT RMAS BIT IN OUTPUT BUF 
WRITE REGISTER INDEX IN TABLE 
WRITE TERMINATOR 

GO WRITE REGISTER(S) WITH PUT SUBRCJIINf 

GO TO 5S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED Sr PUT SlBROUTINE 

60 TO 9S IF ERROR 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR It DEFINED 8V GET SUBROUTINF 

GO TO 9S IF ERROR 

60 CHECK FOR PRIMARY ERRORS 

60 TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

IS ATTENTION RESET?? 

yes; i 

BAD DATA FOR TYPE OUT 
GOOD DATA FOR TYPEOUT 



CHECK ANY ERRORS NOT MASKED 

MASK FOR RMERl 

MASK FOR RMER2 

GO TO 9$ IF NO ERROR 

RE f URN HERE IF ERROR 

ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 



659 
660 



017512 






017512 


000004 




017514 


000240 




017516 


012706 


001100 


017522 


013700 


001276 


01 7526 


013701 


001464 


017532 


012737 


000023 001226 


661 






662 017540 


004737 


041650 


01 7';44 


054150 





•»••»•••♦»••*•*••»»«•*»»♦»••«*•••••»»•••*••••••••»»*»»♦•»*•••♦*♦ 

•TEST 23 ERROR/ATA TEST 

•••♦•*»•»«»*••»••»»»•♦♦•*»•*»**»•••***»*♦»•*•♦•*••»•*•••♦•**•♦♦♦ 

■TST25: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 
.WORD 



*STACK.SP 
SBASE.RO 
TSTQUE,R1 
*25,$TESTN 

PCTSTPRP 
054130 



SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 
RO = UNIBUS ADDRESS 
(R1) = DEVICE BEING TESTED 
.-SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER I SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 



^MCS/3/2 fLTML Tsr 



MAfRO V04.00 4-AFR-81 





0V546 


000404 








BR 




017550 


000240 








NOP 




017552 


104000 








FMT 




017554 


0001 37 


020104 






JMP 


665 


01 7560 








1$: 




664 


017560 


112737 


000000 


001543 




M0V8 




017566 


112737 


000200 


001544 




wove 




017574 


012737 


000015 


001410 




MOV 




017602 


004737 


043160 






JSR 




017606 


000404 








BR 




017610 


000240 








NOP 




017612 


104000 








tMT 




017614 


000137 


020104 






JMP 


665 


017620 


004737 


042624 




2t: 


JSR 


666 














667 


CI 7624 
01 7630 
01 7632 
01 7634 


004737 
000404 
000240 
104000 


042710 






JSR 
BR 

NOP 
EMT 




017636 


000137 


020104 






JMP 


668 


017642 


032737 


100000 


001346 


5$: 


BIT 


669 


01 7650 


001012 








BNE 


670 


017652 


013737 


001 346 


001142 




MOV 


671 


017660 


042737 


077777 


00"'142 




BIC 


672 


017666 


C12737 


100000 


001140 




MOV 


673 


01 7674 


104172 








EMT 


674 


017676 








4t: 




67!> 


017676 


112737 


000014 


001543 




M0V8 




01 7704 


112737 


000200 


001544 




M0V8 




017712 


012737 


040000 


001424 




MOV 

JSR 




017720 


004737 


043160 








01 7724 


000404 








BR 




017726 


000240 








NOP 




017730 


104000 








EMT 




017732 


000137 


020104 






JMP 


676 


0^ 7736 








5$: 




677 


01 7736 


112737 


000000 


00154? 




M0V8 




01 V44 


11^737 


000200 


001544 




M0V8 




01 7752 


01275/ 


000001 


OOUlO 




MOV 




017760 


004737 


043160 






JSR 




017764 


000404 








BR 




017766 


000240 








NOP 




01 7770 


104000 








EMT 




01 7772 


000137 


020104 






JMP 


678 


0^7776 








6$: 




679 


01 7776 
020002 
020004 
020006 


004737 
000404 
000240 
104000 


042710 






JSR 
BR 
NOP 
EMT 




020010 


000137 


020104 






JMP 


680 


020014 


0527^7 


•00000 


001346 


7$: 


BIT 


681 


020022 


001012 






BNE 


682 


020024 


0127^7 


100000 


00' UO 




MOV 
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SEO 0108 



10$ 

#r:^csi.putinx 

#200,PUTINX+i 
#0FFSET!G0.RMCS1 
PC. PUT 
2$ 



10$ 

PC.GETSTS 

PC, GET V 
3$ 



10$ 

*ATA,RMDSI 
4$ 

RMDS],$8DDAT 
**CATA.18DDAT 
»ATA.$GDDAT 
1^2 

#RMER1,PUT]NX 

#200.PUTINX*1 

fUNS.RMERIO 

PC. PUT 

5$ 



10$ 

#R«CS1,PUTINX 

*200,PUTINX*1 

#N0P.'G0.RMCS10 

PC. PUT 

6$ 



10$ 

PC. GET 
7$ 



10$ 

*ATA.RMDSI 
8$ 

*ATA.$GDDAT 



PACK ACKNOWLEDGE If VOLUME NOT VALID 

VERJfy PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'VIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BV TSTPRP SUBROUTINE 

GO TO 10$ if ERROR 

setup put index ta8le 
set terminator bcte 

i ;set rmcsl output buffek " off set i go 

go write rmcsl via put subroutine 

60 to 2$ if no error 

return here if error 

error defined by put slbroutine 

go to 10$ if error 

setup to read all registers 

go read register(s) with get subroutine 

go to 3$ if no error 

return here if error 

error * defined bv get s'jbroutine 

go to 10$ if error 

is ata set?? 

yes; ; 

bad data for typeout 

GOOD DATA FOR TYPEOUT 



SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMERl OUTPUT BUFFER - UNS 

GO WRITE RMERl VIA PUT SUBROUTINE 

GO TO 5$ If NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 10$ IF ERROR 

SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMCSl OUTPUT BUFFER - NOP! GO 

GO WRITE RMCSl VIA PUT SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 10$ IF ERROR 

GO READ REGISTER (S) WITH GET SUBROUTINE 

60 TO 7$ IF NO ERROR 

RETURN HERE IF ERROP 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 10$ IF ERROR 

IS ATA STILL SET?? 

YES. .' 

GOOD DATA FOR TYPEOUT 



ZftMIBO RM05/3/2 FCTNL TST 1 MAC«0 V0<..00 4-APR-81 
':5 ERROR/ATA TEST 

683 020052 01373;' 001346 001 K.2 MOV 

fcSA 020040 042737 C 77777 001142 BJC 

685 020046 10^250 EMT 

686 020050 8t: 

687 020050 004737 057766 JSR 
020054 000405 BR 
020056 000240 NOP 
020060 104000 EMT 
020062 0Oh736 JSR 
020064 000137 020104 JMP 

688 020070 

689 020070 004737 044540 JSR 
020074 000403 BR 
020076 000240 NOP 
020"" 00 104000 EWT 
020102 004736 JSR 

690 020104 10$: 
691 

692 ;;• • 

.••TEST 24 



020104 TST24: 

020104 000004 SCOPE 

020106 000240 NOP 

020110 012706 00' ■'00 MOV 

020114 013700 001276 MOV 

020120 013701 001464 MOV 

020124 012737 000024 001226 MOV 

693 

694 020132 004737 041650 JSR 

020136 054130 .WORD 



020140 000404 &R 

020142 000240 NOP 

020144 104000 EMT 

020146 000137 020574 JMP 

695 020152 H: 

696 020152 113702 001272 M0V8 

697 020156 042702 177400 BIC 

698 020162 011204 MOV 

699 020164 016205 000002 MOV 

700 020170 012712 020434 MOV 

701 020174 012762 000300 000002 MOV 

702 020202 113703 001273 MOVR 

703 020206 042703 177400 BIC 

704 020212 000303 SWA8 
''05 020214 005303 DEC 

706 020216 100001 BPL 

707 020220 005003 CLR 

708 020222 042703 177437 P$: BIC 

709 020226 000240 NOP 

710 02025C 012746 000300 MOV 
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RMDSI.SBDDAT 
#*CATA,$8DDAT 

250 

PC.STCDRVSTS 
9$ 



pc.a(SP)» 

10S 

PC.SECERR 
lOS 



pc,a(SP)* 



;8AD DATA FOrt TYPE OUT 



GO CHECK FOR CHANGES IN DRIVE STATUS 
GO TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 

ERROR # DEFINED BY STCDRVSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 10$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 



PROGRAM INTERRUPT TEST 



♦STACK. SP 
$8ASE.R0 
TST0UE,R1 
#24,$TESTN 

PC.TSTPftP 
054130 



1$ 



16$ 

$VECT1.R2 

#-C<377>.R2 

{R2),R4 

2(R2).R5 

*9$,(R2) 

*PR6.2(R2) 

$VECT10.R3 

#*C<377>.R3 

R3 

R3 

2$ 

R3 

*"CPR7.P3 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI BUS ADDRESS 

(R1) = DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 16$ IF ERROR 

R2 = INTERRUPT ADDRESS 
CLEAR SIGN EXTENSION 
SAVE HANDLER ADDRESS 
SAVE HANDLER PRIORITY 
WRITE flANDLER ADDRESS AND 
PRIORITY FOR THIS TEST 
R? = INTERRUPT LEVEL 
CLEAR SIGN EXTENSION 

DECREMENT INTERRUPT LEVEL 



#PR6,-(5P) 



;;PU5H *PR6 ON STACK 



RM05/^/2 FCTNL TST 1 MACRO VOA.OO 4,-APR-81 
V*. PROGRAM INTERRUPT TEST 



71 ' 


020234 


012746 


020372 






MOV 


71? 


020240 


010346 








MOV 


713 


020242 


012746 


020364 






MOV 


7K 


020246 


912737 


1 77777 


001426 




MOV 


715 


020254 


112737 


000016 


001 543 




M0V8 


716 


020262 


112737 


^ ^ 

000200 


OOI543 




M0V8 


7:7 


020270 


004737 


043160 






JSR 




020274 


000404 








BR 




020276 


000240 








NOP 




020300 


104000 








EM^ 




020302 


000137 


020574 






JMP 




020306 








3$: 




7?0 


020306 


1 12737 


000000 


001 543 




M0V8 




320314 


1 12737 


000200 


OOI 544 




M0V8 




020322 


012737 


0001 1 5 


001410 




MOV 




020330 


004737 


043160 






vSR 




020334 


000404 








BR 




020336 


000240 








NO" 




O^U54U 


1 Ay AAA 








CMT 




020342 


000137 


020574 






JMP 


721 


020346 








4$: 




722 


020346 


004737 


043522 






JSR 


723 


020352 


004737 


042624 






JSR 


724 


020356 


012703 


000205 






MOV 


72S 


020362 


000002 








RT] 


726 


020364 


005303 






5$: 


DEC 


727 


020366 


100376 








BPL 



728 

729 .'TIMEOUT BEFORE 

730 



731 


020370 


000002 






RTI 


732 


020372 






6S: 




733 


020372 


004737 


042710 




JSR 




020376 


000404 






BR 




020400 


000240 






NOP 




020402 


104000 






EMT 




020404 


000137 


020574 




JMP 


734 


020410 






7$: 




735 


020410 


004737 


043706 




JSR 




020414 


000405 






BR 




020416 


000240 






NOP 




020420 


104000 






EMT 




020422 


004736 






JSR 




020424 


000137 


020574 




JMP 


736 


020430 






3$: 






020430 


104251 






EMT 


737 


020432 


000423 






8R 


738 












739 


020434 


022626 




9$: 


CMP 


740 


020436 


012716 


020444 




MOV 


741 


020442 


000002 






RT] 


742 


020444 






10$: 




743 


020444 


004737 


042710 




JSR 




020450 


000404 






BR 




020452 


OOC240 






NOP 




020454 


104000 






EMT 
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SCO 01 



#6$.-(SP) 
R3.-(SP) 
*5$.-(SP) 
.RMASO 
#RMAS.PUTINX 
*200,PUTINX 

PC, PUT 
3$ 



16$ 



;;PUSH 
;;PUSH 
;;PUSH 
.■WRITE 
.•CLEAR 



#6$ ON STACK 
R3 ON STACK 
*5$ ON STACK 
ONES IN RMAS TO 
ALL ATTENTIONS 



;G0 WRITE REGJSTER(S) WITH PUT SUBROUTlNf 

;G0 TO 3$ IF NO ERROR 

.•RETURN HERE IF ERROR 

;ERROR # DEFINED BY PUT SUBROUTINE 

;60 TO 16$ IF ERROR 



*RMCS1 .PUTINX .-SETUP PUT INDEX TA8LE 
*200.PUTINX*1 ;SET TERMINATOR BYTE 
#0FFSET.G0!IE,RMCS10 ;SET RMCS1 OUI'jT BUFFER 



PC, PUT 
4$ 



16$ 

PC.TIMOUT 
PCGETSTS 
*205.R3 

R3 
5$ 

INTERRUPT 



PC. GET 
7$ 



16$ 

PC.PRIERR 
8$ 



PC.a(SP)+ 

16$ 

251 
12$ 

(SP)*.(SP)* 
#10$. (SP) 



PC. GET 
'1$ 



;G0 WRITE RMCSl VIA PUT SUBROUTINE 
;G0 TO 4$ IF NO ERROR 
.•RETURN HERE IF ERROR 
.•ERROR DEFINED BY PUT SUBROUTINE 
;G0 TO 16$ IF ERROR 

;WAiT FOR COMPLETION 
.•SETUP TO READ ALL REGISTERS 
;R3 = GROSS TIMEOUT 
.•DROP CP PRIORITY 
.•TIMEOUT THE INTERRUPT 



RAISE CP PRIORITY 

GO READ REGISTER(S) WITH GET SUBROUTINE 

60 TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 16$ IF ERROR 

60 CHECK FOR PRIMARY ERRORS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 



.•ADJUST STACK 

.•CHANGE RETURN ADDRESS 

.•RAISE CP PRIORITY 

;G0 READ REGISTER(S) WITH GET SUBROUTINE 

.•GO TO 11$ IF NO ERROR 

.•RETURN HERE IF ERROR 

;ERROR * DEFINED BY GET SUBROUTINE 



offset:go.ie 



7S»TB0 RM05/3/2 FCTNL TST 1 

PROGRAM INTERRUPT TEST 



MACRO VOA.OO 4-APR-81 



020456 
'44 020462 

745 020462 
020466 
020470 
020472 
020474 
020476 

746 020502 
'47 020502 

020506 
020510 
020512 
020514 
020516 
020520 
020522 
^48 020526 
•749 020526 
020532 
020534 
020536- 
020540 
020542 

750 020546 

751 020546 
020552 
020554 
020556 
020560 
020562 

752 020566 

753 020566 

754 020570 

755 020574 
756 

757 



020574 
020574 
C20576 
020600 
020604 
020610 
020614 

758 

759 020622 
020626 



000137 

.004737 
000405 
000240 
104000 
004736 
000137 

004737 

115760 
000010 
000405 
000240 
104000 
004736 
0001 37 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

010412 
010562 



020574 
043706 

020574 
050400 



020574 
057766 

020574 
044540 

020574 
000002 



lit: 



12$: 



13$; 



14$: 



15$: 
^6$: 



JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

.WORD 

.WORD 

8R 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

MOV 
MOV 



*••****•«*•* 



•TEST 25 



000004 
000240 

012706 001100 

013700 001276 

013701 001464 
012737 000025 001226 

004737 041650 
054130 



TST25; 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 
.WORD 



020650 
020652 



000404 
000240 



BR 
NOP 



4 
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sto 01 r 



16$ 

PC.PRJERR 
12i 



DC.a(SP)* 

16$ 

PC.CMPERRSTS 

NDTMSK 

DPE 

13$ 



PC.a(SP)» 
16$ 

PC.STCDRVSTS 
14$ 



pc.a(SP)» 

16$ 

PC.SECERR 
15$ 



pc.a(SP)» 

16$ 

R4,(R2) 
R5.2(R2) 



GO TO 16$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 13$ IF NO ERROR 

RETURN HE^E IF ERROR 

ERROR * DEFINED BY CMPERRSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 16$ IF ERROR 

GO CHECK FOR CHANGES IN DRIVE STATUS 
GO TO 14$ IF NO ERROR 
RETURN HERE IF ERROR 

ERROR ft DEFINED BY STCDRVSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 16$ IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

60 TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 



INHJ8IT INTERRUPT TEST 



♦STACK. SP 
$8ASE.R0 
TSTQUE,Ri 
*25.$TESTN 

PC.TSTPRP 
054150 



1$ 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNiBUS ADDRESS 

(Rl) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'T>IP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 



c?M05/5/2 fCTNL TST 1 MACRO VW.OO A-APR-81 
T^'. INHIBIT INTERRUPT TEST 





020634 


104000 








EMT 




020636 


000137 


021142 






JMP 


760 


020642 








If : 




761 


020642 


1 1 3702 


001272 






M0V8 


762 


020646 


042702 


1 77400 






BIG 


763 


020652 


011204 








MOV 


76A 


020654 


016205 


000002 






MOV 


765 


020660 


012712 


021102 






MOV 


766 


020664 


012762 


000300 


000002 




MOV 


767 


020672 


113703 


001273 






MOVB 


768 


020676 


042703 


1 77400 






BJC 


769 


020702 


012746 


000300 






MOV 


770 


020706 


012746 


021 1 34 






MOV 


771 


020712 


010346 








MOV 


772 


020714 


005316 








DEC 


773 


020716 


100001 








BPL 


774 


020720 


005016 








CLR 


775 


020722 


042716 


177437 




2$: 


BJC 


776 


020726 


012746 


021070 






MOV 


777 


C?0732 


0103*»6 








MOV 


778 


020734 


012746 


021016 






MOV 


779 


020740 


004737 


042624 






JSR 


780 














781 


020744 


112737 


000000 


001543 




MOVB 




020752 


112737 


000200 


001544 




MOVB 




020760 


012737 


000115 


001410 




MOV 




020766 


004737 


043160 






JSR 




020772 


000404 








BR 




020774 
020776 


000240 








NOP 




104000 








EMT 




021000 


000137 


021 ''42 






JMP 


782 


021004 








3$: 




783 


021004 


004737 


043522 






JSR 


784 


021010 


012703 


000205 






MOV 


785 


021014 


000002 








RTI 


786 














787 


021016 


005303 






4$: 


DEC 


788 


021020 


100376 








BPL 


789 














790 


021022 


112737 


000000 


00154^ 




MOVB 




021030 


112737 


000200 


001544 




MOVB 




C21036 


012737 


000000 


001410 




MOV 




021044 


004737 


043160 






jSR 




021050 


000404 








BR 




021052 


000240 








NOP 




021054 


104000 








EMT 




021056 


000137 


021142 






JMP 


791 


021062 


012703 


000205 




5t: 


MOV 


792 


021066 


000002 








RTI 


793 














794 


021070 


012712 


021104 




6$: 


MOV 


795 


021074 


005303 






7$: 


DEC 


796 


021076 


100376 








rt: 


797 


021100 


00000? 








798 














799 


021102 


022626 






8t: 


CMP 


80C 


02M04 


022626 






9$: 


CMP 
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SCO on: 



.•ERROR * DEFJNED BY TSTPRP SUBROUTINE 
;G0 TO 13$ IF ERROR 



13$ 

$VECT1,R2 
**C<377>.R2 
(R2).R4 
2(R2) ,R5 
m.(R2) 
*PR6,2(R2) 
$VL-CT1*1.R3 
**C<377>.R3 
#PR6.-(SP) 
*12$.-(SP) 
R3,-(SP) 
(SP) 
2$ 
(SP) 

/(r*CPR7.(SP) 
*6$.-(SP) 
R3.-(SP) 
*4$.-(SP) 
PC.GETSTS 

#RMCS1.PUTINX 
#200.PUTINX*1 

#0FFSETIG0.IE,RMCS10 ;SET RMCSl OUTPUT BUFFER - OFFSET. GO. IE 



R2 = INTERRUPT ADDRESS 
CLEAR' SIGN EXTENSION 
SAVE HANDLER ADDRESS 
SAVE HANDLER PRIORITY 
WRITE HANDLER ADDRESS AND 
PRIORITY FOR THIS TEST 
R3 = INTERRUPT LEVEL 
CLEAR SIGN EXTENSION 
PUSH *PR6 ON STAC< 
PUSH #12$ ON STACK 
PUSH R3 ON STACK 



.•PUSH *6$ ON STACK 

.■PUSH R3 ON STACK 

;PUSH *4$ ON STACK 

SETUP TO READ ALL REGISTERS 

.-SETUP PUT INDEX TABLE 
;SET TERMINATOR BYTE 



PC. PUT 
3$ 



13$ 

PCTIMOUT 
*205,R3 



GO WRITE RMCSl VIA PUT SIBROUTINE 
GO TO 3$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 13$ IF ERROR 

.■WAIT FOR GO = 0 
;R3 - GROSS TIMER 



R3 
4$ 

*RMCS1.PUTINX 

#200,PUTINX-^1 

*N0P.RMCS10 

PC. PUT 

5$ 



13$ 

*205,R3 



;DELAY 



SETUP PUT INDEX TABLE 

SFT TERMINATOR BYTE 

SET RMCSl OUTPUT BUFFER - NOP 

GO WRITE RMCSl VIA PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 13$ IF ERROR 



*9$.(R2) 

R3 

7$ 



(SP)«.(SP)* 
(SP)-^,(Sc^)* 



.-NO ERROR 

.-ADJUST STACK 
.-ADJUST STACK 



SO- 
SO? 
803 
804 



805 

806 
807 
808 
809 
810 
811 



W105/3/2 fCTW. TST 1 
1MMI8IT INTERRUPT TEST 



021106 
021112 
021 114 
021114 
021120 
021122 
021124 
021126 
021132 
021132 

021134 
021136 
021142 



012716 
000002 

004737 
000404 
000240 
104000 
000137 

104252 

010412 
010562 



021114 
042710 

021142 
000002 



P12 
813 



s 



MACRO V04.0C 



lOf: 



11S: 

12$: 
^3$: 



J 9 

4-APR-81 11:4;;28PAGE 13-30 



SEO 0*13 



MOV 
RTI 

JSR 

BR 

NOP 

EMT 

JMP 

EMT 

MOV 
MOV 



*10$.(SP) 



PC. GET 
11$ 



13$ 

252 

R4.(R2) 
R5.2(R2) 



GO READ R£GISTER(S) WITH GET SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 13$ IF ERROR 



021142 






021142 


000004 




021144 


000240 




021146 


012706 


001100 


021152 


013700 


001276 


021156 


013701 


001464 


021162 


012737 


000026 001226 


021170 


004737 


041650 


021 1 74 


054130 





*TEST 26 RETURN TO CENTERLINE TEST 

ST26: 

SCOPE CALL 



SCOPE 
NOP 
MOV 
MOV 
MOV 
MOV 

jSR 
.WORD 



*STACK.SP 
$8ASE.R0 
TSTQUE.R1 
#26.$TESTN 

PC.TSTPRP 
054130 





021176 


000404 








021200 


000240 








021202 


104000 








021204 


000137 


021464 






021210 
021210 








815 


112737 


000000 


001543 




021216 


112737 


000200 


001544 




C21224 


012737 


00001 7 


001410 




021232 


004737 


043160" 






021236 


000404 








021240 


000240 








021242 


104000 








021244 


000137 


021464 




816 


021250 


004737 


042624 




817 


021254 


004737 


043522 




818 










819 


021260 
021264 
021266 
021270 


004737 
000404 
000240 
104000 


042710 






02^27^ 


000137 


021464 




820 


021276 








821 


021276 


004737 


043706 





1$: 



2$: 



3$: 



BR 
NOP 
EMT 
JMP 

M0V8 

M0V8 

MOV 

JSR 

BR 

NOP 

EMT 

JW 

JSR 

JSR 

JSR 

BR 

NOP 

EMT 

JMP 

^SR 



1$ 



9$ 



*RMCS1 .PUTINX 

#200,PUTINX+1 

tfRTC.'GO.RMCSlO 

PC, PUT 

2$ 



9$ 

PC.GETSTS 
PC. TIMOUT 



PC. GET 
3$ 



9$ 

PC.PftlERR 



START OF TEST 

INITIALIZE STACK POINTER 

RO UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER I SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NO^ VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PJP" IS S^T 

VERIFY RE CALIBRATION 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY TSTPRP SUBROUTINE 

GO TO 9$ IF ERROR 

SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMCSl OUTPUT BUFFER - RTC.GO 

GO WRITE RMCSl VIA PUT SUBROUTINE 

60 TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 9$ IF ERROR 

SETUP FOR STATUS FETCH 

WAIT FOR RECAL TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 9$ IF ERROR 

;G0 CHECK FOR PRIMARY ERRORS 



^ZR»tBO RM05/3/2 FCTNL TST 1 MCRO VW.OO 4-APR-81 
RETURN TO CEMTERLINE TEST 





021302 


000405 








BR 




021304 


000240 








NOP 




021306 


104000 








EMT 




021310 


004736 








JSR 




021312 


000137 


021464 






JMP 




02)316 


032737 


000001 


001 346 


4i: 


BIT 


823 


021324 


001411 








6EQ 


82A 


021 326 


005037 


001140 






CLR 


825 


021332 


013737 


001346 


001142 




MOV 


826 


021340 


042737 


1 777Hi 


001142 




BIC 


827 


021346 


104157 








EMT 


828 


021350 


032737 


100000 


001346 


5$; 


BIT 


829 


021 35^. 


001012 








BNE 


830 


021360 


013737 


001346 


001142 




MOV 


831 


021366 


042737 


Q77777 


00114? 




BJC 


832 


021374 


012-^37 


100000 


001140 




MOV 


833 


021402 


104171 








EMT 


834 


021404 








6S: 




835 


021404 


004737 


050400 






JSR 




C21410 


115760 








.WORD 




021412 


000010 








.WORD 




021414 


000405 








BR 




021416 


000240 








NOP 




021420 


104000 








EMT 




0.71422 


004736 








JSR 




021424 


0001 37 


021464 






JMP 


836 


021430 








7$: 




837 


021430 


004737 


057766 






JSR 




021434 


000405 








BR 




021436 


000240 








NOP 




021440 


104000 








EMT 




021442 


004736 








JSR 




021444 


000137 


021464 






JMP 


858 


021450 








8$: 




839 


021450 


004737 


044540 






JSR 




021454 


000403 








BR 




021456 


000240 








NOP 




021460 


104000 


- 






EMT 




021462 


004736 








JSR 


840 


021464 








9$: 




8A1 














8A2 










• • *********** 

• « 












.••TEST 


27 












• ************ 




021464 








TS T 27: 






021464 


000004 








SCOPE 




021466 


000240 








NOP 




021470 


012706 


001100 






MOV 




021474 


01 3700 


001276 






MOV 




021500 


013701 


001464 






MOV 




021504 


012737 


000027 


001226 




MOV 


843 














844 


021512 


004737 


041650 






JSR 




021516 


054130 








.WORD 



K 9 
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4$ 



PC.ia(SP)* 
9$ 

*OM.RMDSI 
5$ 

SGDDAT 

RMDSJ.SBDDAT 
«*COM.$BDDAT 

157 

*ATA.RMDSI 
6$ 

RMDSI .SBDDAT 
**CATA,$BDDAT 
/ifATA. SGDDAT 
171 



GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

OFFSET MODE OFF?? 

YES' ' 

GOOD DATA FOR TYPEOUT 
BAD DATA FOR TYPEOUT 



WAS ATTENTION SET ?? 
YES. . 

BAD DATA FOR TYPEOUT 



;GOOD DATA FOR TYPEOUT 



PC.CMPERRSTS 

NDTMSK 

DPE 

7$ 



pc,a(SP>* 

9$ 

PC.STCDRVSTS 
8$ 



pc.a(sp)* 

9$ 



CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ft DEFINED BY CMPERRSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 9$ IF ERROR 

GO CHECK FOR CHANGES IN DRIVE STATUS 
GO TO 8$ IF NO ERROR 
RETURN HERE IF ERROR 

ERROR tt DEFINED BY STCDRVSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 9$ IF ERROR 



PC.SECERR 
9$ 



PC.a(SP>+ 



GO CHECK FOR SECONDARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SEC ERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 



»»»»•*»*********»»*•*»» j» »••*»*♦******»»*»»•**♦»»»* 

READ IN PRESET TEST 
************************************************** 



*STAC<.SP 
SBASE.RO 
TSTQUE,R1 
*27. STESTN 

PC.TS'PRP 
054130 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(Rl) = DEVICE BEING TESTED 

.-SET TEST NUTBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER £ SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VAl::* 



CZRWBO 



RM05/3/2 FCTML 
READ IN PRESET 



TST 1 
TEST 
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L 

■'di PAGE 



9 

13-32 



SEO 011^ 



846 
847 
848 
8^9 
850 
851 
852 
853 
854 
855 
856 



857 
858 

859 
860 



861 
862 



863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 



021520 
021522 
021524 
021526 
021532 
021532 
021536 
021542 
021546 
021552 
021556 
021562 
021570 
021576 
021604 
021612 
C21616 
021620 
021622 
021624 
021650 
021634 

021640 
021644 
021646 
021650 
02165? 
021656 
021656 
021662 
021664 
021666 
0^1670 
021672 
021676 
021704 
021712 
021714 
021720 
021722 
021 

021 730 
021 736 
021 742 
021744 
021750 
021752 
021760 
02176; 
021766 
021766 
021 772 
02y77i, 



0004 C4 
000240 
104000 
000137 

012702 
112722 
112722 
112722 
112722 
112722 
012737 
012737 
012737 
012737 
004737 
000404 
000240 
104000 
000137 
004737 
004737 

004737 
000404 
000240 
104000 
000137 

004737 
000405 
000240 
104000 
004736 
000137 
013737 
042737 
001403 
005037 
104160 
C05737 
001406 
013737 
005037 
104161 
005737 
001406 
013737 
005037 
104162 

004737 
115760 



022046 

001543 
000006 
000034 
000032 
000000 
000200 
}77777 
-[77777 
016200 
000021 
043160 



022046 
042624 
043522 

042710 



022046 
043706 



022046 
001366 
161577 

001140 

001342 

001342 
001140 

001370 

001370 
00r40 

050400 



1$: 



001416 
001444 
001442 
001410 



2$: 



3$: 



001142 4$; 
001142 



001142 



001142 



5$: 



6S: 



7t: 



VERIFY PACK 
RECALIBRATE 



ACKNOWLEDGE 
IF "SKI" OR 



'T>IP" IS <:ET 



BR 


1$ 


;G0 TO 1$ IF NO ERROR 


NOP 




.•RETURN HERE IF ERROR 


emt 




.•ERROR 0 DEFINED BY TSTPRP SUBROUTINE 


JMP 


10$ 


;60 TO 10$ IF ERROR 


MOV 


#P(jTINX,R2 


;R2 POINTS TO INDEX TABLE 


MOVB 


*R"1DA, (R2) ♦ 




MOVB 


*RMDC, (R2)* 




MOVB 


#RMOF , (R2)* 




MOVB 


*RMCS1 , (R2)* 




MOVB 


*200. (R2)* 




MOV 


n-\ .RMDAO 




MOV 


*-1 .RMDCO 




MOV 


*FMT161ECI .HCI 


.OFD.RMOFO 


MOV 


*RIP!G0,RMCS10 


JSR 


PC. PUT 


;cj WRITE REGISTER(S) WITH FHJT SUBROUTINE 


BR 


2$ 


;G0 TO 2$ IF NO ERROR 


NOP 




.•RETURN HERE IF ERROR 


EMT 




; ERROR * DEFINED BY PUT SUBROUTINE 


JMP 


10$ 


;G0 TO 10$ IF ERROR 


JSR 


PC.6ETSTS 


.•SETUP FOR STATUS FETCH 


JSR 


PC.TIMOUT 


.•WAIT FOR RIP TO COMPLETE 


JSR 


PC, GET 


;60 READ REGISTER(S) WITH GET SUBROUTINE 


BR 


3$ 


;G0 TO 3$ IF NO ERROR 


NOP 




.•RETURN HERE IF ERROR 


EMT 




.'ERROR ft DEFINED BY GET SUBROUTINE 


JMP 


10$ 


.*G0 TO 10$ IF ERROR 


JSR 


PC.PRIERR 


;G0 CHECK FOR PRIMARY ERRORS 


BR 


4$ 


;G0 TO 4$ IF NO ERROR 


NOP 




#^ ^ V A k Biff* #^ # ^ #^ 

.•RETURN HERE IF ERROR 


EMT 




.•ERROR # DEFINED BY PRIERR SUBROUTINE 


JSR 


PC,3(SP)* 


;G0 BACK FOR MORE ERROR CHECKS 


JMP 


10$ 


:G0 TO 10$ IF ERROR 


MOV 


RMOFI ,$BDDAT 


.•IS RMOF RESET?? 


BIC 


**C<FMT16!ECI .' 


HCI !0FD>,$8DDAT 


BEG 


5$ 


;YES! : 


CLR 


$GDDAT 


;G00D DATA FOR TYPE OUT 


EMT 


160 




TST 


RMDAI 


;IS RMDA RESET?? 


BEO 


6$ 


; YES! I 


MOV 


RMDAI ,»oDDAI 


■ QAIN f\ATA r r\D TV DC HI IT 

.•BAD DATA rUR TYrtOUl 


CLR 


$GDDAT 


;GOOD DATA FOR TYPE OUT 


EMT 


161 




TST 


RMDCI 


;IS RMDC RESET?? 


BEO 


7$ 


;YES. ! 


MOV 


RMDCI,$BDDAT 


.•BAD DATA FOR TYPEOUT 


CLR 


SGDDAT 


;GOOD DATA FOR TYPEOUT 


EMT 


162 




JSR / 


PC.CMPEPRSTS 


; CHECK ANY ERRORS NOT MASKED 


.WORD 


NDTMSK 


;MASK FOR RMER1 


.WORD 


DPt 


;MASK FOR RMER2 



Z^MMBO RM05/3/2 FCTNL TST 1 
READ IN PRESET TEST 



02*776 
022000 
022002 
02200A 
022006 

880 022012 

881 022012 
022016 
022020 
022022 
022024 
022026 

882 022032 

883 022032 
022056 
022040 
022042 
022044 

884 022046 
885 

886 



022046 
022046 
022050 
022052 
022056 
022062 
022066 

887 

888 022074 
022100 



000405 
000240 
104000 
004736 

000137 022046 

004737 057766 

000405 

000240 

104000 

004736 

000137 022046 

004737 044540 

000403 

000240 

104000 

004736 



MACRO V04.00 4-APR-81 



BR 

NOP 

im 

JSR 
JMP 



8S: 



91: 



10$: 



000004 
000240 

012706 001100 

013700 001276 

013701 001464 
012737 000030 001226 

004737 041650 
054130 



JSR 
BR 

NOP 
EWT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 



.••TEST 30 
TST30: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 
.WORD 





022102 


000404 








BR 




022104 


000240 








NOP 




C22106 


104000 








EMT 




022110 


000137 


022364 






JMP 


889 


022114 








1$: 




890 


022114 


112737 
112737 


000000 


001543 




M0V8 




022122 


000200 


001544 




M0V8 




022130 


012737 


00001 5 


001410 




MOV 




022136 


004737 


043160 






JSR 




022142 


000404 








BR 




022144 


000240 








NOP 




022146 


104000 








EMT 




022150 


000137 


022364 






JMP 


891 


022154 


004737 


042624 




2$: 


JSR 


892 














893 


022160 
022164 
022166 


004737 
000404 
000240 


042710 






JSR 

BR 

NOP 



M 9 
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S£0 0116 



8S 



PC,a(SP)* 
105 

PC.STCDRVSTS 
9$ 



pc,a(SP)+ 

10$ 

PC.SECERR 
10$ 



pc,a(SP)+ 



GO TO 8$ If NO ERROR 
RETURN HERE IF ERROR 

ERROR * DEFINED BY CMPERRSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 10$ IF ERROR 

GO CHECK FOR CHANGES IN DRIVE STATUS 
GO TO 9$ If NO ERROR 
RETURN HERE IF ERROR 

ERROR * DEFINED BY STCDRVSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 10$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY 5ECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 



RMDC CLEAR OFFSET TEST 



.•SCOPE CALL 

.-START OF TEST 
*STACK,SP ; INITIALIZE STACK POINTER 

$QASE.RO ;R0 = UN J BUS ADDRESS 

TST0UE,R1 ;(R1) = DEVICE BEING TESTED 

*30.$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 

PC.TSTPRP .-PREPARE DEVICE FOR TEST 

054130 .-TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE If VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SET 
VERIFY RE CALIBRATION 
GO TO 1$ IF NJ ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP S'JBROUTINE 
GO TO 8$ IF ERROR 



1$ 
8$ 

*RMCS1.PUTINX 
*200.PJTINX*1 
*OFFSET!GO,RMCS10 
PC, PUT 
2$ 



; SETUP PUT INDEX TABLE 
.-SET TERMINATOR BYTE 



8$ 

PC.GETSTS 

PC. GET 
3$ 



.-SET RMCS1 OUTPUT BUFFER OFFSET IGO 
GO WRITE RMCS1 VIA PUT SUBRdUTINE 
GO TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 8$ IF ERROR 
SETUP FOR STATUS 

60 READ REGISTER(S) WITH GET SUBPOUTINE 
GO TO 3$ IF NO ERROR 
RETURN HERE IF ERROR 



^I^TBO RM05/3/2 FCTNL TST 1 
T30 RMDC CLEAR OFFSET TEST 



N 9 
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SEO 011? 



a9A 

895 



896 
897 
898 
899 
900 
901 
902 
903 
904 



905 
906 



90/ 
908 
909 
910 
91 1 
912 
913 
914 
915 



022170 
022172 
022176 
022176 
022202 
022204 
022206 
022210 
022212 
022216 
022224 
022226 
022234 
022242 
022250 
022252 
022254 
022254 
022262 
022270 
022276 
022302 
022304 
022306 
022310 
022314 
022314 
022320 
022322 
022324 
022326 
022332 
022340 
022342 
022350 
022356 
022362 
022364 



022364 
022364 
022366 
022370 
022374 
022400 
022404 

•316 

917 022412 
022416 

022420 
022422 
022424 



104000 
000137 

004737 
000405 
000240 

104000 
004736 
000137 
052737 
001013 
013737 
042737 
012737 
104156 
000444 

112737 
112737 
012737 
004737 
000404 
000240 
104000 
000137 

004737 
000404 
000240 
104000 
000137 
032737 
001411 
013737 
042737 
005037 
104253 



000004 
000240 
012706 
013700 
013701 
012737 

004737 
040000 

000404 
000240 
104000 
000137 



022364 
043706 



022364 
000001 

001346 
177776 
000001 



000034 
000200 
OCOOOO 
043^60 



022564 
042710 



022364 
000001 

0013/.6 
1 77776 
001140 



001100 
001276 
001464 
000031 

041650 



023'50 



3$: 



001346 4$: 

001142 
001142 
001140 



001543 
001544 
001444 



5$: 



6$: 



001346 7$: 

001142 
001142 



8$: 



EMT 


.-ERROR » DEFINED BY GET SUBROUTINE 


JMP 


8$ :G0 TO 8$ IF ERROR 


JSR 


PL.PKIcRk , 


GO CHECK FOR PRIMARY ERRORS 


BR 


4$ 


GO TO 4S IF NO ERROR 


NOP 




•RETURN HERE IF ERROR 


EMT 




■ERROR * DEFINED BY PRIERR SUBROUTINE 




pc,a(SP)* ; 


•GO BACK FOR MORE ERROR CHECKS 


JMP 


8S 


GO TO 8$ IF ERROR 


BIT 


*a'^.RMDSI 


•OFFSET ON?? 


BNE 


5$ 


YES 


MOV 


9MDSI.$BDDAT 


•BAD DATA FOR TYPEOUT 


BIC 


#*C0M,$BDDAT 




MOV 


#0M,$GDDAT 


•GOOD DATA FOR TYPEOUT 


EMT 


156 




BR 


8$ ;SKIP REST OF TEST 


M0V8 


*RMDC.PUTINX 


•SETUP PUT INDEX TABLE 


MOVB 


*200,PUTINX+1 


•SET TERMINATOR BYTE 


MOV 


*0.RMDC0 


•SET RMDC OUTPUT BUFFER = 0 


JSR 


PC. PUT 


•GO WRITE RMDC VIA PUT SUBROUTINE 


BR 


6$ 


;G0 TO 6$ IF NO ERROR 


NOP 




.•RETURN HERE IF ERROR 


EMT 




; ERROR DEFINED BY PUT SUBROUTINE 


JMP 


8$ 


; GO TO 8$ IF ERROR 


JSR 


PC, GET 


;G0 READ REGISTER(S) WITH GET SUBROUTINE 


BR 


7$ 


;G0 TO 7$ IF NO ERROR 


NOP 




.•RETURN HERE IF ERROR 


EMT 




.•ERROR a DEFINED BY GET SUBROUTINE 


JMP 


8$ 


; GO TO 8$ IF ERROR 


BIT 


AOM.RMDSI 


;DID OFFSET MODE RESET?? 


BEO 


8$ 




MOV 


RMDSJ.SBDDAT ;8AD DATA FOR TYPEOUT 


BIC 


*-COM.$BDDAT 




CLR^ 


$GDDAT .-GOOD DATA FOR TYPEOUT 


EMT 


253 





;****•**********************»**•*****************•*******••*•*»* 

*TEST 31 ILLEGAL FUNCTION TEST 

■A************************************************************** 

'TST31: 



001226 



SCOPE 
NOP 

MOV / ffSTACK.SP 
MOV./ 'SBASE.RO 
MOV ' TSTQUE.R1 
*31. $TESTN 



MOV 

jsr" 

.WORD 

BR 
NOP 
EMT 
JMP 



PC.TSTPRP 
040000 

1$ 

^3S 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(Rl) = DEVICE BEING TESTED 

.-SET TEST NUCBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER I SELECT DEVICE 

GO TO 1$ IF NO ERROR 

RETURN HERE IF /ERROR 

ERROR » DEFINED BY TSTPRP SUBROUTINE 

GO TO 13$ IF ERROR 



7R»«BG W05/5/2 FCTNL TST ' 
ILLEGAL FUNCTION TEST 



918 02?452 

>19 Q22t,l2 
92Q 022436 
9:1 022442 
922 022442 
022446 
C22450 
022452 
022454 
'V25 022460 
924 
925 
926 

927 022^60 
022466 
022474 
022502 
022506 
022510 
C22512 
022514 

^28 022520 

929 0225 ?C 
022S26 
022534 
022542 
022546 
022550 
022552 
022554 

930 022560 
93 1 

932 

933 022560 
022566 
022574 
022602 
022606 
022610 
022612 
022614 
954 022620 
935 022620 

956 022626 

957 022632 

958 022640 

939 022646 

940 022652 

941 022656 

942 022664 

943 022670 

944 022674 
9^.5 022700 

946 022704 

947 022710 

948 0227U 

949 C2272<j 



004737 C42624 

012702 'jOOOOC 

004737 052264 
000404 
000240 
104000 

000137 0231 5C' 



112737 
11?737 
012737 
004737 
000404 
000240 
104000 
000137 

112737 
1:2737 
012737 
004737 
000404 
000240 
104000 
000137 



t:2737 
112737 
012737 
004737 
000404 
000240 
104000 
OOC157 

012737 
050237 
012737 
012737 
005037 
005037 
012737 
012703 
112725 
112725 
112725 
112723 
112723 
1V723 
M2713 



000C24 
000200 
000001 
043160 



023150 

000024 
000200 
001401 
043160 



0<r3^50 



000000 
000200 
000023 
043160 



023150 

000001 
001410 
105274 
^77777 
001416 
001444 
010000 
001543 
000004 
000002 
000032 
00C006 
000034 
000000 
000200 



0C1543 
00^5-4 
00U34 



21: 
3f: 



:45:28 PAGE 



PC.6ETSTS 
•N0P.»2 

PC.CNTCLR 
3S 



3S 



SfO 0118 



.SETUP fO» STAIUS 



GO JSSUE CONTROLLER CLEAR 

CO TO 3S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR NkPBER DEFINED BY SUBROUTINE 

GO TO 13S IF ERROR 



DIAGNOSTIC *«DE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON 



OCI545 
001544 
00'434 



4S. 



001543 
001 544 
00H10 



51: 

;SE 



OOU^C 

001414 
OCI412 



001442 



iNDER 

no^ 

.SR 

BR 

NOP 

EMT 

j«»> 

MOi/ 

JSR 

Bfi 

NOP 

EMT 



3LCME VAt 
NO^ 
«0V8 
«0V 

jSR 

BP 

NOP 

f«T 

JMP 

MOV 
8JS 
«0V 
«CV 

r.R 

CLR 

•wv 

10/8 

«0/8 

WO/B 
•^1^8 



•WIRI.PUTINX 

*:00.PUTIN)I*1 

♦DW.RMFWO 

PC .PUT 

4t 



15S 



;SETUP PUT INDEX TAfcHE 

.-SET TERHINATOR BYTE 

.-SET WW1 OUTPUT BUFFER - OHD 

.-GO WRITE RWR'i VIA PUT SUBROUTINE 

:G0 TO 4S IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR DEFINED BY PUT SLBROUTINE 

;G0 TO 13S IF ERROR 



»RPT1R1 .PUTINX .SETUP PUT INDEX TABLE 
#?00.PuTlNX»1 ;SET TERMINATOR BYTE 
#D«D.'«UR:M0C.Wf1R10 .-SET RMMR1 OUTPUT BUFFER 
PC. PUT .-GO WRITE RWR1 VIA PUT SLBROUTINE 

5S ;60 TO 5$ IF NO ERROR 

.-RETURN HERE IF ERROR 
;ERRO« DEFINED BY PUT SlfiROUTINE 
15S .-GO TO 13S IF ERROR 



ID BEFORE ISSUING FUNCTION CODE BEING TfSTED 
#WCS1.PUTINX .-SETUP PUT INDEX TA3LE 
#200.PUTINX*1 ;SET TERMINATOR BYTE 
#PA|f;*Clc:&O.R«CS!0 .-SET RMCS1 OUTPLT BUFFER 



DMD.MUR.MOC 



PC. P'i^ 
6S 



15J 



#GC.RMCS10 

R2.RWCS10 

«8UF0NE.RMBA0 

#-1 .RMWCO 

RHDAO 

RWCO 

tF«Tl6.RnOF0 

#PUTINX,R5 

#RNBA.{R3)* 

*R«WC.(R3)» 

#W0F.(R3)* 

#ftMDA,(R3^* 

#R«DC.{R3)* 

#R«CS1.(R3j» 

#200. fR3; 



.-GO WRITE RMCSI VIA PUT SUBROUTINE 
;G0 TO 6f IF NO ERROR 
.-RETURN HERE IF ERROR 
.-ERROR DEFINED BY PUT SUBROUTINE 
;60 TO 13S IF ERROR 



WRITE FUNCTION CODE IN BUFFER 

DUWY BUS ADDRESS 

DUMMY WORD COUNT 

CLEAR DISK ADDRESS 

CLEAR CYLINDER ADDRESS 

16 BIT FORMAT 

WRHE REGISTER INDEX TABLE 



PAKACtc.GO 



5«*«C FCTMl ^ST ' 

lu.EGAL FUNCTION 7^57 



-SO 02272^ 
0227SO 
022732 
022734 

022756 
9b' 022742 
9S2 

953 022746 
022752 
022754 
022756 
022760 

954 022764 

955 022764 
022770 
Q22772 

022776 
023000 

956 C23004 

957 023012 

958 023020 

959 023026 

960 023034 

961 023042 

962 023044 

963 023046 

964 023050 

965 023056 

966 023064 

967 023066 
96a 023074 

969 023102 

970 023110 

971 023116 

972 023124 

973 023126 

974 023130 

975 023132 

976 023136 

977 023142 

978 023144 

979 023150 
980 

981 



004737 
000404 
000240 
104000 
000' 37 
0C4737 

004737 
000404 

000240 
104000 
0001 37 

004737 
000405 
000240 
104000 
004736 
000137 
016237 
042737 
013737 
042737 
023737 
00^402 
104254 
000440 
016237 
032737 
001403 
052737 
042737 
013737 
042737 
023737 
001402 
104255 
000407 
062702 
022702 
103402 
000137 



C43'6C 



0231 5C 
043522 

042710 



023150 
043706 



023150 
0671 36 
1 77776 
001350 
:77776 
001140 



067136 
040000 

100000 
077777 
001346 
077777 
001140 



000002 
000076 

022442 



71: 



8t: 



001140 
001140 
001142 
001142 
001142 



001140 
00^346 

001140 
00M40 
00' 142 
00'142 
00' 142 



9S: 



10$; 



-lit. 



'2%: 



13$: 



4-APlJ-gn 



BR 
NOP 
EW^ 
J«P 

^SR 

.'SR 
BR 
NOP 
E«T 

JSR 

8R 

NOP 

EMT 

. SR 

jMP 

MOV 

BIC 

«0V 

BIC 

crv> 

BEQ 

EMT 

BR 

•lOV 

BIT 

BEQ 

BIS 

BIC 

•lOv 

BIC 

CMP 

BEO 

EMT 

BR 

ADD 

CMP 

BLO 

JMP 



►^EST 32 



025150 






TST52: 


023150 


000004 




SCOPE 


023152 


000240 




NOP 


025154 


012706 


oonoo 


MOV 


025160 


015700 


001276 


MOV 


023164 


013701 


001464 


MO/ 


023170 


012737 


000032 001226 


nov 


982 








983 025176 


004757 


041650 


JSR 


C23202 


04C0OC 




.WORD 



.3:.8 



PC.PLT 
7$ 



13$ 

PC.TIMOUT 



C 

PAGE 



10 

1!-36 



SEO 0119 



PC.. 
8S 



13$ 



.FT 



PC.PRIERR 
9$ 



pc.afsp)* 

13$ 

FNCDTB(R2).SGDDAr 
#*CILF.$GDDAT 
RMER1I,$8DDAT 
**CILF,$8DDAT 
$GDDAr,S8DDAT 
10$ 
254 
13$ 

FNCDT8(R2).$GDDAT 
#ERR,RMDSI 
11$ 

«ArA,$GDDAT 
#*CATA.$GDDAT 
RMDSI,$6DDAT 
#''CATA,$6DDAT 
$GDDAr.$6DDAT 
12$ 
255 
15$ 
#2.R2 
#ILF76.R2 
13$ 
2$ 



GO tJRITE REGISTER(S) WITH PUT S»jeROUTlNt 

GO TO 7$ If NO ERROR 

RETURN HERE If ERROR 

ERROR » DEFINED BY PUT SUBROUTINE 

GO TO 15$ IF ERROR 

(JAIT FOP GO TO RESET 

GO READ REGJSTER(S) WITH GET SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 13$ IF ERROR 

GO CHECK FOR PRIMARY ERRC9S 
GO TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
60 TO 15$ IF ERROR 

;GET ENTRY FROM FUNCTION CODE TABLE 

;8AD DATA FOR TYPEOUT 



;IS ILF 
;YES:: 



STATUS CORRECT? 



was an error detected?? 
no: . 

yes - ata should be on 
.•get drive's attention 
;is ata status ok?? 

;YESi: 



GO TO NEXT FUNCTION CODE 
DONE?? 
YES . : 

TEST NEXT FUNCTION 



INVALID COMMAND TEST 



*STACK.SP 
$aASE.RO 
TSTOUE.Rl 
#52,$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT MAIL BOX 



PC.TSTPRP .-PREPARE DEVICE FOR ^EST 

040000 ;*A5K DESCRIPTOR AS FOLLOWS; 



7R"«B0 RM05/3/2 FCTNL TST ' 
"«? INvALir/ COMMAND TEST 





023204 


000404 






023206 

V/w 


000240 








104000 






023212 


000137 


023674 




023216 






985 


023216 


004737 
012702 


042624 


986 


023222 


000000 


987 


023226 






988 


023226 
023252 
023234 
023236 


004737 
000404 
000240 
104000 


052264 




023240 


000137 


023c74 


989 


023244 







99C 

992 



993 


023244 


112737 


000024 


001543 




C23252 


112737 


0C0200 


001544 




02i260 


012737 
004737 


000001 


001434 




023266 


043160 






023272 


000404 








023274 


000240 








023276 


104000 








023300 


000137 


023674 




994 


023304 








995 


023304 


112737 


000024 


001543 




023312 


112737 


000200 


00^544 




023320 


012737 


001401 


001434 




023326 


004737 


043160 






023332 


000404 








023334 


000240 








023336 


104000 








023340 


000137 


023674 




996 


023344 









997 
998 
999 

1000 

T001 023344 

1002 023344 

1003 023352 

1004 023356 

1005 023364 

1006 023372 

1007 023376 
7008 023402 

1009 023410 

1010 025414 

1011 023420 

1012 023424 

1013 023430 

1014 023434 

1015 025440 
'076 023444 
'01 7 C23450 



012737 
0502^7 
012737 
012737 
005037 
005037 
012737 
012703 
112723 
112723 
112723 
V272i 
U27?l 
112723 
TI27-IZ 



000001 
001410 
103274 
^77^77 
001416 
001444 
010000 
001543 
000004 
000002 
000032 
000006 
000034 
000000 
000200 
043^60 



001410 

0014^4 
001412 



0C1442 



D 10 
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SEO 0120 



1$ 



13$ 



PC.GETSTS 
#N0P.R2 

PC.CMCLR 
3$ 



13$ 



.•CLEAR CONTROLLER t SELECT DEVICE 

;G0 TO 1$ If NO ERROR 

.•RETURN HERE IF ERROR 

.-ERROR » DEFINED BY TSTPRP SLBROUTINE 

;G0 TO 13$ IF ERROR 

.•SETUP FOR STATUS 



GO ISSUE CONTROLLER CLEAR 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR NUMBER DEFINED 8v SUBROUTINE 

GO ^0 13$ IF ERROR 



: MODE AND DIAGNOSTIC UNIT READY. DIAGNOSTIC ON 



♦RMMRI.PUTINX 
•200. PUT I NX O 
#DW,RMMR10 
PC. PUT 
4$ 



13$ 



SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMMR1 OUTPUT BUFFER = DMD 

60 WRITE RMMR1 VIA PUT SUBROUTINE 

60 TO 4$ IF NO ERROR 

RETURN HERE IF ERRC« 

ERROR DEFINED BY PUT SLBROUTINE 

60 TO 13$ IF ERROR 



•WIRl.PUTINX .-SETUP PUT INDEX TABLE 
#200.PUTINX*1 ;SET TERMINATOR BYTE 

#DMP.'MUR.M0C.RMMR10 ;SET RMMR1 OUTPUT BUFFER = OMDIMUR.MO" 



PC. PUT 
5$ 



13$ 



GO WRITE RMMR1 VIA PUT SUBROUTINE 
GO TO 5S IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SLBROUTINE 
60 TO 13$ IF ERROR 



[S iEFT RESET FOR THE TEST 



#6C.RMCS10 

R2.RMCS10 

«8UF0NE.RMBA0 

M'^ .RMWCO 

RMDAO 

RMDCO 

irFMT16.RWF0 

fPUTINX.R3 

#RM8A.(R3)* 

#RMWC.(R3)* 

*R«0F.(R3)* 

#RMDA.(R3)* 

#RMDC.(R3)* 

#RMCSl.fR3>» 

#200. (R3) 

PC. PUT 



WRITE FUNCTION CODE IN BUFFER 

Dl/tlY BUS ADDRESS 

DUfflY WORD COUNT 

CLEAR DISK ADDRESS 

CLEAR CYLINDER ADDRESS 

16 BIT FORMAT 

WRITE RE6ISTER INDEX TABLE 



;G0 4(RITE REGISTEft(S) WITH PUT S'jBROUTINE 



'c INVALID COMMAND 'ES^ 



E 

PAGE 



10 



102^ 



023454 
023456 
023460 
023462 

'018 023«.66 

1019 

^020 023472 
023476 
023500 
023502 
023504 
023510 

1022 023510 
023514 
023516 
023520 
023522 
023524 

1023 023530 

1024 023536 
^025 023544 
'026 023552 

1027 023560 

1028 023566 

1029 023570 

1030 023572 

1031 023574 

1032 023602 

1033 023610 

1034 023612 

1035 023620 
"036 023626 
'037 023634 
^038 023642 

1039 023650 

1040 023652 

1041 023654 

1042 023656 

1043 023662 

1044 023666 
^045 023670 
1046 023674 
1047 

1048 



1049 



000404 
000240 
104000 
000137 
004757 

004737 
000404 
000240 
104000 
000137 

004737 
000405 
000240 
104000 
004736 
000137 
016237 
042737 
013737 
042737 
023737 
001402 
104216 
000440 
016237 
032737 
001403 
052737 
042737 
013737 
042737 
023737 
001402 
104255 
000407 
062702 
022702 
103402 
000137 



023674 
043522 

042710 



02367*. 
0437C& 



023674 

067136 

167777 

001376 
167777 
001140 



0671 36 
040000 

100000 
Q77777 
001546 
077777 
001140 



0000C2 
000076 

02122b 



023674 






023674 


000004 




02K>76 


000240 




023700 


012706 


001100 


023704 


013700 


001276 


023710 


013701 


001464 


023714 


012737 


000033 


023722 


004757 


041650 


023726 


040D00 





8t 



001140 
001140 
001142 
001142 
001142 



001140 
001346 

001140 

oor40 

00T142 
00^142 
001142 



91: 



ICS: 



'21: 



'5S: 



TST33: 



001226 



BR 

NOP 

EMT 

JSft 

.SR 
BR 
NOP 
EMT 

.MP 

jSR 
BR 
NOP 
EMT 

,S« 

-MP 

MOv 

BIC 

MOV 

BIC 

CMP 

BEO 

EMT 

BR 

MOv 

BIT 

BEQ 

BIS 

BIC 

MOV 

BIC 

CMP 

BEQ 

EMT 

9fl 

ADD 

CMP 

BlO 

JMP 



•>E0 0121 



;»TfST 35 



SCOPE 
NOP 

«ov 

MOV 
MOV 
MO^ 

jSR 
.WORD 



7S 



13$ 

PC.TIMOUT 

PC.GET 
8S 



'3$ 

PC.PRIERR 
9S 



pc.a(SP)* 

134 

FNCDT8(R?).SGDDAt 
••CIVC.fGDDAT 
RMFR2I,$8DDAT 
#-CIVC.$8DDAT 
SGDDAT.SBDDAT 
10$ 
216 
15$ 

FNCDTB(R2),$GDDAT 



GO TO 7$ If NO ERROR 

RETURN MERE If ERROR 

ERROR # DEFINED Br PUT SUBROUTINE 

GO TO 13$ IF ERROR 

WAIT FOR GO TO RESET 

GO READ REG1ST£R(S) WiTfi GET SlBROoTlNE 

GO TO 8$ IF NO ERROR 

RETlWN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 13$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 
GO TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
60 BACK FOR MORE ERROR CHECKS 
GO TO 13$ IF ERROR 

;GET ENTRY FROM FUNCTION CODE TABLE 

;8AD DATA FOR TYPEOUT 

;IS IVC SUTUS CORRECT? 
;YES!i 



#ERR.PHOSI 
11$ 
«ATA,$GDDAT 
#*CATA.SGDDAT 
RnDSl.tBDDAT 
♦•CATA.$BDDAT 
$GDDAT,SBDDAT 
12$ 
255 
13$ 
»2.k? 
*ILF/6,R2 
13$ 
2$ 



.-WAS 
;N0! 
;YES 



AN ERROR DETECTED?? 

I 

- ATA SHOULD BE ON 



;GET DRIVE'S ATTENTION 



;IS ATA 

;YES.'i 



STATUS OK?? 



GO TO NEXT FUNCTION CODE 

DONE?? 

VES .: 

TEST NEXT FUNCTION 



INvAlID ADDRESS ERROR TEST 



#STACK.SP 
$8ASF.R0 
TSTOUE.RI 
#35,$TESTN 

PCJSTPPP 
040000 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER i SELECT DEVICE 



^5 INVALID ADDRESS fRRUR 'ES' 





023750 


000404 








3R 




025732 


000240 








NOP 




023734 


104000 








Err 




023736 


000137 


024464 






.KIP 


1051 


023742 








*$: 




105? 
^053 


02374? 


004737 


04?6?4 






JSR 


023746 


01?702 


000000 






MOV 


1054 


02375? 








21: 




^055 


02375? 
023756 


004757 
000404 


05?264 






BR 




025760 


000?4C 
104000 








NOP 




025762 








E«T 




025764 


000157 


024464 






.MP 


n56 


025770 








?f : 




1057 














1058 










;SE- 


Di'AGWS 


"059 












:ND£P 


"060 


025770 


'12757 


000024 


001543 








023776 


112737 


000200 


001544 




•10 ^8 




.^24004 


012757 


0C00O1 


00*454 




■J SR 




024012 


004757 


043160 








024016 


000404 








BR 




024020 


000240 








NOP 




024022 


104000 












024024 


C00157 


024464 










024030 








4t: 




\''6,? 


024030 


112737 


O00C24 


00^545 
00' 544 








024036 


112757 


000200 








024044 


012737 


001401 


OCI434 




MC./ 




0240S2 


004737 


043160 






.SR 




024056 


000404 








BR 




024060 


U00240 








NCP 




024062 


104000 












024064 


000137 


C 24464 






"IP 


1065 


024070 








Si- 




1064 














1065 










- >E • 


vX'J»E 


1066 


024070 


112757 


000000 


00'5i3 




«C/8 




024076 


112737 


000200 


DC" 544 








024104 


012737 


000023 


00"4"0 




«10< 




024112 


004737 


043160 






jSR 




0241 16 


000404 








BR 




024120 


000240 








NOP 




024122 


104000 








im- 




024124 


000137 


02*. 464 








1067 


024150 








61: 




1068 


024130 


012737 


000001 


001410 




f%S^ 


1069 


024136 


050237 


001410 






BIS 


'070 


024142 


012737 


103?74 


oouu 




MO*/ 


107T 


024150 


012757 


177777 


00'4'2 




•lOV 


1072 


024156 


012737 


177777 


0C14'6 






1073 


024164 


012737 


177777 


001444 




MO/ 


1074 


02417? 


0^2717 


010000 


001442 




MC^ 


1075 


0?4?0C 


012703 


001543 






MOV 


1076 


0?4?04 


1T?7?3 


000004 






MOVB 




0?4210 


n?725 


00000? 






MO/8 


"6^8 


:?4?i4 


'12723 


000052 






MG*B 



f 10 
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It 



13» 



PC.iETSTb 
*N0P.R2 

pc.cntclR 
3t 



13$ 



;G0 TO 1$ IF NO ERROR 

.•RETURN HERE IF ERROR 

;ERR0R * DEFINED BY TSTPRP SueROuTiNf 

;G0 TQ 13$ IF ERROR 

.•SETUP FOR STATUS 



GO ISSUE CONTROLLER CI EAR 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR NUMBER DEFINED BY SUBROUTINf 

GO TO 13$ IF ERROR 



MODE AND DIAGNOSTIC UNIT READY. DIAGNOSTIC ON 



#RMMR\PUTINX 

#2CC.PUTlNXO 

#DMD.R«W10 

PC. PUT 

4$ 



3$ 



.•SETUP PUT INDEX TABLE 

.-SET TERMINATOR BYTE 

;SET RMMR1 OUTPUT BUFFER " DMD 

;G0 WRITE RMMRI VIA PUT SUBROUTINE 

;G0 TO 4$ IF NO ERROR 

.■RETURN HERE IF ERROR 

.•ERROR DEFINED BY PUT SUBROUTINE 

;G0 TO 13$ IF ERROR 



»RMMR1 .PUTINX ; SETUP PUT INDEX TABLE 
#200. PUT I NX ;SET TERMINATOR BYTE 
•DMD.'MuRlMOC.RMMRlO ;SET RMMR1 OUTPUT BUFFER 
PC.P-JT ;G0 WRITE RMMR1 VIA PUT SUBROUTINE 

5$ ;G0 TO 5$ IF NO ERROR 

.•RETURN HERE IF ERROR 
.■ERROR DEFINED BY PUT SUBROUTINE 
'3$ ;G0 TO 13$ IF ERROR 



DMD.MUR MOC 



;D before ISSUI-NG function code BEING TESTED 
•RMCSI.PUTINX' .-SETUP PUT INDEX TABLE 
#200.PUTINX*1 ;SET TERMINATOR BYTE 
»PA^CACX :G0.RMCS10 .-set RMCSI OUTPUT BUFFER 

PC. PUT ;G0 WRITE RMCSI VIA PUT SUBROUTINE 

6$ .-GO TO 6$ IF NO ERROR 

.•RETURN HERE IF ERROR 
.•ERROR DEFINED BY PUT SUBROUTINE 
13$ ;G0 TO 13$ IF ERROR 



PAKACK .GO 



#G0,RMCS10 

R2.RMCS10 

#8UF0NE.RMBA0 

#-1.RMWC0 

#-1.RMDA0 

#-1.RMDC0 

#FMT16.RM0F0 

#PJTINX,R3 

#RM8A.(P3)« 

#RMwr , fR3J* 

#HMOF . f»3'* 



WRITE FUNCTION CODE IN BUFFER 

DUMMY BUS ADDRESS 

DUMMY WORD COUNT 

USE INVALID DISK ADDRESS 

USE INVALID CYLINDER ADDRESS 

16 Br FORMAT 

WRITE REGISTER INDEX TABLE 



^080 
108? 



'085 



'087 
'08S 



089 
'090 
1091 
1092 
1093 
1094 
1095 
'096 
^09^ 
'098 
1099 
1100 

roi 
1102 
1103 
1104 
1105 
llOo 
1107 
1108 
1109 

mo 
nil 
1112 

ins 
nu 



INVAlID address ERftOR 



ha; 
^E'>' 



024220 
024224 
024230 
024234 
024240 
024244 
024246 
0242S0 
024252 
024256 

024262 
024266 
024270 
024272 
024274 
024300 
024300 
0?4304 
0^4306 
024310 
024312 
024314 
024320 
024326 
024334 
024342 
024350 
024356 
024360 
024362 
024364 
024372 
024400 
024402 
024410 
024416 
024424 
024432 
024440 
024442 
024444 
024446 
024452 
024456 
024460 
024464 



024464 
024464 
024466 
024470 
024474 
C24500 



112723 
112723 
112723 
n2713 
004737 
000404 
000240 
104000 
000157 
004737 

0C4737 
000404 
000240 
104000 
0001 37 

004737 
000405 
000240 
10400C 
004736 
000137 
016237 
C42737 
013737 
042737 
023737 
001402 
104217 
000440 
016237 
032737 
001405 
052737 
042757 
015757 
042737 
025757 
001402 
104255 
000407 
062702 
022702 
105402 
000137 



000004 
000240 
012706 
015^00 

:i37c^ 



000006 
COCO 54 
000000 
000200 
043160 



024464 
043522 

0427' C 



024464 

045706 



024464 
067156 
W5777 
001550 
1^5777 
001140 



0671 56 
040000 

100000 
077777 
001546 
077777 

001140 



000002 
000076 

023752 



001140 
001140 
00" 42 

con'"* 
oon4_ 



001140 
001 346 

001140 

oon40 

001142 
001142 
001 ■'42 



9t: 



111: 



'5J: 



MC;B 
MO/8 

MO .'9 

.SR 

RR 

NOP 

E«T 

.SR 

.SR 
BR 
NCO 
E«' 

.SR 

BR 

NOf 

E«*T 

,SR 

JIV 

1CV 

BIC 

BK 

E«T 
BR 

m^/ 

BIT 
BEC 
BIS 
SIC 
"»0V 
BIC 
CMP 
BEQ 

Em 

BR 

ADD 

CliP 

8L0 

jfV 



.-•TEST 54 
"ST34: 



oonoo 

001276 
00 '464 



SCOPE 

NOP 

i«10/ 
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JfR»»1DA. (R5)* 
#RWDC. (R3)» 
#R«CS1 . (R3)» 
#200. («3) 
PC. PUT 
7$ 



SfO 01^5 



Ml 

o^^•«10LT 

PC.GE^ 
8S 



13$ 

Pc.pr:err 
9$ 



pc.acsp)* 

'5$ 

FNCDTBfR2).S&DDAT 
^'CIAE.SGDDAT 
RMER1I.S6DDAT 
#-CJAE.t8DDAT 
SGDDAT.teODAT ;IS lAE 

los .-yEsi: 

217 
'3S 

fNCDT8(R2).»GDDAT 



GO WRITE REGISTER(S> WIT^ PUT SUBROUTINE 

60 TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY P JT S'J8'<0UT|NE 

GO TO 15f IF ERROR 

WAIT FOR GO TO RESET 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 8S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 15S IF ERROR 

GO CHECK FOR PRIMARY ERRORS 
GO TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 15$ IF ERROR 

;GET ENTRY FROM FUNCTION CODE ^ASLE 

BAD DATA FOR TYPE OUT 

STATUS CORRECT? 



#ERR.RMDSI 

ns 

*ATA.$GDDAT 

#*CATA.$GDDAT 

RMDSI.SBODAT 

#''CATA,$8DDAT 

$GDDAT.$BDDAr 

V$ 

255 

15$ 

#2.R2 

#IlF76.R2 

13$ 

2S 



;UAS AN ERROR 
;N0. : 
;YES - ATA SHOULD 



DETECTED?? 
BE ON 

;GET DRIVE'S ATTENTION 
STATUS OK?? 



;IS ATA 
;YES; ! 



GO TO NEXT FUNCTION CODE 
DONE?? 

YES !! 

TEST NEXT FUNCTION 



JRITE lOCK ERRO^ test 



.'SCOPE CALL 

.-START OF TEST 
iTSTACt^.^P .-INITIALIZE STACK POINTER 

$8ASE.R0 , ;R0 - UHlBUh ADDRESS 

ib^atc.R'' ;^R1) - DEVICE BEING teS'EL 



WRITE LOC« 



TNL 'S' - 



15 
16 



■"17 
■I' 19 



1123 

'125 
^1?6 



1128 



1129 
1151 



024504 012757 



024512 
024516 

024520 
024522 
024524 
024526 
024532 
024552 
024556 
024542 
024542 
0245^6 
024550 
024552 
024554 
024560 



024560 
024566 
024574 
024602 
024606 
024610 
024612 
024614 
024620 
024620 
024626 
024634 
024642 
024646 
024650 
02465? 
024654 
024660 



0047J7 
040000 

000404 

000240 
'04000 
000157 

004757 
012702 

004757 
000404 
000240 
104000 
000^57 



112757 
112757 
01 2737 
004737 
000404 
000240 
104000 
000137 

112737 
112737 
012757 
004757 
000404 
000240 
104000 
000157 



0C0C3-; 
04't5C 



02525r 

04262^ 

OOOO'JO 

052264 



025250 



000024 
C 00200 
000001 
045160 



025250 

000024 
000200 
001411 
045160 



025250 



*4't,. 



mo, 

.jOBD 

BR 
NOP 

.SP 

3P 

NOP 

.MP 



H 10 

' :43:,r9 pAoE 



S£0 0124 



001543 
001544 
DC 14 34 



1: 

2»: 

31: 



•?4.l^f S'N 

PC.TSTPRP 
040000 



'3S 

p:.getsts 

#N0P.«)2 
3t 



3$ 



.-.SET TfST NLfCEP IN APT MAIL BOX 

.'PREPARE DEVICE FOR TEST 

;TASK DESCRIPTOR AS FOLLOWS: 

.•CLEAR CONTROLLER t SELECT DEVICE 

;G0 TO 1$ IF NO ERROR 

.•RETURN HERE IF ERROR 

; ERROR * DEFINED Br TSTPRP SUBROUTINE 

;G0 TO 13$ IF ERROR 

i 

; SETUP FOR sVaTuS 



GO ISSUE CONTROLLER CLEAR 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERPOR NUMBER DEFINED BY SUBROUTINE 

GO TO 15$ IF ERROR 



DIA-jNOSTIC mode and DIAGNOSTIC UNIT READY. DIAGNOSTIC ON 
INDER. AND DIAGNOSTIC WRITE LOCK 

SETUP PUT INDEX TABLE 



001543 
001544 
001454 



41: 



M0V8 
M0V8 
MOV 

jSR 

BR 

NOP 

EMT 

jMP 

MO;Q 

MCV 

^SR 

BR 

NOP 

EM' 

jMP 



#R«MR1.PUTINX 
*200,PUTINX*1 
#DMD.RMMR10 

PC. PUT 
4S 



13S 

#RMMR1.PUTINX 
#200.PUTINX-»1 

#dmd.mur:moc.'mwp 

PC. PUT 
5$ 



15$ 



SET TERMINATOR BYTE 
SET RMMR1 OUTPUT BUFFER DMD 
GO WRITE RMMR1 VIA PUT SUBROUTINE 
GO TO 4$ IF NO ERROR 
RETl^N HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 13$ IF ERROR 

SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

RMMR10 .-SET RMMR1 OUTPUT BUFFER 

GO WRITE RMMRl VIA PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 13$ IF ERROR 



DMD'MUR.MOC.MWP 



;3ET .-O.UME JALlD BEFORE ISSUING FUNCTION CODE BEING TESTED 



1-52 


024660 




000000 


001543 


M0V8 


#RMCS1.PUTINX 


.-SETUP PUT INDEX TABLE 




024666 


112737 


000200 


001544 


M0V8 


#200.PUTINX»1 


.-SET TERMINATOR BYTE 




024674 


012737 


000023 


00''4'C 


MOV 


#PAK^CIC.G0,RMCS10 .-SET RMCS1 OUTPUT BUFFER 




024702 


004737 


043160 




.SR 


PC.P-T 


.•GO WRITE RMCS1 VIA PUT SUBROUTINE 




024706 


000404 






BR 


6$ 


;G0 TO 6$ IF NO ERROR 




024710 


000240 






SOP 




.•RETURN HERE IF ERROR 




024712 


104000 






EM7 




; ERROR DEFINED BY PUT SUBROUTINE 




024 7U 


000157 


025250 




JMP 


13$ 


;G0 TO 13$ IF ERROR 


1153 


024720 






6$; 








1154 


024720 


012757 


000001 


OOU10 


MOrf 


#G0.RMCS10 




1135 


024726 


050257 


001410 




813 


R2.RMCS10 


.•WRITE FUNCTION CODE IN BUFFER 


1156 


024752 


012737 


103274 


C014'4 


MO; 


*8UF0NE.RMBA0 


.'DUMMY BUS ADDRESS 


1137 


024740 


012757 


M1777 


001412 


MOV 


#-1,RMWC0 


.•DUMMY WORD COUNT 




024746 


005057 


001416 




ClR 


RMDAO 


.'CLEAR DISK ADDRESS 


•M9 


(.24752 


005037 


C01444 




CLR 


RMDCO 


.'CLEAR CYL INDER ADDRESS 



PAKACK.GO 



wRI'E LOCK E!»POR 



'HS 

"47 
"•48 
"49 



M50 



n53 
1154 



155 
156 
157 
158 
159 
160 
161 
16? 
163 
16« 
165 
166 
167 
'68 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 

'80 



024756 
024764 
024770 
024774 
025000 
025004 
025010 
025014 
025020 
025024 
025030 
025032 
025034 
025036 
025042 

025046 
025052 
025054 
C25056 
025060 
025064 
025064 
025070 
025072 
025074 
025076 
025100 
025104 
025112 
025120 
025126 
025134 
025142 
025144 
025146 
025150 
025156 
025164 
025166 
025174 
C25202 
025210 
025216 
025224 
025226 
025230 
025232 
025236 
025242 
025244 
025250 



012737 
012703 
1'2723 
112723 
112723 
112723 
112723 
112723 
112713 
004737 
000404 
000240 
104000 
000137 
004737 

004737 
000404 
000240 
-.04000 
000137 

004737 
000405 
000240 
104000 
004736 
000137 
016237 
042737 
013737 
042757 
023737 
001402 
104220 
000440 
016237 
032737 
001403 
052737 
042737 
013737 
042737 
023737 
001402 
104255 
000407 
062702 
022702 
103402 
000137 



T£Si 

01000c 
C01545 
000004 
000002 
000032 
000006 
000034 
000000 
000200 
04316C 



025250 
043522 

0«.2''0 



02525C 
043706 



025250 
0671 36 
173777 

001350 
173777 
001 UO 



0671 56 
040000 

100000 
Q77777 
001346 
077777 
001140 



000002 
000076 

024542 



'I: 



6S: 



00' 140 ^t: 
001140 

001142 
001 U2 
001 U2 



001140 '; 

001 546 



001 '40 
001140 
001142 
001142 
001142 



"t: 



•31: 



*10v 
M0>^8 
*I0V8 
MO 1/8 

W0;B 

1^0 1/8 

jS« 

BP 

NOP 

FMT 

jNIP 

.SB 
9ft 
NOP 
E«T 

.Sft 
Bft 
NOP 
EMT 

^SR 
Jf*P 
MOV 
8K 
MOV 
SIC 
CMP 

eEc 

EMT 

BR 

MOi^ 

er 

BEO 
8JS 
8K 
MOV 

eic 

CMP 

8fQ 

EWT 

8R 

ADD 

CMP 

BLO 

JMP 



.••^E^' 35 



..-'5?50 



:43.v8 



1 

PA&t 
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#f r'i6.RM0f V 
#PlT JNK.R5 
#RM8A,(R3)» 

#rmwc.(R5j* 

tRM0F,(R3)* 

#RMDA,(R3)* 

»RMDC.(R3J» 

#R«CS1.(R3)» 

#200.<'R5) 

PC, PUT 

7$ 



131 

PC. MMOUT 



;lt BIT fORMAl 

;WRITf RfcGISTfR INDU r/yfeif 



OC.GET 
8$ 



13$ 

PC.PRIERR 
9t 



GO WRITE REGISTER(S) WITH PUT SueROuTlNE 

GO TO 7S If NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SueROUTlNE 

GO TO 13$ IF ERROR 

WAIT FOR GO TO RESET 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 13$ IF ERROR 

60 CHECK FOR PRIMARY ERRORS 
60 TO 9$ IF NO PRROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY PR I ERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 13$ IF ERROR 

;GET ENTRY FROM FUNCTION CODE TABLE 



PC.afSP)* 
13$ 

FNCDTB(R2).$GDDAT 
#*CWLE.$GDDAT 
RMER1I,$8DDAT ;8AD DATA FOR TYPEOUF 
♦•CWLE .$8DDAT 

$GDDAT.$6DDAT ;I5 WLE STATUS CORRECT? 

10$ ;YES:.' 

220 

13$ 

•NCDTB(R2).$GDDAT 



fERR.RMDSI 
11$ 

*ATA.$GDDAT 

**CATA.$GDDAT 

RMDSI.$8DDAT 

**CATA,$8DDAT 

$6DDAT.$BDDAT 

12$ 

255 

13$ 

*?.R2 

#ILF76.R2 

13$ 

2$ 



WAS AN ERROR DETECTED?? 
no: . \ 

YES - AFA SHOULD BE ON 

;GFT DRWE'S ATTENTION 

;IS ATA SFATjS OK?' 
;YES. ! 



GO TO NEXT FUNCTION CODE 

DONE?? 

YES .. 

TEST NEXT FUNCTION 



ERROR ABORT ^ESTS 



, f«»»OR A80BT TES^S 

025250 000004 SCOPE 

025252 000240 MOP 

025254 012706 00'".:^ HOV 

025260 013700 00^276 MOV 

025264 013701 00U64 tV)J 

025270 012737 000035 CC'2^t nOy 

'■"81 

''i2 025276 004737 04^650 .'SR 

025302 054130 -wORD 



M83 
^'84 

ns5 



025304 
025306 
025310 
025312 
C25316 



000404 
000240 
104000 
0001 37 



025602 



BR 
HOP 



.■SETUP GET IND 



025316 


004737 


042624 






JSR 


1186 025322 


012702 


000000 






»10\. 


1*87 025326 








2t: 




1188 025326 


004737 


052264 






JSR 


025332 


000404 








BR 


025334 


000240 








NOP 


025336 


104000 








E«T 


025340 


000137 


025602 






.«1P 


n89 025344 








1%: 




M90 025344 


1127^7 


000014 


001543 






025352 


112737 


000200 


001544 






025360 


012737 


040000 


001424 




"10V 


025366 


004737 


043160 






JSR 


025372 


000404 








BR 


025374 


000240 








NOP 


025376 


104000 










025400 


000137 


025602 






J"1P 


1191 025404 








At: 




1192 025404 


012737 
050237 


000001 


OOUiO 




MOV 


1193 025412 


001410 






BIS 


1194 025416 


012737 


103274 


OOUU 




MOV 


1195 025424 


012737 


}77777 


001412 




MOV 


1196 025432 


012737 


000000 


001416 




MCV 


1197 025440 


012737 


000000 


001444 




MOV 


1198 025446 


012737 


010000 


001442 




MOV 


'199 025454 


012703 


001543 






MOV 


1200 025460 


112723 


000004 






wove 


1201 025464 


112723 


000002 






M0V8 


1202 025470 


112723 


000032 






M0V8 


1203 025474 


112723 


000006 






Move 


1204 025500 


112723 


000034 






Mo;e 


1205 025504 


112723 


000000 






Move 


1206 025510 


112713 


000200 






MCi^e 


^207 0255/4 


004737 


043160 






JSR 


025520 


000402 








BR 



J 10 
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#STACK.SP 
S8ASE ,R0 
^STQUE.RI 
#35.fTESTN 

PC.TSTPRP 
054' 30 



9f 



SCOPE CALL 

START Of TEST 

INITIALIZE STACK POINTER 

RO = UN I BUS ADDRESS 

(RD = DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT MAIL 



BOX 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOILOWS: 

CLEAR CONTROLLER I SELfCT DEVICE 

VERIFr CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFr PACK ACKNOWLEDGE 

RECALIBRATE IF "SKr" OR "PIP"" IS SET 

VERIFY RECALI8RATI0N 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 9$ IF ERROR 



X TABLE TO READ 
PC.GETS^S 
#N0P.R2 

PC.CNTCLR 
3$ 



9$ 

#RMER1.PUTINX 
#200.PUTINX*1 
/ruNS.RMERIO 

PC, PUT 
4t 



91 

*G0.RMCS10 

R2.RMCS10 

*8UF0N£,RM8A0 

#-1.RMWC0 

#0.RMDAO 

lfQ.m>iO 

4fFMT16.RM0F0 

#PUTINX,R3 

#R)iaA,(R3)* 

#RMWC. (R3)* 

#RM0F,(R3)* 

*RMDA. (R3)* 

*RMDC. (R3)* 

#RMCS1 .(R3;» 

#200. (R^) 

PC.PJT 

5$ 



ALL REGISTERS 
;60 TO GETSTS SUBROUTINE 
:R2 = FUNCTION CODE 

GO ISSUE CONTROLLER CLEAR 
GO TO 3$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BV CNTCLR SUBROUTINE 
GO TO 9$ IF ERROR 

SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 
SET RMER1 OUTPUT BUFFER = UNS 
GO WRITE RMER1 VIA PUl SUBROUTINE 
GO ^0 4$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
60 TO 9$ IF ERROR 



WRITE FUNCTION CODE IN BUFFER 
DUMMY BUS ADDRESS 
DJMMY WORD COUNT 
CLEAR DISK ADDRESS 
CLEAR CYLINDER ADDRESS 
16 BIT FORMAT 



'..•RITE REGISTER INDEX TABLE 



;G0 
.•GO 



WRITE 
TO 5S 



RE6ISTER(S) 
IF NO ERROR 



WITH PUT SUBROUTINE 



^3S t««<OR A80RT TES^i 



1?08 
^209 
1210 

1212 



1213 
VU 



1215 
1216 
1217 
'2^8 
1219 
1220 
1221 
1222 



02^522 
025S2A 
025526 



000240 
10<iOOO 



025526 004737 



025532 
025536 
0255A0 
0255A2 
02554A 
025550 
025550 
02555A 
025556 
025560 
025562 
025564 
C25570 
025570 
025570 
02557A 
02S600 
025602 



025602 
025602 
025604 
025606 
025612 
025616 
025622 

1223 

1224 025630 
025634 

025636 
C25640 
025642 
025644 

1225 025650 
1226 

1227 

025650 
'228 025654 
1229 025654 
025662 
025670 
025676 
025702 
025704 
025706 



004737 
000404 
000240 
104000 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



062702 
022702 
103252 



000004 
000240 
012706 
013700 
013701 
012737 

004757 
040000 

000404 
000240 
104000 
000137 



112737 
112737 
012737 
004757 
00040<. 
000240 
1040C0 
000137 



0-.352' 

0427^0 

025602 
043706 

025602 



000002 
000076 



001100 
001276 
001464 
000036 

041650 



026242 



004737 C42624 



000024 
000200 
000001 
043160 



026242 



MACRO V04.00 



5» 



K 10 
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SEO 0127 



MOP 



;*a:t fOR COMMAND TO COMPLETE 



6$: 



7S; 
8$: 



9$: 



JSR 
BR 

Em 

jMP 

BR 

WP 

EWT 

-MP 



ADD 
CMP 
BHIS 



PCTIMOUT 

PC. GET 
6S 



9S 

PCPRIERR 
7$ 



Pw.SfSP)* 
9$ 



*2,R2 

*JLF76.R2 

2$ 



.•RETURN HERE If ERROR 

;ERROR # DEFINED BV PUT SUBROUTINE 



;G0 TO TIMOUT SL^ROUTINE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 9S IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 



ADVANCE FUNCTION CODE 
DONE ALL COMMANDS 

NO 



•TEST 36 



RMR TEST 



ST36: 



001226 



SCOPE 




•SCOPE CALL 


NOP 




■START OF TEST 


MOV 


#STACK.SP 


•INITIALIZE STACK POINTER 


MOV 


SQASE.RO 


•RO = UNIBUS ADDRESS 


MOV 


TST0UE.R1 


•(Rl) = DEVICE BEING 'ESTED 


MOV 


*56.fTESTN 


•;SET TEST NUMBER IN APT MAIL BOX 


JSR 


PC.TSTPRP 


•PREPARE DEVICE FOR TEST 


.WORD 


040000 


•TASK DESCRIPTOR AS FOLLOWS: 






•CLEAR CONTROLLER 6 SELECT DEVICE 


BR 


IS 


•GO TO 1$ IF NO ERROR 


NOP 




•RETURN HERE IF ERROR 


EMT 




•ERROR * DEFINED BY TSTPRP SUBROUTINE 


JMP 


"1$ 


•GO TO lit IF ERROR 



$: 

;SETJP GET INDEX TABLE TO READ ALL RE"!*^TERS 



001545 
001544 
001434 



2»: 



JSR 

M0V8 
M0V8 
MOV 

;SR 
BR 
NOP 

JMP 



PC.GETSTS 

#RMMR1.PUTINX 

*200,PUTINX*1 

<rDMD.RWRlO 

PC.PUT 

3$ 



IS 



;G0 



oETSTS SUBROUTINE 



UT INDEX TABLE 
i>L' t^INATOR BYTE 
SET KitlRl OUTPUT BUFFER - DMD 
GO WRITE RMMR1 VIA PUT SUBROUTINE 
GO TO 3S IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUMNE 
GO TO nS IF ERROR 



C2RMMB0 fCTNL 
T?6 TEST 



V3C 
^231 



1236 
1238 



1239 
12A0 



'2A1 
'242 



'243 
VA4 



0257K 

0257U 

025722 

025730 

025736 

025742" 

025 7A4 

025746 

025750 

025754 

025754 

025762 

025770 

025776 

026002 

026004 

026006 

026010 

026014 

C26014 

026020 

026022 

026024 

026026 

026032 

026032 

026034 

026042 

026050 

026056 

026062 

026064 

026066 

026070 

026074 

026074 

026102 

026110 

026116 

026122 

026124 

C26126 

026130 

026134 

026134 

026142 

026150 

026156 

026162 

026164 

026166 

026170 

026174 

026174 

026200 

026202 

026204 



112737 
112737 
012737 
C04737 
000404 
000240 
104000 
000137 

112737 
112737 
012737 
004737 
000404 
000240 
104000 
000137 

004737 
000404 
000240 
104000 
000137 

000240 
112737 
112737 
012737 
004737 
000404 
000240 
104000 
000137 

112737 
112737 
012757 
004737 
000404 
000240 
'04000 
000137 

112737 
112737 
012737 
004737 
000404 
000240 
104000 
000137 

004737 
000404 
000240 
104000 



'ST ' 



C00024 
000200 
001401 
043160 



026242 

000000 
000200 
000023 
043160 



026242 
042710 

026242 



000024 
000200 
041401 
043160 



026242 

000000 
000200 
000001 
043160 



026242 

000000 
000200 
000015 
043160 



026242 
042710 



*iAc«c V04.00 i-ivp'j-a' 



001543 
00^544 
00H34 



001543 
00*544 
0014^0 



4$: 



00*543 
00^544 
00H34 



00^543 
001544 
0014^0 



7f ; 



001545 
001 544 
001410 



8$: 



M0V8 

•^0V8 

•^OV 

JS« 

BR 

MOP 

EMT 

JMP 

^CV 
-SP 
8R 
NOP 

-MP 

-Sf» 

8R 

MOP 

EMT 

jMP 

NOP 

M0V8 

I>10V8 

"lOV 

JSR 

BP 

NOP 

EMT 

JMP 

M0V8 

"10 V8 

MOV 

^SR 

8R 

NOP 

EMT 

jMP 

M0V8 

M0V8 

MOV 

JSR 

BR 

NOP 

EMT 

JMP 

JSR 
BR 
NOP 
EMT 
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SEO 0128 



tRMMftl .PUTINX ; SETUP PUT INDEX TA8LE 
•200.PUTINXO ;SET TERMINATOR BVTE 
#DMD.MUR:M0C.RMMR10 .-set f<MMR1 OUTPUT BUFFER 



PC. PUT 
4$ 



11$ 



GO WRITE RMMR1 VIA PUT SUBROUTINE 
GO TO 4$ IF NO ERROR 
RtTURN HERE IF ERROR 
ERROR DEFINED BV PUT SUBROUTINE 
GO TO 11$ IF ERROR 



OMO MUR.'MOC 



#RMCS1 .PUTINX .-SETUP PUT INDEX TA8LE 
t200.PUTINX*1 ;SET TERMINATOR BVTE 

#PAKAC»C.G0,RMCS10 ;SET RMCS1 OUTPUT BUFFER - PAMCICGO 



PC. PUT 
5$ 



11$ 

PC. GET 
6$ 



r$ 



GO WRITE RMCS1 VIA PUT SUBROUTINE 
GO TO 5$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 11$ IF ERROR 

GO RFAD REGISTER(S) WITH GET SUBROUTINE 

GO TO ^$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR xr DEFINED BY GET SLBROUTINE 

GO TO 11$ IF ERROR 



#RMMR1 .PUTINX .-SETUP PUT INDEX TA8LE 
#200. PUT! NX* 1 ;SET TERMINATOR BYTE 

#DMDfMUR:M0C!D8EN.RMMR10 ;SET RMMR1 OUTPUT BUFFER 



PC .PUT 
7$ 



11$ 



#RMCSl,PUTiNX 

#200.PUTINX*1 

#N0P.*G0.RMCS10 

PC. PUT 

8$ 



11$ 



GO WRITE RMMR1 VIA PUT SUBROUTINE 
GO TO 7$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 11$ IF ERROR 

SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SFT RMCS1 OUTPUT BUFFER - NOP. GO 

GO WRITE RMCS1 VIA PtjT SUBROUTINE 

60 TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 11$ IF ERROR 



DMD.MURIMOC'OefN 



#RMCS1. PUTINX .-SETUP PUT INDEX TABLE 
#200.PUTINX*1 .-SET TERMINATOR BYTE 

#0FF5ET!GO.RMCS1O ;SET RMCS1 OUTPUT BUFFER = OFFSETIGO 



PC. PUT 
9$ 



11$ 

PC, GET 
10$ 



GO WRITE RMCSl VIA PUT SUBROUTINE 
GO TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 11$ IF ERROR 

GO READ REGISTERCS) WITH GET SUBROUTINE 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 



:2RITB0 
T?6 



1248 
1249 
1250 

1252 
125? 
1254 



RM05/3/2 
R«R TEST 

026206 
02621? 
026212 
026214 
026222 
026224 
0262B2 
026240 
026242 



rCTNL TST 1 MACHO V04.C0 4-APR-81 



0001^7 02624? 



000240 
032737 
001007 
012737 
013737 
104222 



10$: 



^26242 
0^6242 
026244 
026246 
026252 
026256 
026262 

1255 

1256 026270 
026274 

026276 
026300 
026302 
026304 

1257 026310 

1258 026310 

1259 026314 

1260 026314 
026320 
026322 
026324 
026326 

1261 026332 

1262 026332 

1263 026334 

1264 026340 

1265 026344 

1266 026350 

1267 026354 

1268 026360 

1269 026364 

1270 026370 
1271 

1272 026374 
026400 
026402 
026404 

1273 026406 

1274 026406 
026412 
026414 
026416 
026420 



000004 001350 



000004 
001350 



001140 
001 U2 



000004 
000240 
012706 
01 3700 
013701 
012737 

004737 
040000 

000404 
000240 
104000 
000137 

012702 

004737 
000404 
000240 
104000 
000137 

111103 
042703 
052703 
010337 
010237 
012703 
112723 
112723 
112723 

004737 
000402 
000240 
104000 

004737 
000404 
000240 
104000 
000137 



001100 
001276 
001464 
000037 

041650 



026462 
000001 
052264 

026462 



1 77770 
000020 
001420 
001416 
001 543 
000010 
000006 
000200 

043160 



042710 



02C462 



11$: 



TST37: 



001226 



^$: 
2$: 



3$; 



4$: 



JMP 

NOP 
BIT 
BNE 
MOV 
MOV 
6MT 



;»TEST 57 



SCOPE 

MOP 

MOV 

MOV 

MOV 

MOV 

JSR 
.WORD 

BR 
NOP 
EMT 
JMP 

MOV 

JSR 

BR 

NOP 

EMT 

JMP 

M0V8 

BIC 

BIS 

MOV 

MOV 

MOV 

M0V8 

M0V8 

M0V8 

JSR 
BR 
NOP 
EMT 

JSR 

BR 

NOP 

EMT 

^MP 
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r$ 



;G0 TO 11$ \f ERROR 



#RMR.RMER11 
11$ 

#RMR.$GDDAT 
RMER1I.$8DDAT 

222 



IS RMR SET ?? 

i^ES i! 

EXPECTED STATUS 
RECEIVED STATUS 



PARITY ERROR TEST 



#STAC<.SP 
$8ASE.R0 
TSTQUE.R1 
#37.$TESTN 

PC.TSTPRP 
040000 

1$ 
7$ 

#1,R2 

PC.CNTCLR 
3$ 

7$ 

{R1).R3 

**CUNTMSK,R3 

#PAT,R3 

R3.RMCS20 

R2,RMDA0 

#PUTINX,R3 

#RMCS2.{R5)* 

#RMDA.(R3)* 

#200, (R3)* 

PC ,PUT 



PC. GET 
5$ 



7$ 



SCOPE CALL 

START OP TEST 

INITIALIZE STAC< POINTER 

RO - UNI8US ADDRESS 

(Rl) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER & SELECT DEVICE 
GO TO 1$ IF NO ERROR 

•RETURN HERE IF ERROR 

;ERROR # DEFINED BV TSTPRP SUBROUTIfJE 

;G0 TO. 7$ IF ERROR 

:R2 = DATA PATTERN 

;60 ISSUE CONTROLLER CLEAR 

;G0 TO 3$ IF NO ERROR 

; RE TURN HERE IF ERROR 

; ERROR * DEFINED BY CNTCLR SUBROUTINE 

;G0 TO 7$ IF ERROR 

: SETUP RMCS2 



OUTPUT VALUE TO RMCS2 
VALUE TO RMDA 

WRITE REGISTER OUTPUT INDEX 



60 WRITE RE6IS^ER(S) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 7$ IF ERROR 



^ZRIWO RM05/3/2 FCTNL TS7 1 »1AC«0 vO^.OO 4.-APP-81 
PARI TV ERROR TEST 

^275 02642A • 5$: 

1276 02642A 032737 C00010 001350 BIT 

1277 026A32 001011 BNE 

1278 026434 012737 000010 001 KO WV 

1279 026AA2 013737 001350 001 U2 MOV 

1280 026450 010237 001174 MOV 

1281 026454 104223 EMT 

1282 026456 6$: 

1283 026456 006302 ASL 

1284 026460 001315 BNE 

1285 026462 7$: 
1236 

1287 ;; 

.••TEST 40 



026462 TST40: 

026462 000004 SCOPE 

026464 000240 NOP 

026466 012706 001100 MOV 

026472 013700 001 276 MOV 

026476 013701 001464 MOV 

026502 012737 000040 001226 MOV 

1288 

'289 026510 004737 041650 JSR 

026514 040000 .WORD 

026516 000404 BR 

026520 000240 NOP 

026522 104000 EMT 

026524 000137 027010 JMP 

1290 026530 1$: 

1291 026530 005005 CLR 

1292 026532 004737 042624 JSR 

1293 026536 013746 000004 - MOV 

1294 026542 013?46 000006 MOV 

1295 026546 012737 027006 000004 MOV 

1296 026554 012737 000300 000006 MOV 

1297 026562 005002 CLR 

1298 026564 ?$• 

1299 026564 004737 052264 JSR 
026570 000404 BR 
026572 OOO^-tO NOP 
026574 104000 > EMT 
026576 000137 026722 JMP 

1300 026602 010003 31: MOV 

1301 026604 060203 ADD 

1302 026606 005013 CLR 

1303 026610 004737 050612 JSR 
026614 000404 BR 
026616 000240 NOP 
026620 104000 EMT 
026622 000137 027010 JMP 

M04 026626 4S: 

1305 026626 004737 042710 JSR 

026632 000404 BR 

D:6634 000240 NOP 

:?6t)36 104^500 EMT 
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SEO 0130 



#PAR.RMER1 I 
6$ 

*PAR.$6DDAT 
RMER1I,$BDDAT 
R2,$TMP0 
225 

R2 
2S 



IS PARITY ERROR SET ?? 
YES !; 

EXPECTED STATUS 
RECEIVED STATUS 
DATA PATTERN 



.-ADVANCE DATA PATTERN 
.■BRANCH IF NOT DONE 



ILLEGAL REGISTER TEST 



*STACtC.SP 
SBASE.RO 
TSTOUE.Rl 
#40.$TESTN 

PC.TSTPRP 
040000 

1$ 



10$ 

R5 

PC.GETSTS 

ERRVEC.-(SP) 

ERRVEC+2.-(SP) 

#9$.ERRVEC 

#PR6.ERRVEC*2 

R2 

PCCNTCLR 
3$ 



7% 

R0.R3 
R2,R3 

(R3) 

PCDEVSEL 
4$ 



lOS 

PC. GET 
5S 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO - UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER I SELECT DEVICE 

GO TO IS IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 10$ IF ERROR 

R5 = EXPECTED STATUS 
SETUP FOR STATUS 
.•PUSH ERRVEC ON STACK 

;;PUSH ERRV€C+2 ON STACK 
.•SETUP FOR BUS TIMEOUT 

;R2 - REGISTER INDEX 

GO ISSUE CONTROLLER CLEAR 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR NUMBER DEFINED BY SUBROUTINE 

GO TO 7$ IF ERROR 

R3 = REGISTER ADDRESS 

CLEAR THE REGISTER 

GO SELECT DEVICE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DEVSEL SUBROUTINE 

GO TO 10$ IF ERROR 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ♦ DEFINED BY GET SU&ROuTINE 



REGISTER TEST 



?07 



?08 
?0<5 
310 
511 
312 
515 
3U 
336 
337 
338 
539 
340 
541 
542 
343 
544 
34 S 
346 
347 
348 
349 
550 
551 
5V 
555 

554 
55S 



C 26640 
026644 
026644 
026650 
026652 

026656 
026660 
026664 
026670 
026676 
026704 
026712 
026714 
026720 
026722 
026726 
026732 
026754 
G26756 
026742 
026750 
026754 
026760 
026764 
026770 
026772 
026776 
027002 
027004 

027006 
027010 
027010 
027014 



000^5/ 

004737 
000405 
000240 
104000 
004756 
000^.37 
010557 
013737 
042757 
025737 
001405 
010237 
104256 
062702 
022702 
101514 
105420 
012705 
012760 
012702 
016005 
042703 
022705 
001402 
012702 
022702 
101402 
000667 

022626 

012637 
012637 



02t>72? 
043706 



026722 
001140 
001350 
177775 
00.1140 

001174 

000002 
000050 



0C0002 
001400 
000054 
000050 
177774 
000003 

000050 
000074 



000006 
000004 



•1ACR0 V04.00 4-APR-81 



5S: 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

64: MOV 
001142 MOV 
001142 BIC 
001142 CMP 
BEO 
MOV 
EMT 

71: ADD 
CMP 
BHI 
BLO 
MOV 

000000 MOV 
MOV 
MOV 
BIC 
CMP 
BEQ 
MOV 

8$ : CMP 
BLOS 
BR 



9$: 
10$: 



CMP 

MOV 
MOV 



;*TEST 41 





027020 








TST41: 






027020 


000004 








SCOPE 




027022 


000240 








NOP 




027024 


012706 


001100 






MOV 




027030 


013700 


001276 






MOV 




027034 


013701 


001464 






MOV 




027040 


012737 


000001 


001206 




MOV 




027046 


012737 


000041 


001226 




MOV 


1357 














1358 


027054 








1$: 




1359 


0270^4 


004737 


041650 






JSR 




027060 


054130 








.WORD 
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7S 



;G0 TO IF lRRCR 



PC.PRIERR ;G0 CHECK FOR PRlMARr ERRORS 

6S :G0 TO 6S IF NO ERROR 

.■RETURN HERE IF ERROR 
.-ERROR # DEFINED Br PRIERR SUBROUTINF 
;G0 BACK FOR MORE ERROF^ CHECKS 
;G0 TO 7$ IF ERROR 

.-GET DRIVE'S IlR STATUS 

;IS ILR STATUS OK?? 
.YES. ! 

.SAVE R2 FOR ERROR DATA 

.INCREMENT THE REGISTER ADDRESS 
.TIME TO CHECK THE EXTEND ADDRESS REG 
.-BRANCH IF NOT 
.-BRANCH IF ALREADV SET uP 
.-EXCEPT ILR HAPPEND 
(RO) .-SET EXTENDED ADDRESS BITS 

.-SET ADDRESS TO 54. IF 22 REGISTERS 
.-IS THIS 22 REG RH70 ? 
.•LEFT ONLV BIT 0 AND BIT 1 
.-BIT 0 AND BIT 1 SET AT THE SAME TIME 
.-BRANCH IF SO 

.-OTHERWISE. SET ADDRESS TO 50 
.-ALL REGISTERS CHECKED ? 
.-BRANCH IF SO 
.-NEXT REGI-^TER 



pc.a(SP)» 
7$ 

R5,$GDDAT 

rm:rii.$8ddat 
#*cilr.$6ddat 

SGDDAT.SBDDAT 
7$ 

R2.$TMP0 
256 
#2.R2 
•50.R2 
2$ 
8$ 

#ILR.R5 
#A16!A17.RMCS1 
*54.R2 
50(RO).R3 
#1 77774. R3 
*8IT0!BlTt,R3 
8S 

*50.R2 
*74,R2 
10$ 
2$ 

(SP)*.(SP>* 

(SP)*,EftRVEC*2 
{SP)*.ERRVEC 



.-.-POP STACK INTO ERRVEC*2 
;POP STACK INTO C^RVEC 



SEEK FIRST CYLINDER 



#STACK.SP 

SSASE.RO 

TSTOUE.RI 

ff1,$riMES 

#41,$TESTN 



SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 
RO = UNI8US ADDRESS 
(Rl) = DEVICE BEING TESTED 
;D0 1 ITERATION 

;SET TEST NUTBER IN APT MAIL BOX 



PC.TSTPRP 
054150 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER £ SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACK.»JOWLEDGE IF VOLUME NOT VALlt. 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SE' 
VERIFY RECALI8RATI0N 



.'^rweC t<rtOS/5/2 FCTNL TST 1 WRO VW.OO 4-APR-81 

SEE< fIRST CYLINDER 





027062 


000404 








BR 




027064 


000240 








NOP 




027066 


104000 








EMT 




027070 


000137 


027306 






JMP 




027074 








2$: 




i%1 


027074 


012757 


000000 


00H44 




MOV 


M62 


027102 


012757 


000000 


001416 




MOV 


^365 


027110 


012737 


000005 


001410 




MOV 


1364 


027116 


012702 


001543 






MOV 


1565 


02712? 


112722 


000034 






MOVB 


1566 


027126 


112722 


000006 






M0V8 


15o7 


027132 


112722 


000000 






M0V8 


1368 


0271 36 


112722 


000200 






MGV8 


1569 


027142 


004737 


043160 






JSR 




027146 


000404 








BR 




027150 


000240 








NOP 




027152 


104000 








EMT 




027154 


000137 


027306 






JMP 


1370 


027160 


00'.737 


042624 




3$: 


JSR 


1371 


C27164 


004737 


043522 






JSR 


1372 














1373 


027170 


004737 


042710 






JSR 




027174 


000404 








BR 




027176 


000240 








NOF 




027200 


104000 








EMT 




027202 


000157 


027306 






uMP 


1374 


027206 








4S: 




1575 


027206 


004737 


043706 






JSR 




027212 


000405 








BR 




027214 


000240 








NOP 




027216 


104000 








EMT 




027220 


004 736 








JSR 




027222 


000137 


027306 






JMP 


1376 


027226 








5$: 




1577 


027226 


004737 


051024 






JSR 




027232 


000405 








BR 




027234 


000240 








NOP 




027256 


104000 








EMT 




027240 


004736 








JSR 




027242 


000137 


027506 






JMP 


1378 


027246 








6t: 




1579 


027246 


004737 


050400 






JSR 




0272S2 


115760 








• WORD 




027254 


000010 








.WORD 




027256 


000405 








BR 




027260 


000240 








NOP 




027262 


104000 








EMT 




027264 


004736 








JSR 




027266 


000137 


027506 






JMP 


1380 


027272 








7$: 




1381 


027272 


004737 


044540 






JSR 




027276 


000403 








BR 




027300 


000240 








NOP 




027502 


104000 








EMT 




027504 


004756 








JSR 



'582 027506 8$: 
M83 
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SEO 015. 



2S 



8$ 

#0. .RMDCO 

/rO.RMPAO 

*SEEK.G0,RMCS10 

*PUTINX.R2 

#R,'^DC.(R2) + 

*RMDA. (R2)+ 

#RMCS1.(R2)* 

#200. (R2)* 

PC. PUT 

3$ 



8$ 

PC.GETSTS 
PC.TIMOUT 

PC. GET 
4$ 



8S 

PC.PRIERR 
5$ 



PC.a(SP)* 
8S 

PC.SEKSTS 
6$ 



pc.a(SP)* 

8$ 

PC.CMPERRSTS 

NDTMSK 

DPE 

7$ 



pc.a(SP)* 

8$ 

PC.StCERR 
8S 



pc.acsp)* 



GO TO 2$ IF NO ERHOR 

RETURN HERE IF ERROR 

ERROR » DEFINED Bv TSTPRP SUBROUTINE 

GO TO 8S IF ERROR 

CYLINDER = 0 

TRACK = 0. SECTOR = 0 

LOAD SEEK COMMAND IN BUFFER 

R2 POINTS TO REGISTER TABLE 

WRITE REGISTER INDEX TABLE 



WRITE TERMINATOR 

GO WRITE RE6ISTER(S) WITH PU^ SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 8$ IF ERROR 

SETUP FOR STATUS FETCH 

WAIT FOR SEEK TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 8$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8S IF ERROR 

GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ER^OR 

ERROR * DEFINED BY SEKSTS SUBROUTINl 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR n DEFINED BY CMPERRS1 S SJBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 8$ IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

GO TO 8$ F NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR ChE'kS 



CZRIWO RM05/5/2 FCTNL TST 1 HACRO VOA.OO 4-APR-81 
'4? SEEK LAST CYLINDER 



M84 

.■•TEST 42 





027306 








TSr42: 






027306 


000004 








SCOPE 




027310 


000240 








NOP 




027312 


012706 


001100 






MOV 




027316 


01 3700 


001276 






MOV 




027322 


013701 


001464 






MOV 




027326 


012737 


000001 


001206 




MOV 


1335 


027334 


012737 


00QP^2 


001226 




MOV 


1386 


027342 








1$: 




1387 


027342 
027346 


004737 
054130 


041650 






JSR 
.WORD 





027350 


000404 








BR 




027352 


000240 








NOP 




027354 


104000 








EMT 




027356 


000137 


027574 






JMP 


•^88 


027362 








2$: 




1389 


027362 


012737 


001466 


001444 




MOV 


1390 


02/370 


012737 


000000 


001416 




MOV 


1391 


027376 


012737 


??0005 


on4io 




MOV 


1392 


027404 


012702 


001543 






MOV 


1393 


027410 


112722 


000034 






MOVB 


139^ 


027414 


112722 


000006 






M0V8 


1395 


027420 


112722 


000000 






M0V8 


1396 


027424 


112722 


000200 






M0V8 


1397 


027430 


004737 


043160 






JSR 




027434 


000404 








BR 




027436 


000240 








NOP 




027440 


104000 








EMT 




027442 


000137 


027574 






JMP 


1398 


027446 


004737 


042624 




3S: 


JSR 


1399 


027452 


004737 


043522 






JSR 


1400 












1401 


027456 


004737 


042710 






JSR 




027462 


000404 








BR 




027464 


000240 








NOP 




027466 


104000 








EMT 




027470 


000137 


027574 






JMP 


1402 


027474 








4$: 




1403 


027474 


004737 


043706 






JSR 




027500 


000405 








BR 




027502 


000240 








NOP 




027504 


104000 








EMT 




027506 


004736 








JSR 




027510 


000137 


027574 






JMP 


1404 


027514 








f>$: 




HOS 


027514 


004737 


051024 






JSR 




C27520 


000405 








BR 
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SEEK LAST CYLINDER 



♦STACK. SP 

$8ASE.R0 

TSTQUE.R1 

*1.$TIMES 

*42.$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

;D0 1 ITERATION 

;SET TEST NUMBER IN APT MAR BOX 



PC.TSTPRP 
054130 



2$ 



8$ 

*822. .RMDCO 

*O.R«DAO 

♦SEEKJGO.RMCSIO 

♦PUTINX.R2 

#RMDC,(R2)* 

#RMDA.(R2)+ 

/!fRMCS1,(R2)* 

#200.(R2)+ 

DC. PUT 

3$ 



8$ 

PC.GETSTS 
PC.TIMOUT 

PC. GET 
4$ 



8$ 

PC.PRIERR 
5$ 



pcacsp)* 

8$ 

PC.SEKSTS 
6$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR •PlP" lb SET 

VERIFY RECALI8RATI0N 

60 TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY TSTPRP SUBROUTINE 

GO TO 8$ IF ERROR 

LAST CYLINDER 

TRACK = 0. SECTOR 0 

LOAD SEEK COMMAND IN BUFFER 

R2 POINTS TO REGISTER TABLE 

WRITE REGISTER INDEX TABLE 



WRITE TERMINATOR 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 8$ IF ERROR 

SETUP FOR STATUS FETCH 

WAIT FOR SEEK TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 8$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8$ IF ERROR 

;G0 VERIFY RESULTS OF SEEK OPERATION 
;G0 TO 6S IF NO ERROR 



'Z^TBO RMOS/3/2 FCTNL TST 1 MACKO V04.00 4-APR-81 
•i. SEEK LAST CYLINDER 





027522 


000240 








NOP 




027524 


104000 








EMT 




02/526 


004736 








jSR 




027530 


0001 37 


027574 






JW 


U06 


027534 








6$- 




1407 


027534 


004737 


050400 






JSR 




027540 


115760 








.WORD 




027542 


000010 








.WORD 




027544 


000405 








BR 




027546 


000240 








NOP 




027550 


104000 








EMT 




027552 


004736 








JSR 




027554 


000137 


027574 






JW 


U08 


027560 








7$: 




1409 




004737 


044540 






JSR 




027564 


000403 








BR 




027566 


000240 








NOP 




027570 


1 04000 








EMT 




027572 


004736 








JSR 


••410 


C27574 








8$: 




U1 1 
























- ************ 










.••TEST 


43 












■ -*»»••»♦»*»* 




027574 








TST43: 






027574 


000004 








SCOPE 




027576 


000240 








NOP 




027600 


012706 


001100 






MOV 




027604 


013700 


001276 






MOV 




027610 


013701 


001464 






MOV 




027614 


012737 


000002 


001206 




MOV 




027622 


012737 


000043 


001226 




MOV 


1413 














UU 


027630 


012737 


000001 


001444 




MOV 


U15 


027636 








1$: 




U16 


027636 


004737 


041650 






JSR 




027642 


054130 








.WORD 




027644 


000404 








BR 




027646 


000240 








NOP 




C27650 


104000 








EMT 




027652 


000137 


030106 






JMP 


K17 


027656 








2$: 




U18 


027656 


012737 


000000 


001416 




MOV 


K19 


027664 


012737 


000005 


001410 




MOV 


K20 


027672 


012702 


001543 






MOV 


U?1 


027676 


112722 


000034 






M0V8 




027702 


112722 


000006 






M0V8 


U23 


027706 


112722 


000000 






M0V8 


K?4 


0277^2 


'^2722 


000200 






Move 


^4?5 


027716 


004 757 


043160 






JSR 




027722 


000404 








BR 
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PC.a(SP)* 
8$ 

PC.CMPERRSTS 

NDTMSK 

OPE 

7$ 



pc.a(SP)* 

8$ 

PC.SECERR 
8S 



pc.a(SP)* 



RETURN HERE IF ERROR 

ERROR * DEFINED Br SEKSTS SU3R0tjT]Nf 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 7$ IF NO tRROR 

RETURN HERE IF ERROR 

ERROR tt DEFINED BY CMPERRST5 SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 8$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 8S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 



*•***♦*•*••****••*•*•*•**•••••••»•»*•»»»•»••••»••» 



SEEK PRIME CYLINDERS 



ffSTACK.SP 

IBASg'^RO 

TSTQUE.R1 

#2.$TIMES 

#43.$TESTN 

*1 ,RMDlO 

PC.TSTPRP 
054130 



2$ 



9$ 

#0,RMDAO 
#SEEK.G0.RMCS10 
#PUTINX,R2 
#RMDC,(Rt.')* 
*RMDA,(R2)+ 
*RMCS1 .(R2)+ 
*200.(R2)♦ 
PC, PUT 
3$ 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

;D0 2 ITERATIONS 

.-SET TEST NUMBER IN AP^ MAIL BOX 

FIRST CYLINDER - 1 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER £ SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALI8RATF IF "'SKI" OR "PIP" IS SET 

VERIFY RE CALIBRATION 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR tt DEFINED BY TSTPRP SUBROUTINE 

GO TO 9$ IF ERROR 

TRACK - 0, SECTOR = 0 
LOAD SEEK COMMAND IN BUFFER 
R2 POINTS TO REGISTER TABLE 
WRITE REGISTER INDEX TABLE 



WRITE TERMINATOR 

GO WRITE REGISTBR(S) WITH PUT S"J8R0UT;NE 
GO TO 5$ IF NO ERROR 



/^MMBO '<W05/5/2 fCTNL TST 1 
'u< -^EfK PRIME CrilMDERS 



MACRO .^04. 00 4-APR-81 



02772^ 
027726 
027730 
H?6 027734 
'4?7 027734 
•428 027740 
'429 

•430 027744 
027750 
027752 
027754 
027756 
v,51 027762 
•4 52 027762 
027766 
027770 
027772 
02777^, 
027776 
■•435 C30002 
U54 030002 
030006 
030010 
030012 
030014 
030016 

1435 030022 

1436 030022 
030026 
030030 
030032 
030034 
030036 
030040 
030042 

^4 37 030046 
'4?8 030046 
030052 
030054 
030056 
030060 
030062 
1439 030066 
U40 030066 
U41 03007? 
1442 030100 
1445 030102 
1444 030106 
<44S 
'446 



000240 
104000 
000137 

004^57 
004737 

004737 
000404 
000240 
104000 
0001 57 

004737 
000405 
000240 
104000 
004736 
0001 37 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
115760 
000010 
000405 
U00240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
0001 37 

006337 
022737 
103402 
000137 



030106 

042624 
043522 

042710 



030106 
043706 

030106 

051024 

030106 
050400 



030106 
044540 

030106 

001444 
001000 

027636 



3$: 



4$: 



5$: 



6$: 



7t; 



001444 



8S: 



9$: 



NOP 
EMT 
JMP 

JSR 
JSR 

JSR 

BR 

NOP 

EMT 

JMP 

JSR 

BR 

NOP 

EMT 

^SR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

.WORD 

.WORD 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

ASL 
CMP 
BLO 
jMP 



.••TEST 44 



030106 

050106 000004 

030110 000240 

030112 012706 001100 

030116 015700 001276 



TST44: 



SCOPE 
NOP 
MOV 
MO/ 
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9$ 

PC.GETSTS 
PC.TIMOUT 

PC, GET 
4S 



9$ 

PC.PRJEPR 
5$ 



pc.a(sp)* 

9$ 

PC.SEKSTS 
6S 



PC.a(SP)+ 

9$ 

PC.CMPERRSTS 

NDTMSK 

DPE 

7$ 



PC,a(SP)+ 

9S 

PCSECERR 
8$ 



PC.a(SP)* 
9$ 

RMDCO 

*512. .RMDCO 

9S 

IS 



RETURN HERE If ERROR 

ERROR # DEF.INED Br PUT SlWRO'jTlNfc 

GO TO 9S IF ERROR 

SETUP FOR STATUS FETCH 
WAIT FOR SEEK TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINF 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 9$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

FRROR * DEFINED BY SfcKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY CMPFRRSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 9$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BV SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

SHIFT TO NEXT PRIME CYLINDER 
IS THE TEST DONE?'' 
YES. ! 

GO DO NEXT CYLINDER 



••»•*••♦«»•«*♦«»««♦•»»»•»*♦*•••♦*♦••»••»»»♦••»»»»• 



SEEK ZERO DIFFERENCE 



*STACK.SP 
$6ASE.R0 



SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 
RO = UNJ6US ADDRESS 



OM05/5/2 fCTNL TST 1 
'A^ SEEK ZERO DIFFERENCE 



MACRO VGA. 00 A -APR -81 



030122 
030126 

03G1 5A 
03013'* 
030U0 



013701 
012737 



00^757 
054130 



00U6^ 
C00044 



041650 



001226 



1$: 



MOV 
MOV 



JSR 
.WORD 



\ 



030142 


000404 








BR 


030144 


000240 








NOP 


030146 


1 04000 








EMT 


030150 


000137 


030406 






JMP 


1450 030154 








2$: 




i451 030^54 


012703 


000003 






MOV 


1452 030160 


012737 


000000 


001 444 




MOV 


1453 C30166 


012737 


000000 


001416 




MOV 


1454 030174 


012737 


000005 


001410 




MOV 


H55 030202 


012702 


001543 






MOV 


1456 030206 


112722 


000006 






M0V8 


457 0302 i2 


112722 


000034 






M0V8 


H58 030216 


^^2722 


000000 






M0V8 


1459 050222 


11 27<^2 


000200 






M0V8 


1460 030226 








3$: 




1461 030c 26 


00473 


043160 






JSR 


030232 


000404 








BR 


030234 


000240 








NOP 


030236 


104000 








FMT 


0302AO 


0001 37 


030406 






JMP 


1462 030244 


004737 


042624 




4$: 


w»SR 


1463 030250 


004737 


043522 






JSR 


1464 












1465 030254 


004737 


042710 






JSR 


UjU<:oU 


UUU4U4 








BR 


030262 


000240 








NOP 


03026A 


104000 








EMT 


030266 


0001 37 


030406 






JMP 


^466 030272 








5$: 




1467 030272 


004737 


043706 






JSR 


030276 


000405 








BR 


030300 


000240 








NOP 


030302 


104000 








EMT 


030304 


004736 








JSR 


030306 


000137 


030406 






JMP 


1468 030312 








6f: 




'-69 03C312 


004737 


051024 






JSR 


030316 


000405 








BR 


030320 


000240 








NOP 


030322 


104000 








EMT 


030324 


004736 








JSR 


030326 


000137 


030406 






JMP 


•470 030332 








7$: 




•4" 0<0332 
C 30356 


004737 


050400 






JSR 


115760 








.WORD 
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TSTQUE.R1 ;(Ri; = DEVICE BEING TESTED 

*44.$TESTN ;;SET TEST NUMBER IN APT MAR BOX 



PC.TSTFRP 
054'; 30 



2$ 

10$ 

*3,R3 

#0.RMDCO 

#0.RMDAO 

ffSEEKlGO.RMCSIO 

ArPUTINX,R2 

#RMDA.(R2)* 

#RMDC,(R2)+ 

*RMCS1.(R2)+ 

*200.(R2)* 

PC, PUT 
4$ 



10$ 

PC.GETSTS 
PCTIMOUT 

PC. GET 
5$ 



10$ 

PC.PRIERR 
6$ 



pc.a(sp)* 

10$ 

PC.SEKSTS 
7$ 



pc.a(SP)+ 

10$ 

PC.CMPERRSTS* 
NDTMSK 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER ft SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 10$ IF ERROR 

R3 = NUMBER OF SEEKS 

CYLINDER = 0 

TRACK = 0, SECTOR = 0 

FUN'-TION CODE FOR SEEK 

R2 POINTS TO REGISTER INDEX 

WRITE REGISTER INDEX TA8LE 



.•TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 10$ IF ERROR 

St TUP FOR READING STATUS 

WAiT FOR COMPLETION 

GO READ HEGISTERfS) WITH GET SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 10$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 10$ IF ERROR 

GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 10$ IF ERROR 



.•CHECK ANY ERRORS NO" MASKED 
.-MASK FOR RMER1 



f<>K)5M/«? FCTNL TST ' 
'•^A SFE< ZERO DIFFERENCE 



KIACRO V04.00 



K75 
1A78 



0503AO 
0303A2 

050346 
030350 
03035? 
030356 
030356 
030362 
03036A 
030366 
030370 
030372 
030376 
030376 
030400 
030402 
030406 



0000"' 0 
000405 
000240 
104000 
004756 
00C157 

004757 
000405 
000240 
104000 
004736 
000137 

005303 
001402 
0001 37 



030442 
030444 
030446 
030450 

1484 030454 

1485 030454 

1486 030462 

1487 030470 

1488 030476 
K89 030502 
1490 030506 
H91 030512 
'402 050516 
1493 030522 

030526 
050530 
050532 
: 305 34 
• . : 30540 



000404 
000240 
104000 
0001 37 

012737 
012737 
012737 
012702 
112722 
112722 
112722 
112722 
004737 
000404 
000240 
104000 
000137 
004737 



030406 
044540 

030406 
030226 





030406 








030406 


000004 






C50410 


000240 






030412 


012706 


001100 




050416 


013700 


001276 




030422 


013701 


001464 




030426 


012737 


000045 


•481 








1482 


030434 






'485 


C 304 34 


004737 


041650 




030440 


052130 





030666 

001466 
000000 
000005 
001543 
000034 
000006 
000000 
000200 
043160 



030666 
C42624 



8$: 





H 


11 




APR-81 


11:43 li-S PAGE 


15-54 


.WORD 


DPE 




;MASK FOR RMtR2 


on 






;G0 TO 8$ JF NO ERROR 


NOP 






.•RETURN HERE IF ERROR 


EMT 






.•ERROR * DEFINED BY CMPERRSIS SUBROUTINE 


jSR 


PC.i(SP)* 




;G0 BAC< FOR MORE ERROR CHECKS 


JMP 


10$ 




• fin TD inc fc coono 


-SR 


PC.SECERR 




;60 CHECK FOR SECONDARY ERRORS 


on 






;GC TO 9$ IF NO ERROR 


NOP 






.•RETURN HERE IF ERROR 


EMT 






; ERROR * DEFINED BY SECERR SueROOTINF 


JSR 


PC.Si(SP)* 




;G0 BACK FOR MORE ERROR CHECK'S 


JMP 


10$ 




;G0 TO 10$ IF ERROR 


DEC 


R3 




.•DONE ALL SEEKS?? 


BEO 


10$ 




;VESi i 


.MP 


3$ 




;N0 - GO DO NEXT SEEK 



9$: 



10$: 

•TEST 45 SEEK MAXIMUM DIFFERENCE FORWARD 

■rST45: 

SCOPE CALL 



001226 



1$: 



001444 
001416 
001410 



2$: 



SCOPE 
NOP 
MOV 
MOV 
MCV 
MOV 



JSR 
.WORD 



BR 
NOP 
EMT 
JMP 

MOV 

MOV 

MOV 

MOV 

M0V8 

M0V8 

M0V8 

M0V8 

JSR 

BR 

NOP 

EMT 

JMP 

JSR 



#STACK.S'' 
$8ASE.R0 
^STpUE.RI 
#45.$TESTN 



PC.TSTPRP 
052130 



2$ 



8$ 

#822..RMDC0 

tfO.RMDAO 

*SEEK.G0,RMCS10 

*PUTINX,R2 

*RMDC,(R2)+ 

*RMDA,CR2)* 

*RMCS1,(R2)-» 

#200, (R2>* 

PC, PUT 

3$ 



8$ 

PC.GE1STS 



START OF TEST 

INITIALIZE STACK POINTER 

RC = UNI8US ADDRESS 

(Rl) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

VERIFY RECALI8RATI0N 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 8$ IF ERROR 

LAST CYLINDER 

TRACK = 0. SECTOR - 0 

LOAD SEEK COMMAND IN BUFFER 

R2 POINTS TO REGISTER TABLE 

WRITE REGISTER INDEX TABLE 



WRITE TERMINATOR 

GO WRITE REGISTER(S) WITH PUT SiJBROU'lNE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROJTINE 

GO 10 8$ IF ERROR 

SETUP FOR STATUS FE'CH 



uma f<M05/3/<? FCTNL TST 1 PWCRO VOA.OO 4-APR-81 
SEEK fV^Hinj^ DIffERENCE FORWARD 





050544 


004^57 


04352? 




jSR 














U97 


050550 
030554 
050556 
030560 


004757 
000404 
000240 
104000 


042710 




JSR 
BR 
MOP 
EKT 




050562 


000137 


050666 




JMP 




05O566 






4$: 




1499 


030566 
030572 
030574 
030576 
030600 


004757 
000405 
000240 
104000 
004756 


045706 




JSR 

BR 

NOP 

EMT 

JSR 




030602 


0001 57 


030666 




JMP 


1500 


030606 






5$: 




1S01 


030606 
050612 
030614 
030616 
C50620 


004737 
000405 
000240 
104000 
004756 


051024 




JSR 

BR 

NOP 

EMT 

JSR 




030622 


000157 


030666 




JMP 


1502 


030626 






6$: 




ISO? 


030626 
030652 
030654 
030656 
030640 


004737 
115760 
C00010 
000405 
000240 


050400 




JSR 

.WORD 

.WORD 

BR 

NOP 




030642 


104000 
004736 






EMT 




030644 






JSR 




030646 


0001 37 


050666 




JMP 


1S04 


030652 






7$: 




1505 


030652 
030656 
050660 
050662 
030664 


004737 
000403 
000240 
104000 
004736 


044540 




JSR 

BR 

NOP 

EMT 

JSR 


1506 


050666 






8$: 




'507 












1508 








• ' it tr n t mm itiiii n 

m m 










.■•TEST 


46 














C 30666 






TST46: 






030666 


000004 






SCOPE 




030670 


000240 






NOP 




0306/^2 


012706 


oonoo 




MOV 




03C676 


01 3700 


001276 




MOV 




03070? 


013701 


001464 




MOV 




030706 


012737 


000046 001226 




MOV 


T>09 
'5^0 












050714 






1$: 




'511 


050714 
030720 


004757 
054130 


041650 




JSR 
.WORD 



I n 
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PC.TIMOUT 

PC. GET 
4$ 



8S 

PC.PRIERR 
5$ 



PC.a(SP)* 

as 

PC.SEKSTS 
6S 



PC.SI(SP)* 
8$ 

PC.CMPERRSTS 

NDTMSK 

DPE 

7$ 



pc.a(sp)* 

8$ 

PC.SECERR 
8S 



pc.a(SP)* 



WAIT FOR SEEK TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SLBROUTINE 

GO TO 8$ IF Ef<ROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRJERR S BROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8$ IF ERROR 

GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY CMPERRSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 8$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 8S IF NO ERROR 
RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 



SEEK ADJACENT FORWARD 



*SMCK.SP 
$eASE.RO 
TSTQUE.R1 
*46.tTESTN 



SCOPE CALL 

START Of TEST 

INITIALIZE STACK POINTER 

RO = UNISUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;S£T TEST NUMBER IN APT MAR BOX 



PC.TSTPRP 
054150 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR , S FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLJME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP ' :i ' 



'ZSlWO FCTNL TST " MAff^O /04.00 4-APP-81 

SEEK ADJACENT FOftwARD 





050722 


000404 








BR 




030724 


000240 








MOP 




030726 


1 04000 








EMT 




030730 


000157 


031170 






JMP 




030754 












''513 


030734 


012737 


000000 


001444 




MOV 


15K 


030742 


012737 


000000 


001416 




MOV 


'515 


030750 


012737 


000005 


001410 




MOV 


1516 


030756 


012702 


001543 






MOV 


'517 


050762 


112722 


000054 






MOVB 


1518 


030766 


112722 


000006 






Move 


1519 


030772 




000000 






Move 


15^0 


050776 


^^2722 


000200 






Move 


1521 


031002 








3$: 




15?2 


031002 


004757 


045160 






JSR 




031006 


000404 








BR 




031010 


000240 








NOP 




031012 


104000 








EMT 




C31014 


000137 


031170 






JMP 


1525 


051020 


004737 


042624 




4$; 


JSR 


1524 


031024 


004737 


045522 






JSR 


1525 














'526 


031050 


004757 


042710 






JSR 




031034 


000404 








BR 




031056 


000240 








NOP 




051040 


104000 








EMT 




051042 


U00137 


031170 






JMP 


1527 


031046 








5$: 




1528 


051046 


004737 


045706 






JSR 




031052 


000405 








BR 




031054 


000240 








NOP 




031056 


104000 








EMT 




051060 


004736 








JSR 




031062 


0001 37 


051170 






JMP 


1529 


031066 








6$: 




1550 


051066 


004737 


051024 






JSR 




031072 


000405 








BR 




051074 


000240 








NOP 




031076 


104000 








EMT 




051 100 


004736 








JSR 




051 102 


000137 


051170 






JMP 


IS^I 


051106 








7$: 






051106 


004737 


050400 






JSR 




031112 


115760 








.WORD 




051114 


000010 








.WORD 




031116 


000405 








BR 




051120 


000240 








NOP 




051122 


104000 








EMT 




051124 


004756 








JSR 




031126 


000157 


031170 






JMP 


•M! 


051132 












'5?A 


031152 


004757 


044540 






JSR 




051136 


000405 








BR 




031140 


000240 








NOP 




051142 


104000 








EMT 




C51144 


004736 








JSR 



J n 
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2$ 



10$ 

xrO.RMDCO 
*O.RMDAO 

#seek:go.rmcsio 

*PJTINX,R2 
#RMDC. (R2)■t■ 
#RMDA.(R2)♦ 
#RMCS1,(R2)+ 
#200.(R2)+ 

PC. PUT 
4$ 



10$ 

PCGETSTS 
PC.TJMOUT 

PC. GET 
5$ 



10$ 

PC.PRIFRR 
6$ 



PC,a(SP)+ 
10$ 

PC.SEKSTS 
7$ 



pc.a(SP)+ 

10$ 

PC.CMPERRSTS 

NDTM5< 

DPE 

8$ 



PC,a(SP)* 

10$ 

PC.SECERR 
9$ 



pi.a(5P)* 



VERIFY RE CALIBRATION 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED flv TSTPRP S^BROUHNE 

GO TO 10$ IF ERROR 

CYLINDER = 0 

TRACK = 0. SECTOR = 0 

FUNCTION CODE FOR SEEK 

R2 f>OINTS TO REGISTER INDEX 

WRITE REGISTER INDEX TABLE 



TERMINATE REGISTER TABLE 

GO WRITE REGISTER (S) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ft DEFINED BY PUT SUBROUTINE 

GO TO 10$ IF ERROR 

SETUP FOR STATUS FETCH 

WAIT FOR COMPLETION 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 10$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 10$ IF ERROR 

GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ft DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 10$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR tt DEFINED BY CMPERRSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 10$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHEC<S 



*A6 



1535 
1556 
1557 
1558 
1539 
15A0 
15A1 
1542 



W105/3/2 FCTNL TST 1 
SEEK AOJACEMT FORWARD 

031 K6 000137 031170 
03115? 

031152 005737 00U44 

031156 001004 

03M60 005257 00U44 

051164 000157 031002 
031170 





051170 






051170 


000004 




031172 


000240 




051 1 74 


012706 




031200 


013700 




051204 


015701 




031210 


012737 


1543 






1544 


C31216 




1545 


031216 


004737 




031222 


054150 



001100 
001276 
001464 
000047 



041650 



MACRO V04.00 



9f: 



K 11 
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SEO 0140 



10$: 



J«P 

TST 
BNE 
INC 
JMP 



lOS 

RMDCO 
10$ 
RMDCO 
3$ 



:G0 TO 10$ If ERROR 

.-FIRST TIME THROUGH?? 
;MO!f 

;VES - SEEK TO ADJACENT CYLIMDER FORWARD 



•TEST 47 SELK ADJACENT REVERSE 

■*••»*****•****•**•*••**•*****•**•*•******•**•**•*••••••*••••••• 

TST47: 

SCOPE CALL 



001226 



1$: 





031224 


000404 








031226 


000240 








031250 


104000 








031232 


000137 


031474 




1546 


031256 








1547 


051236 


012757 


000001 


001444 


1548 


051244 


012737 


000000 


001416 


1549 


051252 


012737 


000005 


001410 


1550 


051260 


012702 


001543 




1551 


031264 


112722 


000006 




1552 


051270 


112722 


000054 




1553 


0512"'4 


112722 


000000 




1554 


051 500 


112722 


000200 




1555 


C51 504 








1556 


051504 


004757 


043160 






051510 


000404 








051512 


000240 








031314 


104000 








031516 


000137 


031474 




1557 


051322 


004737 


042624 




1558 


051 526 


004737 


045522 




1559 










1560 


051552 


004737 


042710 






051556 


000404 








051540 


000240 








051542 


104000 








031344 


000137 


031474 






031550 








'^^2 


031550 


004737 


045706 





2$: 



5$: 



4$: 



SCOPE 
NOP 
MOV 
MOV 
MOV 
MOV 



JSR 
.WORD 



5$: 



BR 
NOP 
EMT 
JMP 

MOV 
MOV 
MOV 
MOV 
M0V8 

Move 

M0V8 
M0V3 

JSR 

BR 

NOP 

EMT 

JMP 

JSR 

JSR 

JSR 

SR 

NOP 

EMT 

JMP 

^SR 



*STACK.SP 
$i9ASE.R0 
TSTQUE.R1 
*47,$TESTN 



PC.TSTPRP 
054150 



2$ 



10$ 

*1 .RMDCO 

^rO.RMDAO 

*SEEK!GO,RMCS10 

<'PUTINX.R2 

*RMDA.(R2)+ 

*RMDC.(R2)+ 

*RMCS1 ,(R2)* 

*200,(R2)+ 

PC. PUT 
4$ 



10$ 

PC.GETSTS 
PC.TIMOUT 

PC. GET 
5$ 



10$ 

PC.PRIEWR 



ST<VRT OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT MAIL BOX 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 

VERJFv CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF •■SKI" OR "PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR tt DEFINED BY TSTPRP SUBROUTINE 

GO TO 10$ IF ERROR 

CYLINDER = 1 

TRACK = 0, SECTOR - 0 

FUNCTION CODE FOR SEEK 

R2 POINTS TO REGISTER INDEX 

WRI7E REGISTER INDEX TABLE 



TERMINATE TABLE 

GO WRITE REGISTERCS) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 10$ IF ERROR 

SETUP TO RfAD ALL REGISTERS 

WAIT FOR SEEK TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 10$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 



1S63 



1565 
1566 



'ZRTBO RM0S/?/2 FCTM TST 1 
'^.^ SEEK ADJACENT REVERSE 



051354 
031556 
031360 
031362 
031364 
031370 
031370 
031374 
031376 
031400 
031402 
031404 
031410 
031410 
031414 
031416 
031420 
031422 
031424 
031426 
031430 
031434 
031434 
031440 
03144? 
:)31444 
031446 
031450 
031454 
031454 
031462 
031464 
031470 
031474 



MACRO V04.00 



L 11 
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S£0 0141 



1567 
1568 



1569 
1570 
1571 
157^* 
1573 
1574 
15^5 
1576 



000405 






BR 


6$ 


;G0 TO 6$ If NO ERROR 


000240 






NOP 




.•RETURN HERE IF ERROR 


104000 










.'ERROR * DEFINED BY PRIERR SUBROUTINE 


nn/. yXf, 

UU*« ' JO 






ICR 




'CkC\ PATK FOR MORF FRROR CHfCtC^ 


0001 37 


031474 




JMP 


10$ 


;G0 TO 10$ IF ERROR 


004737 


051024 


6S: 


JSR 


PC.SEKSTS 


;G0 VERIFY RESULTS OF SEEK OPERATION 


000405 






BR 


7$ 


;G0 TO 7$ IF NO ERROR 


000240 






NOP 




.■RETURN HERE IF ERROR 


104000 






EMT 




.•ERROR # DEFINED BY SEKSTS SUBROUTlNf 


004756 






JSR 


PC.5)(SP)* 


;G0 BACK FOR MORE ERROR CHECKS 


0001 57 


051474 


71- 


JMP 


10$ 


;G0 TO 10$ IF ERROR 


004757 


050400 


' • » 


JSR 


PC.CMPERRSTS 


.•CHECK ANY ERRORS NOT MASKED 


115760 






.WORD 


NDTMSK 


.•MASK FOR RMER1 


000010 






.WORD 


DPE 


;MASK FOR RMER2 


000405 






BR 


8$ 


.•GO TO 8$ IF NO ERROR 


000240 






NOP 




.•RETURN HERE IF ERROR 


104000 






EMT 




.•ERROR * DEFINED BY CMPERRSTS SUBROUTINE 








JSR 


PC a(SP)^ 


•GO BACK FOR MORE ERROR CHECKS 


000157 


051474 




JMP 


10$ 


:G0 TO 10$ IF ERROR 


004757 


044540 


8$: 


JSR 


PC.SECERR 


;G0 CHECK FOR SECONDARY ERRORS 


000405 






BR 


9$ 


;60 TO 9$ IF NO ERROR 


000240 






NOP 




;RETURN HERE IF ERROR 


104000 






EMT 




.•ERROR # DEFINED BY SECERR SUBROUTINE 


004756 






JSR 


pc,a(SP)* 


:G0 BACK FOR MORE ERROR CHECKS 


000157 


031 474 




JMP 


10$ 


;60 TO 10$ IF ERROR 


022757 


000001 00H44 


9$: 


CMP 


*1.RMDC0 


;IS THIS THE FIRST SEEK?? 


001004 






BNE 


10$ 


;N0.' : 


005557 


001444 




DEC 


RMDCO 


.YES - SEEK TO ADJACENT CYLINDER 


000157 


051 304 




JMP 


5$ 


;G0 SEEK 





051474 








051474 


0000-04 






031476 


000240 






051 500 


012706 


001100 




051504 


015700 


001276 




051510 


015701 


001464 




051514 


012737 


000050 


1577 








1578 


051 522 






1579 


031522 


004757 


041650 




051526 


054150 





10$: 

•>**•••****•***»**••***•«*•********•»•*»**•***•*•*•**•»*••*••**•• 

;'»1EST 50 SEEK INVALID SECTOR 

••***«»****»»'*•*»**•***••****»*»*»•*»***«***•****•*••****•••••*•• 

TST50: 



001226 



1$: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



JSR 
.WORD 



#STACK.3P 
$8ASE.R0 
TSTOUE.Rl 
iir50.$TESTN 



PC.TSTPRP 
054150 



051530 
031532 



000404 
000240 



BR 
NOP 



2$ 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(Rl) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 



:'*'WBO RM05/3/2 FCTNL TST 1 MACRO V04.0C 4-APR-81 
T50 SEEK INVALID SECTOR 







1 04000 








t ' 1 1 






0001 37 


f,^?1 1? 








1S80 


031 54? 








?4' 




1 SRI 


031 54? 


01 ?737 

VIC' V' 


000005 

wwwV/w^ 


001410 

WW 1 ■* I w 




MOV 


1 S8? 


031 550 


01 ?737 


000000 

Uwwwww 


00144? 




MOV 




031 556 


01?737 


000000 

wwwwww 


001444 




MOV 




031 564 


01?737 


000036 

wwwwww 


001416 




MOV 

I IW V 


S85 


031572 


01?70? 


001 543 






MOV 

( IW ¥ 


1586 


031576 


1 12722 


000032 

WWWW 






MOVB 

1 IW w'J 


1 587 


03160? 


1 1?7?? 


000006 

v/w wwv/u 






MOVB 


1588 


031606 


112722 


000034 

WW W W J » 






MOVB 


1 589 


03161? 


1 12722 


000000 

W WWW w 






MOVB 

1 IW ¥ W 


1590 


031616 


112722 


000200 

W W W L WW 






MOVB 


1591 


031622 


004737 


042624 

W"*C Wk ^ 






JSR 


1592 


031626 








3$: 




1593 


031626 


004737 


052264 






JSR 




031632 


C00404 








BR 




031634 


000240 








NOP 




031636 


104000 








EMT 




C316A0 


0001 37 


032112 






JMP 


159A 


031 64A 








4$: 




1595 


0j>1644 


004737 


042710 






JSR 




031650 


000404 








BR 




051652 


000240 








NOP 




03165A 


104000 








EMT 




031656 


0001 37 


032112 






JMP 


1596 


031662 








5$: 




1597 


031662 


004737 


052402 






JSR 




031666 


000405 








BR 




031670 


000240 








NOP 




031672 


1 04000 








EMT 




031674 


004736 








JSR 




031676 


0001 37 


0321 12 






JMP 


1598 


031702 








6$: 




1599 


031702 


004737 


043160 






JSR 




031 706 


000404 








BR 




031710 


000240 








NOP 




03171? 


1 04000 








FMT 




031 7K 


000157 


0321 12 






JMP 


1600 


031 '20 








7$: 




1601 


031 720 


004737 


043522 






JSR 


1602 














1603 


031 724 


004737 


042710 






JSR 




031 730 


000404 








BR 




031 732 


000240 








NOP 




031734 


104000 








FMT 




031736 


000137 


032112 






JMP 


1604 


031742 








8$: 




1605 


031 742 


004737 


043706 






JSR 




031 746 


000405 








BR 




031750 


000240 








NOP 




031752 


104000 








EMT 




031754 


004736 








JSR 




031756 


000137 


032112 






JMP 


1606 


031762 








9$: 




1607 


031762 


004737 


051024 






JSR 




031766 


000405 








BR 



11:43:28 



M 

PAGE 



11 

13-59 



SEQ 0U2 



14S 

*see<:go.rmcsio 

*0.RMOF0 

#0-RMDCO 

#30..RMDAO 

#PUTINX,R2 

#RMOf .(R2)* 

*RMDA.(R2)+ 

*RMDC.(R2)* 

♦RMCS1.(R2)* 

*200.{R2)* 

PC.GETSTS 

PC.CNTCLR 
4S 



US 

PC. GET 
5$ 



14$ 

PC.CLRSTS 
6S 



pc.a(sp)* 

14$ 

PC, PUT 
7$ 



14$ 

PC.TIMOUT 

PC. GET 
8$ 

14$ 

PC.PRIERR 
9$ 



PC.a(SP)+ 

14$ 

PC.SEKSTS 
10$ 



ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 14$ IF ERROR 

SEEK COMMAND 
FORMAT 18 BIT 
CYLINDER = 0 

INVALID SECTOR = 30.. TRACK 0 
R2 POINTS TO REGISTER TABLE 
WRITE REGISTER INDEX TABLE 



TERMINATE TABLE 

SETUP INPUT REGISTER INDEX 

GO ISSUE CONTROLLER CLEAR 

GO TO 4$ IF NO ERROR 

RETURN HERE 'J ERROR 

ERROR NUMBER DEFINED BY SUBROUTINE 

GO TO 14$ IF ERROR 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 14$ IF ERROR 

GO VERIFY CONTROLLER CLEAR OPERATION 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR M DEFINED BY CLRSTS SUBROUTJNt 

GO BACK FOR MORE ERROR CHECKS 

GO TO 14$ IF ERROR 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

60 TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY PUT SUBROUTINE 

GO TO 14$ IF ERROR 

WAIT FOR GO TO RESET 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HFRE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 14$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 14$ IF ERROR 

GO VERIFY RESULTS OF SEEK OPERATION 
GO TO 10$ IF NO ERROR 



ZaWBO RM05/3/2 FCTNL TST 1 
'SO SEEK INVALID SECTOR 



N 11 

MACRO V04.00 4-APR-81 11:45:28 PAGE 13-60 



031770 
031772 
031 774 
031 776 

1608 032002 

1609 032002 

1610 032002 
032006 
032010 
032012 
0320K 
032016 
032020 
032022 

1611 032026 

1612 032026 
032032 
032034 
032036 
032040 
032042 

1613 032046 

1614 032046 

1615 032052 

1616 032060 
1617 

1618 032062 

1619 032070 

1620 032072 

1621 032100 

1622 032106 
1625 032112 
1624 

16?5 



032112 
032112 
032114 
032116 
032122 
052126 
052132 



1626 
1627 



032U0 
032144 



000240 
104000 
004736 
000137 



004737 
117,'60 
000010 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

005237 
023727 
101662 

032737 
001010 
012737 
012737 
000137 



000004 
000240 
012706 
013700 
013701 
012737 

004757 
054150 



032146 000404 
032150 000240 



032152 
032154 
'6?8 032160 



104000 
000137 



032112 
050400 



032112 
044540 

032112 

001416 
001416 



010000 
000040 
031626 



SEO 0143 



10$: 
11$. 



12$; 



13$; 



000100 



010000 001442 



001442 
001416 



14$: 



NOP 
EMT 

JSR 
JMP 



JSR 

.WORD 

.WORD 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

INC 
CMP 
BLOS 

BIT 
BNE 
MOV 
MOV 
JMP 



PC.a(SP)» 
14$ 



PCCMPERRSTS 

lAE.'NDTMSK 

DPE 

12$ 



PC.a(SP)^ 
14$ 

PC.SECERR 
13$ 



PC.a(SP)*- 
14$ 

RMDAO 

RMDA0,*64. 

3$ 

AFMT16.RM0F0 
14$ ' 
*FMT16,RM0F0 
*32. , RMDAO 
3$ 



RETURN HERE IF ERROR 

ERROR It DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 14$MF ERROR 



CHECK ANY ERRORS NOT MASKED 

;MASK FOR RMER1 
MASK FOR RMER2 
GO TO 12$ IF NO ERROR 
RETURN HERE IF ERROR 

ERROR ft DEFINED BY CMPERRSTS SUBROUTINE 
60 BACK FOR MORE ERROR CHECKS 
60 TO 14$ IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

60 TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR tt DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 14$ IF ERROR 

INCREMENT SECTOR ADDRESS 
DONE YET ? 

NO - TEST NEXT SECTOR 

WAS TEST DONE FOR 16 BIT MODE YET ? 
BR IF YES 

SET 16 BIT FORMAT MODE 
SET INVALID SECTOR 32. 
NO - TEST NEXT SECTOR 



;«TEST 51 SEEK INVALID TRACK 

•■«»«»•»*«*•**»***»»**•«»•♦*♦***********♦********♦*******•***•**• 

TST51: 



001100 
001276 
001464 
000051 

041650 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 
.WORD 



*STACK.SP 
$8ASE.R0 
TSTQUE.R1 
*51.$TESTN 

PC.TSTPRP 
054130 



032';40 



BR 
NOP 
EMT 
JMP 



1$ 
14$ 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO - UNJ8US ADDRESS 

(Rl) - DEVICE BEIN6 TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKN0WLED6E IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR •T>IP" IS SET 

VERIFY RECALI8RATI0N 

()0 TO 1$ IF NO ERROR 

RETURN HERE If ERROR 

E=RROR * DEFINED BY TSTPRP SUBROUTINf 

G) TO 14$ IF EPPOR 



:»«WBC ^M05/3/a KTNl TST - MACRO .rC^.OC 4-APR-81 
SEEK INVALID TRACK 



^t29 


052^60 


012737 


000005 


00141C 




MOV 


'630 
'651 


052166 


012757 


cooooo 


00K44 




now 


0521 74 


015757 


001552 


001416 




nov 


'632 


052202 


105237 


001417 






iNce 


'655 


052206 


012757 


000000 


001442 




MOV 


"65^ 


052214 


012702 


001545 






MOV 


'63S 


052220 


^^2722 


000052 






M0V8 


'65S 


052224 


'l^2722 


000054 






M0V8 


1657 


052250 


^^2722 


000006 






M0V8 


1658 


052254 


y'\27^2 


000000 






MOVB 


*659 


052£'40 


U2722 


000200 






16^0 


052244 


004757 


042624 






JSR 


16A1 


052250 








2$: 




16^2 


052250 


004 737 


052264 






^ 




052254 


000404 










052256 


000240 








NOP 




052260 


1 04000 








EMT 




052262 


000157 


052540 






JMP 


If 4 5 


05^266 








5$: 




16''. 4 


C 52266 
052272 
052274 
052276 


004757 
000404 
000240 
104000 


042710 






JSR 
BR 
NOP 
EW 




052500 


0001 57 


052540 






JW 


■■645 


052504 








4$: 




1646 


032304 
052310 
052512 
052314 
052516 


004737 
000405 
000240 
104000 

A/\ / '9 9^ 

004736 


A f ^ A 

05<:402 






JSR 
BR 
NOP 
EMT 

JSR 




052520 


000157 


A9 r < A 

052540 






JMP 


164/ 


032524 








5$; 




^648 


052524 
052550 
032552 
032554 


004737 
000404 
000240 

4 A y AAA 

104000 


045160 






JSR 
BR 
NOP 
EMT 




052556 


A A A 4 9 "7 

000137 


A ^ C / A 

0:)2540 






JMP 


1649 


052542 








6$: 




1650 


057342 


A A ' Y9 ^ 


04 5522 






JSR 


1651 
'652 














052546 
052352 


004757 


042710 






JSR 




000404 








BR 




032354 


000240 








NOP 




052556 


104000 








EMT 




052560 


AAA 4 V9 

0001 57 


A 9 / A 

052540 






jMP 


1655 


052564 








7$: 




1654 


052564 
0525/0 
032572 
052574 

U3^r 3 '6 


004757 
000405 
000240 
104000 
(aJ4/',56 


A y 9 A V 

043706 






JSR 
BR 
NOP 
EMT 

JSR 




052400 


000157 


052540 






JMP 


1-S5 


052404 








8$: 




ifcS6 


052404 
052410 
052412 
C 524-4 


004737 
000405 
000240 
104000 


05^024 






JSR 
BR 
NOP 
EMT 
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SEQ 0U4 



#bt£K.G0.RMCS10 

#0.RTOCC 

LSTRIC.R«>A0 

RMDAO^I 

#0.RMOF0 

«PUT»^X.R2 

#RM0F , (R2)* 

#RMDC. 'R2)* 

#RMDA.(R2)* 

#R*1CS1.(R2)* 

#200. (R2)^ 

PC.GETSTS 

PC.CNTCLR 
5$ 



14$ 



PC. GET 
4$ 



14$ 

PC.CLRSTS 
5$ 



pc.afSP)* 

14$ 

PC.PUT 
6S 



14$ 

PC.TJMOUT 

PC, GET 
7$ 

14$ 

PC.PRIERR 
8$ 



PC.a(SP)* 
14$ 

PC.SEKSTS 
9$ 



SEEK COMMAND 

CYLINDER = 0 

LAST TRACK. SECTOR " 0 

SETUP FIRST INVALID TRACK 

18 BIT FORMAT 

R2 POINTS TO REGISTER TABLE 
WRITE REGISTER INDEX 
TABLE FOR OUTPUT 



; TERMINATE TABLE 

iSETUP INPUT TABLE FOR STATUS 

GO ISSUE CONTROLLER CLEAR 

GO TO 5$ IF NO ERROR 

RETURN HERE IF FRRCH 

ERROR NUMBER DEFINED Br SUBROUTINE 

GO TO 14$ IF tRROR 

uO READ REGISTER(S) WITH GET SLfiROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERRO'^ 

ERROR # DEFINED Br GET SUBROUTINE 

GO TO 14$ IF ERROR 

GO VERIFr CONTROLLER CLEAR OPERATION 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CLRSTS SUBROuTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 14$ IF ERROR 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED Br PJT SUBROUTINE 

GO TO 14$ IF ERROR 

;WAIT F0F5 GO TO RESET 

GO HEAD REGISTER(S) WITH GET SLBnOUTINE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 14$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED Br PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 14$ IF ERROR 

GO VERIFr RESULTS OF SEEK OPERATION 

60 TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERRUR * DEFINED Br SEKS^S SUBRO^^'NE 



'"r SEEK INVALID TRACK 



«aAC«0 VOA.OO 



4-APR-81 11:45:28 PAGE 13-62 



SEO OK'j 



1657 
'653 
1659 



1660 
^661 



1662 
1663 
166A 
1665 
1666 
1667 
it)68 
166<> 
1670 
1671 
1672 
1673 
167<, 
1675 
1676 



1677 
1678 



032416 
032420 
032424 
032424 
032424 
032450 
032432 
032434 
032436 
032440 
032442 
032444 
032450 
032450 
032454 
032456 
032460 
032462 
032464 
032470 
032470 
032474 
032502 

032504 
032512 
032514 
032522 
032530 
032534 

05.^540 



032540 
032540 
032542 
032544 
032550 
032554 
032560 

032566 
03P572 



032574 
032576 
03260C 
032602 
C 32606 



004736 
000157 



004757 
117760 
000010 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000157 

105237 
125727 
101414 

032737 
001012 
012737 
013737 
105237 
000157 



000004 

000240- 

012706 

01 3700 

013701 

012737 

004757 
054130 



000404 
000240 
104000 
000157 



C52540 
050400 



9$: 
i0t: 



032540 
044540 

052540 

001417 
001417 



010000 
001332 
001417 
032250 



001100 
001276 
001464 
000052 

041650 



11$: 



12$: 



000200 



010000 001442 



001442 
001416 



13$: 
14$: 



jSR 



JSR 
.WORD 
.WORD 
BR 

NOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

INC8 
CMP8 

BLOS 

BIT 

BNE 

MOV 

MOV 

JNC8 

JMP 



14$ 



PC.CMPERRSTS 
lAE NDTMS< 
DPE 
11$ 



PC.SI(SP)* 
14$ 

PC.SECERfi 
12$ 



PC.acSP)* 
14$ 

RMDA0*-1 

RMDA0+1,*128. 

13$ 

#^MT16,RM^^F0 

14$ / 

#FMT16.RM0F0 

LSTRK.RMDAO 

RMDAO+1 

2$ 



;G0 BACK FOR MORE ERROR CHECKS 
:G0 TO 14$ IF ERROR 



CHECK ANY ERRORS NOT MASKED 

;MASK FOR RMER1 
MASK FOR RMER2 
GO TO 11$ IF NO ERROR 
RETURN HERE IF ERROR 

ERROR * DEFINED BY CMPERRSTS SlBRCJIlNE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 14$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SEC ERR SUBROUTINE 

GO BACK FOR MORE FRROR CHECKS 

GO TO 14$ IF ERROR 

INCREMENT TRACK ADDRESS 
DONE?? 

NO-DO NEXT TRACK 

WAS TEST DONE FOR 16 BIT?^ 
YES. 1 

SET FORMAT 16 

LAST TRACK. SECTOR 0 

SETUP FIRST INVALID TRACK ADDRESS 

DO TEST FOR 16 BIT FORMAT 



••ft************************************************************ 



;«TEST 52 



SEEK INVALID CYLINDER 



TST52: 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 
.WORD 



*STACK,SP 
$8ASE.R0 
TST0UE,R1 
#52,$TESTN 

PCTSTPRP 
054130 



035156 



1$: 



BR 
NOP 
EMT 
JMP 



'$ 



13$ 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

•'RD = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER £ SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIfV PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 1$ IF NO ERROR 

^RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUiINE 

GO TO 13$ IF ERROR 



JR-WG RM05/3/2 FCTNL TST 1 MACRO V0<..00 4-APR-81 
'5.. SEEK INVALID CVLINDEH 



QOv 




fll 27^7 




on 1 ' 1 n 






1 kA1 

' OO 1 


nx?6i^ 


m ; 7X7 












nx?6?? 


f)1 27X7 




001^16 

WW 1 t 1 VJ 




MOV 






01 ?7X7 


000000 


nni UL7 




1 tW » 




n'5?6V> 


ni 270? 

VIC' VC 


fini 












1 12722 


000006 

WWWwV/U 






1 IW » 




03P646 


1 ^7777 

1 > C f c c 


000034 

WWW 






1 IW ¥ IJ 






1 12722 


w w vw 






1 IW If 'J 




03P6S6 


1 12722 


wwwwww 






MOVR 

1 IW V 'J 






IIP 72? 


000200 

wvwC WW 






1 Iw V 


1690 


03P666 


004737 


04?6?4 










03P67? 








21- 




169? 


03267? 


004^37 


05??64 

W^fc c w^ 






jsr 




032676 


000404 














00C240 








NOP 




03270? 


1 04000 












032704 


0001 37 


0331 56 






JMP 


1693 


032710 








3$: 




1694 


032710 


004737 


042710 






JSR 




C327H 


000404 








BR 




032716 


000?40 








NOr 




032720 


104000 












032722 


000137 


033156 






JMP 


1695 


032726 








4S: 




1696 


032726 


004737 


052402 

w ^ t ~ w t. 






JSR 




032732 


000405 








BR 






000240 








NOP 




032736 


104000 

1 v~ wv 








FMT 




032740 


004736 

W~ « — ' w 








JSR 




032742 


0001 37 


033156 






JMP 


1697 


03?746 








5$: 




169U 


032746 


004737 


043160 






JSR 




032752 


000404 








BR 




032754 


00C240 

W V r ~ w 








NOP 




032756 


104000 

1 W~ WW 








EMT 




032760 


000137 

WWW 1 _/ f 


0331 56 






JMP 


1699 


032764 








6S: 




1700 


032764 


004737 


043522 






JSR 


1 701 














1702 


032770 


004737 


042710 






JSR 




032774 


000404 

WWW^ W^ 








BR 




C 32776 


000240 

wwwc « w 








NOP 




033000 


104000 

1 w~ vw* 








FMT 




03300? 


00013/ 

WWW ■ ^ r 


033156 






JMP 


1703 


033006 








7$: 




170A 


033006 


004737 


043706 

w~ -/ • V w 






JSR 




033012 


000405 

WWW" W V 








BR 




033014 


000240 








NOP 




033016 


104000 








EMT 




033020 


004736 








JSR 




033022 


000137 


033156 






JMP 


1705 


033026 








8$: 




1706 


033026 


004737 


051024 






JSR 




033032 


000405 








BR 




033034 


000240 








NOP 




033036 


104000 








EMT 




C33040 


004736 








jSR 
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fO 01 



#SEEK!G0.RMCS10 

#823. .RMDCO 

#0.RMDAO 

ffO.RMOFO 

#PUTJNX.R2 

#RMDA. (R2)* 

#RMDC.(R2)+ 

#RMOF, (R2)* 

*RMCS1 .(R2)* 

*200.(R2)* 

PC.GETSTS 

PC.CNTCLR 
3J 



13$ 

PC, GET 
4$ 



1^$ 

PC.CLRSTS 
5$ 



pc,a(sp)* 

13$ 

PC, PUT 
6$ 



13$ 

PC.TJMOUT 

PC. GET 
7$ 

13$ 

PC.PRIERR 
8$ 



PC.a(SP)<- 
13$ 

PC.SEKSTS 
9$ 



PU5)(SP)* 



SEEK FUNCTION CODE 

START AT FIRST INVALID C^LJNDf^ 

TRACK = 0, SECTOR = 0 

18 BIT FORMAT 

R2 POINTS TO INDEX TABLE 

WRITE REGISTER TABLE 



TERMINATE TABLE 
SETUP FOR STATUS 

GO ISSUE CONTROLLER CLEAR 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR NUMBER DEFINED BV SUBROUTINE 

GO TO 13$ IF ERROR 

GO READ RE6ISTER(S> WITH GET SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 13$ IF ERROR 

GO VERIFY CONTROLLER CLEAR OPERATICV- 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR n DEFINED BY CLRSTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

GO WRITE REGISTER(S) WITH PUT SUBRaiTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBRa.TINE 

GO TO 13$ IF ERROR 

WAIT FOR GO TO RESET 

CO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 13$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 



r-iff^O RM05/3/^ FCTNL TST 1 
'5? SEEK INVALID CYLINDER 



E 12 
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SfO OU/ 



1707 
V08 



1709 
1710 



1711 
1712 
1713 
17K 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1/24 



17^S 



03304/> 


0001^7 


033156 






jmp 


13$ ;G0 TO 13$ If ERROR 


















033046 


004737 


050400 

V"* w 






JSR 


PC.CMPERRSTS .-CHECK ANY ERRORS NOT MAiKED 


0330SP 


1 1 7760 










IMC . "11/ 1 


, rWj^ r Un Knt n • 


0330S4 


000010 








WORD 


r>DC 

Urt , 


HMiN run KrICKc 


0330S6 


000405 








BR 


1 




033060 


000P40 








NOP 








1 04000 

1 WV 








FMT 






033064 


004736 








jSR 


PC.a(SP)* ; 


•GO BACK FOR MORE ERROR CHECKS 


033066 


0001 37 

WV 1 J' 


033156 






jMP 


135 


■GO TO 13$ IF ERROR 


033072 








'OS- 








033072 


004737 


044540 






JSR 






033076 


000405 








BR 


lit 




033100 


0OOP40 








NOP 






053102 


104000 












•ERROR # DEFINED BY SECERR SUBROUTINE 


033104 


004736 








JSR 


PC.a(SP)* 


•GO BACK FOR MORE ERROR CHECKS 


035106 


0001 37 


033156 






^MP 


13$ 


•60 TO 13$ IF ERROR 


033112 








11$: 








033112 


005237 


001444 






INC 


RMDCO 


; INCREMENT CYLINDER ADDRESS 


033116 


0237?7 


001 444 


002000 




CMP 


RMDC0.*1024. 


•DONE''? 


033124 


002412 








BLT 


12$ 


; NO-DO NEXT CYLINDER 


033126 


032737 


010000 


00144? 




BIT 


#FMM6,RM0F0 


;16 BIT FORMAT TESTED''? 


ATT IT/ 

0351 34 


001010 








BNE 


1i$ 


;Y£S . . 


033136 


012737 


010000 


001442 




MOV 


#FMT16.RM0F0 • 


;SETUP FOR 16 BIT TEST 


033144 


012737 


001467 


001444 




MOV 


#823., RMDCO 


;START AT FIRST INVALID CYLINDER 


0331S2 


0001 37 


032672 




12$: 


JMP 


2$ 




033156 








13$: 
















• - A************************************************************** 










;*TEST 


53 


IVC SEE>f TEST 





053156 








033156 


000004 






035160 


000240 






033162 


012706 


001100 




033166 


013700 


001276 




053172 


013701 


001464 




033176 


012737 


000053 


001226 


033204 


004737 


052264 




033210 


000404 






033212 


000240 






033214 


104000 






033216 


000137 


033516 




033222 








033222 


112737 


000024 


001 543 


033230 


112737 


000200 


001544 


033236 


012737 


000001 


001434 


033244 


004737 


043160 




033250 


000404 






033252 


000240 






033254 


104000 






033256 


000137 


033516 




053262 








033262 


012737 


000005 


OOUlO 



TST53: 



1$: 



2$: 



SCOPE 




•SCOPE CAlL 


NOP 




•START OF TEST 


MOV 


tfSTACK. SP 


•INITIAI IZE STACK POINTER 


MOV 


$8ASE.R0 


•RO - UNI8US ADDRESS 


MOV 


TS^QUE.Rl 


;(R1) DEVICE BEING TESTED 


MOV 


*53,$TESTN 


•;SET TEST NUMBER IN APT MAIL BOX 


JSR 


PC.CNTCLR 


•GO ISSUE CONTROLLER CLEAR 


BR 


1$ 


;60 TO 1$ IF NO ERROR 


NOP 




•RETURN HERE IF ERROR 


EMT 




•ERROR NUMBER DEFINED BY SUBROUTINE 


JMP 


8$ 


•GO TO 8$ F ERROR 


M0V8 


ffRMMRl .PUTINX 


; SETUP PUT INDEX TABLE 


MUV8 


*200.PUTINX*1 


•SET TERMINATOR BVTE 


MOV 


#DMD.RMMR10 


•SET RMMRl OUTPUT BUFFER F DMD 


JSR 


PC. PUT 


•60 WRITE RMMR1 VIA PUT SUBROUTINE 


BR 


2$ 


•GO TO 2$ IF NO ERROR 


NOP 




•RETURN HERE If ERROR 


EMT 




•ERROR DEFINED BY PUT SUBROtMNE 


JMP 


8$ 


•GO TO 8$ IF ERROR 


MOV 


*SEEK.G0.hMiS1G 





1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1/AO 
17A1 



1742 
1743 



V44 
1745 



1746 
1747 
1748 
174V 
1750 
17S1 
175? 
1753 



'754 
1755 



V56 
1757 
7 758 



RM05/3/2 FCTNL TST 1 
IVC SEEK TEST 



033270 
033276 
033304 
033312 
033316 
033322 
033326 
033332 
033336 
033342 
033346 
033352 
033354 
033356 
033360 
033364 
033364 
033370 
033372 
C35374 
033376 
03340? 
03'402 
053406 
033410 
033412 
033414 
033416 
033422 
033430 
053432 
033440 
033446 
033454 
033456 
033456 
055462 
033464 
033466 
033470 
033472 
C33474 
033476 
033502 
033502 
033506 
033510 
033512 
033514 
033516 



035516 

033516 000004 
C 33520 000240 





000000 


012737 

VIC' J ' 


cooooo 


012737 


000000 

vv w w 


012702 


001543 


1 12722 


000024 


112722 


000006 


112722 


000034 


1 12722 


000000 

www 


112722 


000200 


004737 


042624 


004737 


045160 


000404 




000240 




104000 




000137 


033516 


004737 


042710 


000404 




000240 




104000 




000137 


03^516 


004737 


043706 


000405 




000240 




104000 




004736 




0001 37 


033516 


032737 


010000 


001012 




012737 


010000 


013737 


001 576 


0^2717 


167777 


1 04064 




004737 


050400 


1 15760 




010010 




000405 




000240 




104000 




004736 




0001 37 


033516 


004737 


044540 


000403 




000240 




104000 




004736 





MACRO 1/04.00 



001434 
001444 
001416 
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SEO 0148 



4$: 



001376 5$: 

001 KO 
001142 
001142 

6$: 



7$: 



8S: 



MOV 
MOV 

MOV I 
MOV 
M0V8 
M0V8 

Move 

M0V8 

M0V8 

JSR 

JSR 

BR 

NOP 

EMT 

JMP 

.SR 

8R 

NOP 

EMT 

JMP 

Nbp 

FMT 

JSR 

JMP 

BIT 

BNEi 

MOV 

MOV 

81C 

EMT 

JSR 

.WORD 

.WORD 

BR 

NOP 

EMT 

JSR, 

jmp! 

. JSR 

n3p 

EMT 

JSR 



♦0.RW1R1O 

*O.RMDCO 

*0.RMDAO 

*PUTINX.R2 

*RMMR1 /(R2)* 

*RMDA. (R2)* 

*RMDC,(R2;* 

*RMCS1 , (R2P* 

#200. (R2)*- 

PC.GETSTS 

PC.PUT 

3$ 



8$ 

PC, GET 
4$ 



8S 

PC./^RIERR 
5$^ 



pc.a(sp)* 

8$ 

*JVC.RMER2I 
6S 

*JVC.$6DDAT 
RMER2I.$BDDAT 
**CJVC,$BDDAT 
64 

PCCMPERRSTS 
NDTMSK 
IVC.'DPE 
7$ 



pc.acsp)* 
8$ 

PC.SECERR 
8S 



PC.dlCSP)* 



CrciNDER - 0 

TRACK = 0, SEiTOR - 0 

WRITE REGISTER INDEX 

TA8LE 



SETUP FOR STA'US | 

GO WRITE REGISTER(S) WITH PUl SuBROUMNE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 



ERROR 
GO TO 



* DEFINED BY PUT S^eROUTlNf 
8$ IF ERROR ^ 



GO f!?EAD RE6ISTER(S) WITH GET SU8RDoTIN£ 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 8$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 5$ IF NO ERROR 

RETURN HERF IF ERROR 

ERROR » DEFINED BY PRIERR SUSROUTiNE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 81. IF ERROR 

DID INVALID COMMAND SET'*'' 

VES.. 

GOOD DATA FOR TYPEOJT 
8AD DATA FOR TYPE OUT 



CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 7$ IF NO ERROR 

RETL«N HERE IF ERROR 

ERROR * DEFINED BY CMPERRSTS SUSROU^'Ne 
GO BACK FOR MORE ERROR CHtLfb 
60 TO 8$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 8$ IF NO ERROR 

RETURN HERE F ERROR 

ERROR # DEFINED BY SECERR Sm^j" ]\i 

GO BACK FOR MORE ERROR LHELkS 



•TEST 54 A80RT SEEK TEST 

TST54,: 1' 
SCOPE 
NOP 



; SCOPE :al. 



ASOftT SEEK TEST 

055522 012706 001100 

033526 013700 G01276 MOV 

033532 013701 001464 MOV 

033536 012 '37 000054 001226 MOV 

1759 

1760 03354A 004737 041650 JSR 

033550 054130 .WORD 





033552 


000404 








BR 




033554 


000240 








NOP 




033556 


104000 








EMT 




033560 


000137 


034060 






„MP 


1761 


033564 








1$: 




1762 


033564 


012737 


040000 


001424 




MOV 


1763 


C33572 


012737 


OCOOOO 


001444 




MOV 


1764 


033600 


012737 


000000 


001416 




MOV 


V65 


033606 


012737 


000005 


001410 




MOV 


^766 


033614 


012702 


001 543 






MOV 


1767 


033620 


112722 


000006 






Move 


1768 


033624 


112722 


000034 






MOve 


1769 


033630 


112722 


000014 






Move 


1770 


033634 


112722 


000000 






Move 


1 771 


033640 


112722 


000200 






M0V8 


1^72 


033644 


004737 


042624 






JSR 


1775 


033650 


004737 


043160 






JSR 




033654 


000404 








BR 




033656 


000240 








MOP 




033660 


104000 








EMT 




0i3662 


000137 


034060 






JMP 


1774 


053666 








2$: 




1775 


033666 


004737 


042710 






JSR 




033672 


000404 








BR 




033674 


000240 








NOP 




033676 


104000 








EMT 




033700 


0001 37 


034060 






JMP 


1776 


033704 


032737 


020000 


001346 


3$: 


BIT 


1777 


C33712 


001411 








8EQ 


1778 


033714 


013737 


001546 


001142 




MOV 


1779 


033722 


042737 


157777 


001142 






1780 


033730 


005037 


0C1140 








1781 


033734 


104065 








EMT, 


1782 


033736 


004737 


043522 




4S: 


JSP' 


1783 
















033742 


004737 


042710 






JSR 




033746 


000404 








BR 




033750 


000240 








NOP 




033752 


104000 








EMT 




033754 


0001 37 


0^4060 






JMP 


1785 


033760 












V86 


035760 


004737 


04^,706 






JSR 




053764 


000405 








Bft 




C53766 


000240 








NOP 



jp-66 



#STACK,SP 
$8ASE.R0 
TSTQUE.R1 
#54,STESTN 

PC.^TPRP 
054150 



1$ 



9$ 

*UNS,RMER10 
#0,RMDCO 
tfO.RMDAO 
*SEEK.60,RMCS10 
#PUTJNX,R2 
ATRMDA. {R2) + 
*RMDC.<R2)* 
#RMER1 . (R2)+ 
*RMCS1.(R2)> 
#200. (R2)* 
PC.GETSTS 
PC. PUT 



9$ 

PC. GET 
3$ 



9$ 

#PIP,RMDSI 
4$ 

RMDSJ .SBDDAT 

**CPIP.$eODA' 

SGDDAT 

65 

PC.TIMOUT 

PC. GET 
5$ 



9$ 

PC.PHIFPR 
6$ 



INITIALIZE STACK POINTER 

RO - UNI8US ADDRESS 

(Ri; = DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER Z SELECT DE^/ICE 

VERIFY CONTROLLER CLEAR OPERATION 

DACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF '"SKr'OR 'PIP" IS SET 

VERIFY RE CALIBRATION 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY TSTPRP SUBROUTINE 

GO TO 9$ IF ERROR 

SET UNSAFE ERROR 
CYLINDER i 0 
TRACK = 0. SECTOR 0 
SEEK COMMAND 

SETUP REGISTER INDEX taslE 
AMD OUTPUT BUFFER 



SETUP FOR STATUS FETCH 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 9f IF ERROR 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR ^, 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 9$ IF ERROR 

DID DRIVE START SEEK?"? 

NO. 

QAD DATA FOR TYPEOU^ 

GOOD DATA FOR Tf^EOUT 

WAlJt FOR GO TO RESE> . 

GO READ REGISTER(S!) WITH'&£T SUBRO 'I^e 

GO TO 5S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED feV GE^ SUBRO'J^'NE 

GO TO 9$ IF fPROR 

60 CWECK FOR PRIMARY [;fiR6i!( 
'pp TO 6$ ;f NO ERRrR 
BirjRN Hf-RE IF ERROR 



1789 



f^MOS/^/^ FCTNL TST 
ABORT SEE< TEST 



1 MACRO VO^.OO 



"791 
V92 



1793 
1"9A 
1795 



035770 
055772 
03577A 
034000 
05A000 
05A004 
034006 
034010 
054012 
034014 
034020 
054020 
034024 
034026 
054030 
034032 
054034 
034056 
054040 
C 54044 
054044 
054050 
034052 
034054 
034056 
034060 



104000 
004756 
0001 37 

004757 
000405 
000240 
104000 
004736 
000137 

004757 
155760 
OOOO^O 
000405 
0C0240 
104000 
004736 
000137 

004737 
000403 
0002^.0 
104000 
004 736 



034060 
057766 

054000 

050400 



fc$: 



7|; 



034060 
044540 



8$: 



9$: 



EMT 
JSR 
jdP 

JSR 
BR 
NOP 
E«IT 

JSR 

.uiiRD 

.WORD 

Bk 

NOP 

EMT 

JSR 

JWff 

JSR 

8R 

NOP 

E/1T 

JSR 



.•♦TEST 55 





034060 




TST55: 






034060 


000004 


f 


SCOPE 




054062 


000240/ 




NOP 




054064 


012706 


001100 « 


MOV 




054070 


015700 


001276 


MOV 




034074 


013701 


001464 


MOV 




054100 


012737 


000055 001226 


MOV 


1796 










1797 


054106 








1798 


034106 


004737 


041650 


JSR 




034112 


054130 




.WORD 



1799 
!800 
1801 
1802 
^805 
'804 



034114 
054116 
054120 
034122 
034126 
034126 
054134 
034142 
054150 
C?4^54 



000404 
000240 
104000 
000137 

012737/ 
012737' 
012737 
012^02 



034404 

000000 
000000 
000015 
001545 
000054 



001444 
001416 
0014^0 



2$: 



BR 
NOP 



MOV 
MOV 
MOV 

MOV 
MOVB 
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PC.fil(SP)* 

Pf .SlfDRvitlS 
7*1 



Pc.a(SP)* 

9S 

PC.CMPERRSTS 

NDTM$I^(UNS 

DPE 

8S 



PC.aCSP)* 
9S 

9$ ^ 



pc.a(SP)* 



; ERROR * DEF; 
;G0 BACK FOR 
;G6 TO 95 ]F 



NED BV PRIERR SubRb UNi 



MORE ERROR 
ERROR 



(HECKS 



;G0 CHECK FOR CHANGES IN DRUE 
;G0 TO 7$ if NO ERROR 
; RE TURN HERE IF ERROR 
.•ERROR * DEFINED BY STCDRvSTS S Jfif< j 
;G0 BACK FOR MORE ERROR CHi'f<^ 
;60 TO 9S IF ERROR 

.•CHECK ANV ERRORS NOT MAS»rK 

;MA5K FOR RMER1 
.-MASK FOR RMER2 
;G0 TO 8$ ]F NO ERROR 
.•RETURN HERE IF ERROR 
.•ERROR » DEFINED BY CMPlRRC^'S S BK) 
;60 BACK FOR MORE ERROR CHECKS 
.•GO TO 9$ IF ERROR 

;G0 CHECK FOR SECONDARY ERRORS 

J (50 TO 9$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.•ERROR * DEFINED BY SECERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 



:n§ 



INt 



SEEK AT OFFSET 



♦iTA'CK.SP 
SeASE.RO 
TST0UE,R1 
*55.$TESTN 



SCOPE CALL 

START OF TEST 

INITIAI IZE STACK POINTER 

RO = UNI8US ADDRESS 

(Rl) DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT MAIL BOX 



pc>rsTPPp 

054150 



I 

?t 
10S 

#0,RMDcO 
tfO.RMDAO 

*OFFSET^GO.RMCSi 
*PUTINX,R2 
*Mfj^C.(R2) + 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: | ^ 

CLEAR CONTROLLER & SELECTlDE VI (JE 

VERIFY CONTROLLER CLEAR OPERAjTlON 

PACK ACKNOWLEDGE IF VOLUME NOT Vf !D 

VERIFY PACK ACKNOWLEDGE ' 

RECALIBRATE IF "SfcT'OR "PiP" S? ' 

VERIFY RECALIBRATION 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP --UBROUiINfc 

GO TO 10$ IF ERROR 

Cv.IfVlDER - 0 

TRACK = 0> SECTOR =0 

I ;LOAlD OFFSET COMMAND IN Bl F>f- 

R2 POINTS TO REGISTER TABLE 
WRITE REGISTER iNDEx 'ABlE 



RM05/^/2 rcTNL tst i 

•^■^^ SEEK AT OFFSE' 
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H 

I 

PAGE 



'805 


05A160 


112722 


OOOOCfi 
000000 






M0V8 


'SOti 


034164 


112722 






M0V8 


^807 
'808 


034170 


r2722 


000200 






M0V8 


034174 
034200 
034202 
054204 


004737 
000404 
000240 
104000 


045160 






jSR 
BR 
NOP 
EMT 




C34206 


000137 


034404 






-MP 


•809 


034212 


004737 


042624 




3$: 


JSR 




034216 


004737 


043522 






JSR 


1811 


034222 








4$: 




1812 


034222 


012737 


000005 


001410 




MOV 


'813 


034230 


112737 


000000 


001543 




M0V8 


''8"'4 


034236 


112737 


000200 


001544 




M0V8 


1815 


034244- 
034250 
034252 
034254 


004737 
000404 
000240 
104000 


043160 






JSR 

BR 

NOP 
EMT 




034256 


0001 37 


034404 






JMP 



J 



Rf|DA.(R2)* 
#RMCS''.(fi2)* 
#^00.(R2)* 
PC. PUT 
3$ 



1816 
1817 
1818 

1819 
1820 



1821 
1822 



1823 
1824 



1825 
1826 



C34262 



5S: 



10$ 

PC.GETST5 
PC.TIMOUT 

</SEEK.G0,RMC,$10 

#RMCS1.PUTI)Slx 

*20Q,PUTJNX+1 

PC. PUT 

5$ 



10^ 



^68 



.-WRITE TERMINATOR 

jGO URITE REGISTER(S) WHh Pj^ ^^JBfeO.TlNf 

;G0 TO 3$ IF NO ERROR 

.•RETURN HERE If ERROR 

.■ERROR 0 DEFINED BY PUT SUBROUTINE 

;G0 TO 10$ IF ERROR 

;S^TUP FOR STATUS FETCH 

;WAIT FOR OFFSET TO COMPlE IE 



034262 004737 



'827 
'8r'8 



034266 
C34272 
034274 
034276 
034300 
034304 
034304 
034310 
034312 
034314 
034316 
034320 
034324 
034 524 
034330 
034332 
034334 
034336 
034340 
034344 
034 344 
034350 
034352 
034354 
034356 
034360 
034362 
034364 
034370 
034370 
034 374 
034376 
C?4400 



004737 
000404 
000240 
104000 
0001 37 

004737 
000405 
00G240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
1 1 5760 
000010 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 



043522 
042710 

034404 
043706 

034404 
051024 

034404 
050400 



.-WAIT FOR COTIAND TO COMPLETE 



6$: 



7$: 



8$: 



034404 
044540 



9$: 



JSR 


PC.T]i«1GU^ 


JSR 


L ^ 
PC. GET 


BR 


6$ 


NOP 




EMT 




JMP 


10$ 


JSR 


Pf .PPIERR 


BR 




NOP 




PMT 




JSR 


PC.a(SP3* 


JMP 


10$ 


JSR 


PC.SEKSTS 


BR 


8$ 


NOP 




EMT 




JSR 


pc.a(SP)* 


JMP 


10$ 


JSR 


PC.CMPERRSTS 


.WORD 


NDTMS< 


.WORD 


DPE 


BR 


9$ 


NOP 




EMT 




JSR 


PC.aifSP)* 


JMP 


10$ , 


JSR 


PC.SECERR 


BR 


10$ 


NOP 




EMT 





.•LOAD SEEK COMMAND 

;LOAD REGISTER INDEX TA8 E 

;60 WRITE REGISTER($) WITH PUT SUBROUTINE 

;G0 TO 5$ IF NO ERROR 

.•RETURN HERE IF ERROR 

; ERROR # DEFINED BV PUT SUBROUTINE 

;G0 TO 10$ IF ERROR 



GO TO TIMOJT SUBROUTINE 

GO READ REGISTER(S) WITH GE " SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 10$ If ERROR 

GO CHECK FOR PRIMARY ERRORS 

60 TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR P DEFI^JED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 10$ IF ERROR 

GO VERIFY RESULTS OF SEEK OPPRATiON 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SEKSTS SJBfjIObTJNE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 10$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 ' 

MASK FOR R?-'ER2 

GO TO 9$ IF NO ERROR 

RE '"URN HERE IF ERROR 

ERROR » DEFINED BY CMPERRSTS SUBROJ'INE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 10$ if ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN MERE IF hRROR 

ERROR * DEFINEp BY StfERR SiJBRu-^'IM 



'SS SEEK AT OFFSET 
05^402 004736 

^850 
^831 



034404 
034404 
034406 
034 -,10 
034414 
034420 
034424 

^832 

1833 034432 
034436 
034440 
034442 
034444 

1834 034450 

1835 034450 

1836 034454 
^837 034462 

1838 034470 

1839 034476 

1840 034504 

1841 034510 

1842 034514 

1843 034520 

1844 034524 

1845 034530 

1846 034534 
IS'. 7 034540 

1848 034540 
034544 
034546 
034550 
034552 

1849 03A556 
1850 

'851 034562 
C34566 
034570 
034572 
034574 
1852 034600 
1«53 034600 
034604 
034606 
034610 
034612 
034614 

1854 034020 

1855 034620 

1856 034624 

1857 034630 

1858 034634 



000004 
000240 
012706 
01 3700 
013701 
012737 

004737 
000404 
000240 
104000 
000137 

012703 
012737 
012737 
012737 
012737 
012702 
112722 
112722 
112722 
112722 
112722 
004737 

004737 
000404 
000240 
104000 
000137 
004737 

004737 
000404 
000240 
104000 
000137 



004737 

000405 
000240 
104000 
004736 
000137 

012704 
012705 
016014 
016002 



001100 
001276 
001464 
000056 

052264 



035032 

000037 
000000 
OOOOCO 
000000 
000031 
001543 
000006 
000034 
000032 
000000 
000200 
042624 

043160 



035022 
043522 

042710 



035022 



043706 



035022 

103274 
\77777 
000020 
000020 



«WCR0 V04.00 



10S: 



J 12 
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JSR 



pc.acspp* 



;|jO back for more; ER?«Ct< 'HF t. 



.••TEST 56 



LOOK A^^EAD ^EST 



001226 



T 5,156: J 
SCOPE 
NOP 
MOV 
MOV 
MOV 
MOV 

JSR 
BR 
NOP 
EMT 
JMP 



1$: 



001442 
001444 
001416 
001410 



2$: 



3t: 



4$: 



5$: 
6$: 

7S: 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVQ 

M0V8 

M(Dve 

M0V8 

Move 

JSR 

JSR 

BR 

NOP 

EMT 

JMP 

JSR 

JSR 

BR 

NOP 

EMT 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

MOV 
MOV 
MOV 
MOV 



fS'ACK.SP 
$8ASE,R0 
TSTQUE-^RI 
#56,$TESTN 

PC.CNTCLR 
1$ 



SCOPE CALL 

SIART Of TEST 

INITIALIZE STACK POINTER 

RO - UNI8US ADDRESS 

(R') = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAR 



BOX 



16$ 

*31..R3 
#0,RMUFO 
*0.RMDCO 
#0lRMDAO 

*SEARCH!G0.RMCS1C 
#PUT1NX,R2 
*RMDA,(R2)+ 
#R«DC.(R2)* 
#RM0F . (R2)>- 
*RMCS1,(R2)* 
#200, (R2)* 
PC. GETSTS 

PC. PUT 
3$ 



GO ISSUE CONIROLLER CLEAR 

60 TO 1$ IF NO ERROR 

RETURN HERE, IF ERROR 

ERROR NUMBEl? DEFINED BY SUBROUTINE 

GO TO 16$ IF ERROR 

R3 = SAMPLE COUNT FOR 18 BIT MODE 
START WITH 18 BIT MODE 
CYLINDER - 0 

SEARCH TRACK = 0. SECTOR - 0 
;RE CALIBRATE COMMAfJC 



15$ 

PC.TIMOUT 

PC, GET 
4$ 



15$ 

PC.PRIERR 
5$ 



PC,a(SP)+ 
15$ 

*8UFFFR,R4 
*-l .R5 

RMLA(RO) . (R4) 
RMLA<R0).ft2 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
GO TO 3$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR tt DEFINED BY PUT SUBROUTINE 
GO TO 15$ IF ERROR 
WAIT FOR COMPLETION 

GO READ REGISTER(S) WITH GET SUBROUTImF 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 15$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 15$ IF ERROR 

R4 = STORAGE ADDRESS 
R5 - GROSS TIMER 
STORE RMLA SAMPLE 
GET ANOTHER LOOK 



ZRIWBO RM05/3/2 FCTNL TST 1 
'56 LOOK AHEAD TEST 



MACRO VOA.OO 4-APR-81 
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SEO 01S3 







vcvc *• 








R2, (R4 ) 


ARE SAMPLES SAMf'' 














8$' 


YES 


1 OV ' 










DEC 


R5 


TIMEOUT'*'' 






Oni 370 






BNE 


7$ 


NO - IRy AGAIN 






00041 1 






BR 


10$ 


■PROGRAM TIMEOUT 


1864 


03A652 


062704 


000002 


8S: 


ADD 


*2.R4 


ADVANCE STORAGE ADDRESS 


'865 


03A656 


005303 






DEC 




•ALL SAMPLES TAKEN?? 


1866 


03A660 


001410 






8EQ 


11$ 


•rEs; . 


'867 


03A662 


026002 


000020 


9$: 


CMP 


RMLA(R0).R2 


•WAIT FOR CHANGE 


1868 


034666 


001 360 






BNE 


7$ 


iVES. ' 


1869 


03A670 


005305 






DEC 


R5 


•TIMEOUT?? 


1870 


034672 


001373 






BNE 


9$ 


•NO 


1871 


034674 






10$: 




352 






034674 


104352 






EMT 




187? 


034676 


000137 


035032 




JMP 


16$ 





1873 
1874 
1875 
1876 
1877 
^878 
1879 
■•880 
•881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 

1905 
1906 
1V07 
'908 



034702 
034706 
C34712 
034716 
034724 



034726 
034732 
034736 
034740 
034744 
034746 
03^.750 
034752 
034754 
034756 
034762 
034766 
034 770 
034772 
034774 

034776 
035004 
035006 
035014 
035020 

035022 
035022 
035026 
035032 



012702 
012703 
012704 
032737 
001404 



012702 
012703 
012405 
062705 
020205 
103001 
005005 
020514 
001406 
010537 
011437 
104353 
000414 
005303 
001360 

032737 
001006 
012737 
012703 
000647 



012637 
012637 



003500 
000036 
103274 

010000 001442 



003700 
000040 



000100 



001140 
001142 



010000 001442 

010000 001442 
000041 



000006 
000004 



;SET 18 BIT SAMPLE PARAMETERS 

11$: MOV *3500,R2 

MOV *30.,R3 

MOV *8UFFER,R4 

Bir #FMn6.RMOF0 

BEQ 12$ 

;StT 16 BIT SAMPLE PARAMETERS 

MOV *3700,R2 

MOV *32..R3 

MOV (R4J+.R5 

ADD *100.R5 

CMP R2,R5 ' 
BHIS 13$ 

CLR R5 

CMP R5.(R4) 

BEQ 14$ 

MOV R5,$GDDAT 

MOV (R4).$BDDAT 

EMT 353 

BR 15$ 

DEC R3 

BNE 12$ , 

BIT *FMT16.RM0f0 

BNE 1 5$ , 

MOV 4FMT16.RM0F0 

MOV #33., R3 
BR . 2$ 



12$: 



13$: 



14$: 



15$: 



16$: 



MOV (SP)+,ERRVfeC+2 
MOV rSP^+.ERRVEC 



R2 = MAXIMUM SAMPLE 

R3 = NUMBER OF COf^IPARES 

R4 = BUFFER ADDRESS 

IS SAMPLE FOR 18 BJT MODE 

8R IF YES 



R2 = MAXIMUM SAMPLE 

R3 = NUMBER OF COMPARES 

GET A S>V1PLE A^^D INCREMENT 

FOR EXPECTED VALUE Of NEXT 

SHOULD NEXT BE 0 ? 

NO! I 

/ES - CHANGE EXPECTED 
IS NEXT SAMPLE CORRECT?? 
YES! . 

EXPECTED VALUE 
RECEIVED VALUE 



;ALL SAMPLES CHECKED?? 
;N0 - TEST NEXT SAMPLE 

TEST DONE FOR 16 BIT MODE 
BR IF YES 

SET 16 BIT MODE AND 
SET SAMPLE COUNT. 
TEST AGAIN 



;;POP STACK INTO ERRVEC*2 
;POP STACK INTO ERRVEC 



035032 

035032 0OOG04 
035034 00O24G 



■•TEST 57 SEARCH ON CYLINDER 

•-»*»»»♦»»•♦♦»♦•♦••*•♦»♦♦♦•♦**•*••*•»»**»*••»*•*»»»»••*•»•*»•»»•• 

rST57: 

SCOPE .-SCOPE CAIL 

NOP ;START OF TEST 



ZSrWBO RM05/5/2 FCTNL TST 1 
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MACRO VOA.OO 



L 12 

4-^PR-8^1 11:43:^8 PAGE 13-71 



035036 012706 001100 

035042 013700 C01276 

035046 013701 00U64 

035052 012737 000057 001226 

'909 

i9-'C 035060 004757 041650 

035064 054150 



MOV 
MOV 
MOV 
MOV 

JSR 
.WORD 



♦STACK, SP 
$8ASE,R0 
TSTQUE.R1 
#57.$TESTN 

PC. TSTPRP 
054130 





035066 


000404 








BR 


1$ 




035070 


000240 








NOP 






035072 


1 04000 








EMT 






035074 


000137 


035510 






„MP 


13$ 


1911 


035100 








1 J.• 






1912 


035100 


012703 


000035 






MOV 


*29. ,R5 


1913 


035104 


012737 


000000 

W www W W 


001444 




MOV 


*0.RMDCO 


19'' 4 


035112 


012737 


000000 


001416 




MOV 


*0,RMDAO 


1915 


035120 


012737 


000000 

WW w w w V 


001442 




MOV 


*0-RMOFO 


1916 


035126 


012737 


000005 


001410 


2$.• 


MOV 


*SEEK'G0.RMCS10 


1917 


035134 


012702 


001543 






MOV 


*PUTINX.R2 


1918 


035140 


1 12722 


000006 

W W W V V/ 






M0V8 


/yoMDA (R2}'^ 


1919 


035144 


11 2722 


000034 






M0V8 


*RMDC, (R2)+ 


1920 


035150 


1 1 2722 


000032 

WW WW 






M0V8 


#RM0F.(R2}^ 


1921 


035154 


112722 


000000 






M0V8 


#RMCS1 , (R2)+ 


1922 


035160 


112722 


00020C 






M0V8 


*200 (R2)* 


1923 


035164 


004737 


042624 






JSR, 


PCGETSTS 

' \r 0 W^ ■ W ' W 


1924 


035170 


004737 


043160 






jsr" 


PC PUT 




035174 


000404 








BR 


3$ 




035176 


000240 








NOP 






035200 


1 04000 








EMT 






035202 


000137 


035510 






JMP 


13$ 


1925 


035206 


004737 


04^522 




3S.• 


JSR 


PCTJMOUT 


1926 
















1927 


035212 


004737 


042710 






JSR 


PC, GET 




035216 


000404 








BP 


4S 




035220 


000240 








NOP 






035222 


104000 








EMT 






C35224 


000137 


035510 






JMP 


13$ 


1928 


035230 








4$: 






1929 


035230 


004737 


043706 






JSR 


PCPRJERR 




035234 


000405 








8R 


5$ 




035236 


000240 








NO^* 






035240 


104000 








EMT 






035242 


004736 








JSR 


PC,a(SP)+ 




035244 


000137 


035510 






JMP 


13$ 


1950 


035250 








5$: 






1931 


035250 


004737 


051024 






JSR 


PC.SEKSTS 




035254 


000405 








BR 


6$ 




035256 


000240 








NOP 






035260 


104000 








EMT 






035262 


004756 








JSR 


pc,a(SP)* 




035264 


OOOIV 


035510 






JMP 


13$ 


^932 


035270 


012757 


000031 


001410 


6S: 




*SEARCH.G0.RMCS 



INITIALIZE STACK POINTER 
RO UNI8US ADDRESS 
(R1) = DEVICE BEING TESTED 
;S£T TEST NUMBER IN APT MAIi 



SOX 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER i SELECT DEVICE 

VBRIFV CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'VIP" IS SET 

VERIFV RE CALIBRATION 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BV TSTPRP SUBROUTINE 

GO TO 13$ IF ERROR 

R3 = MAXIMUM SECTOR ADDRESS 

CYLINDER - 0 

TRACK = 0, SFCTOR 0 

18 BIT FORMAT 

SEEK COMMAND 

SETUP REGISTER INDEX TA3LE 
FOR SEEK TO CYLINDER 0 



SETUP FOR STATUS FETCH 

GO WRITE REGISTER(S) WITm PUT SUBROUTINE 

GO TO ?$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

60 TO 13$ IF ERROR 



GO READ REGISTER(S) WITH GET SUBROUTIfdc 

60 TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUi INE 

aO TO 13$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

GO VERIFY RESULTS OF SEEK OPEPATI^N 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ft DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

.-STORE SEARCH COMMAND 



10 ' \ 



7RWB0 RM05/3/2 fCTNL T5T ' 
SEARCH ON CVLINDER 



193A 
T93S 
193o 
1937 



1938 
1939 



1940 
19A1 



*942 
1943 



1944 
1945 



1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
'959 



035276 
035302 
035304 
035306 
035310 
035314 
035314 

035320 
035324 
035326 
035330 
035332 
035336 
035336 
035342 
035544 
035346 
035350 
C35352 
035356 
035356 
035362 
035364 
035366 
035370 
035372 
035376 
035376 
035402 
035404 
035406 
035410 
035412 
035414 
035416 
035422 
035422 
035426 
035430 
035432 
C35434 
035436 
035442 
035442 
035446 
035452 

035454 
035462 
035464 
035472 
035476 
035504 
035510 



004737 
000404 
000240 
104000 
0001 37 

004737 

004737 
000404 
000240 
104000 
000137 

004737 
000405 
000240 
104000 
004736 
0001 37 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
1 1 5760 
000010 
000405 
000240 
104000 
b04736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

005237 
020337 
103306 

032737 
001012 
012737 
012703 
012737 
000137 



043160 

035510 
043522 
042710 

035510 
043706 

035510 
056422 

035510 
050400 



MACRO V04.00 4<-APR-81 



JSR 
BR 
NOP 
EMT 



7$: 



8$: 



9$: 



10$: 



035510 
044540 

035510 

001416 
001416 



010000 001442 

010000 001442 
000037 

000000 001416 
035126 



11$: 



12$: 



13$: 



JSR 

JSR 

BR 

MdP 

EMT 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

.WORD 

.WORD 

BR 

NOP 

EMT 

JSR 

JW 

JSR 

BR 

NOP 

FMT 

JSR 

JMP 

INC 
CMP 
BHIS 

BIT 
BNE 
MOV 
MOV 
MOV 
JMP 



M 12 

ll:43:t'8 PAuE M-7? 



SEO 0^55 



Pf .POT 



13$ 

pctImcIut 

PCGf T 
8$ 



13$ . . 

PC.phl€RR 
9$ 



PC.il(SP) + 
13$ 

PC.SCHSTS 
10$ 



pc.a(SP>+ 

1^$ 

PC.CMPERRSTS 

NDTMSK 

DPE 

11$ 



PC.a(SP)*- 
13$ 

PC."ECERR 
12$ 



PC.a{SP)+ 
13$ 

RMDAO 

R3,RMDA0 

6$ 

*FMT16.RM0F0 
13$ 

#FMT16,RMOF0 
*31 . ,R3 
*0. RMDAO 
2$ 



GO WRITE REGJSTER(S) WITH PUT SUBROUTINE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BV PUT SUBROUTINE 

GO TO 13$ IF ERROR 

;WAIT FOR SEARCH TO COMPLETE 

GO READ RE6ISTER(S> WITH GET SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GE^ SUBROUTINE 

do TO 13$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HEftE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 



GO VERIFY SEARCH OPERATION 

GO TO 10$ IF NO ERROR 

RETURN HERE T ERROR 

ERROR * DEFINED BY SCHSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMERl 

MASK FOR RMER2 

60 TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BV CMPERRSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 13$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

INCREMENT SECTOR ADDRESS 
DONE ALL SECTORS?? 
NO. . 

IS 16 BIT FORMAT DONE?? 

BR IF YES 

SET 16 BIT FORMAT 

R3 - MAXIMUM SECTOR ADDRESS 

START AT TRACK 0. SECTOR 0 

GO TEST AGAIN 



layi^C RM05/5/2 FCTNL TST 1 
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MACRO VGA, 00 4-APR-81 



'TEST 60 



1960 
1961 



035510 






035510 


000004 




035512 


000240 




0355K 


012706 


001100 


035520 


013700 


001276 


035524 


013701 


001464 


035530 


012737 


000060 001226 


035536 


004737 


041650 


035542 


054130 





TST60: 



SCOPE 
NOP 
MOV 
MOV 

3qv 
ov 

JSR 
.WORD 





035544 


000404 






1 


BR 




035546 


000240 








NOP 




035550 


104000 








EMT 














IMP 


"Oc 










1 * • 


1 lUV 




U J J J JO 


\J 1 CI Df 








1964 


035564 


012737 


000000 


001442 




MOV 


1965 


035572 


012704 


000035 






MOV 


1966 


035576 


012703 


000632 






MOV 


1 70r 












Mn\y 






012737 






?t • 
c * • 




1969 


035614 


010537 


001444 






MOV 


1970 


035620 


012702 


001543 






MOV 


1971 


035624 


112722 


000032 






M0V8 


1972 


035630 


11272? 


000034 






rove 


1973 


035634 


11272? 


000006 






MOVB 


1974 


035640 


112722 


000000 






M0V9 


1975 


035644 


112722 


000200 






Move 


1976 


035650 


004737 


04?6?4 






JSR 


1977 


035654 
035660 
035662 
035664 


004737 
000404 
000240 
104000 


043160 






JSR 
BR 
NOP 
EMT 




035666 


000137 


036214 






JMP 


1978 


035672 








51: 




1979 


035672 


004737 


043522 






JSR 


1980 














1981 


035676 
035702 
035704 
035706 


004737 
000404 
000240 
104000 


042710 






JSR 
BR 
NOP 
EMT 




035710 


000137 


036214 






JMP 


1982 


035714 








'.S.- 




1983 


035714 
035720 
035722 
035724 


004737 
000405 
000240 
104000 


043706 






JSR 
BR 
NOP 
EMT 




035^26 


004^36 

0001 37 








JSR 




0«730 


03i 






JMP 
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SEARCH OFF CYLINDER 



SEO 01S6 



*STACK.SP 
SaASE.RO 
TSTQUE,R1 
<f60.$TESTN 

PCTSTPRF 
054130 



1$ 



14$ 

<r0.RMDA0 
tfp.RMQFO 
*29.^R4, 
/lf410.,R3 
*411..R5 
#SEEK!00.RMC510 
RS.RMpffO 
#PUTJNX,,R? 
ttRMOF Ah2)* 
#RMDC,(R2)+ 
ifRMDA, (R?) + 
#RMCS1.(R2)+ 
*200.(R2)+ 
PC.GETSTS 
PC. PUT 



14$ 

PC.TlMOUT 

PC, GET 
4$ 



14$ 

PC. PR J ERR 
5^ 



PC.S(SP)* 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO - UNI BUS ADDRESS 

(Rl) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR ^EST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY TSTPRP SUBROUTINE 

GO TO 14$ IF ERROR 



START WITH 18 BIT MODE , 

R4 = MAXIMUM SECTOR ADDRESS 

R3 - SEARCH CYLINDER 

R5 - SEEK CYLINDER 

LOAD SEEK COMMAND 

LOAD CYLINDER ADDRESS 

R2 POINTS TO REGISTER TABLE 

SETUP REGISTER INDEX TABLE 

FOR SEEK COMMAND 



TERMINATE TABLE 
SETUP FOR STATUS 

GO WRITE REGISTER(S) WITH PJT SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GQ TO 14$ IF ERROR j 

rWAIT FOR SEEK TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBr<pUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERRQP * DEFINED BY GET SUBROUTINE 

GO TO 14$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROJMf^f 

GO BACK FOR MORE ERROR '"HE''KS 

GO TO '4$ IF ERROR 





ftM05/5/2 KTNL 


T5T 1 




SEARCH 


OFF CrLlNDER 




055734 






'98S 


035754 


004757 






035740 


000405 






035742 


0OOP40 






055744 


104000 






035746 








035750 


000157 


056214 


1986 


035754 






1987 


035754 


010537 


001444 


1988 


035760 


012757 


000051 

WWWW J 1 


1989 


035766 


004737 


045160 

W^ J 1 WW 




035772 


000404 






035774 


000240 






035776 


1 0^000 






036000 


0001 37 


056214 


1990 


036004 






1991 


036004 


004737 


045522 


1992 








1993 


036010 


004757 


042710 




C36014 


000404 






036016 


000240 






036020 


104000 






03602? 


0001 37 


056214 


1994 


036026 






1995 


036026 


004757 


045706 




036032 


000405* 






036034 


000"240 

W "V 






036036 


104000 






036040 


004736 

WW~ > 






030042 


0001 57 

WWW ' J ' 


036214 


1996 


036046 






199/ 


036046 


004757 


056422 




036052 


000405 

WWW" W J 






036054 


000240 

w w w t ~ w 






036056 


1 04000 






036060 


004756 






03606*^ 


000137 

WWW 1 J ' 


036214 


1998 


036066 






1999 


036066 


004737 


050400 




036C 72 


1157'60 






036074 


000010 

WWWW 1 w 






036076 


000405 

W\ w » w •/ 






03611 60 


000240 

WWW b~ w 






036102 


104000 






036104 


004736 






036106 


000' 57 


056214 


2000 


036112 






2001 


036112 


004757 


044540 




036116 


000405 






036120 


000240 






036122 


104000 






036124 


004756 






036126 


000137 


056214 




036132 






2001 


036132 


005505 




2004 


036134 


005205 


K 


?005 


0361 36 


005237 


OOU'6 



* B 13 

1^:45:28 P',GE 13-74 



SCO 0157 



PC.SEKSTS * 
6$ 



pc.a(SP)» ? 

14$ 5 

R3.RNDC0 1. 

*s:arch.go.^csi 

PC. PUT 
7$ 



14$ 

PC.TIMOUT 

PC. GET 
8$ 



14$ 

PC.PRIERR 
9$ 



PC,a(SP)* 
14$ 

PC.SCHSTS 
10$ 



pc,a(sp)* 

14$ 

PC.CMPERRSTS 

NDTMSK 

DPE 

11$ 



pc.afsp)* 

14$ 

PC.SECERR 
12$ 



PC.a(SP)* 
14$ 

R3 
R5 

RMDAO 



GO VERJFY RESULTS OF SEEK OPERATIOfJ 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEtCSTS SUBROUTINE 

GO BACK fOR MORE ERROR CHECKS 

GO TO 14$ IF ERROR 

LOAD CYLINDER ADDRESS 

I .-LOAD SEARCH COff-AND 

GO WRITE REGISTER(S) WITH PUT SU8R0UMNE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 14$ IF ERROR 

WAIT FOR SEARCH TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 14$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 
60 TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR M DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 14$ IF ERROR 



3irG0 VERIFY SEARCH OPERATION 

-SGO TO 10$ IF NO ERROR 

*RETURN HERE IF ERROR 

tTERROR It DEFINED BY SCHSTS SUBROUTINE 

•J GO BACK FOR MORE ERROR CHECKS 

>G0 TO 14$ IF ERROR 

"check any errors NOT MASKED 
-J^IASK FOR RMER1 
-J>1ASK FOR RMER2 
-tGO TO 11$ IF NO ERROR 
RETURN HERE IF ERROR 

^RROR # DEFINED BY CMPERRSTS SUBROUTINE 
^0 BACK FOR MORE ERROR CHECKS 
,^0 TO 14$ IF 'ERROR 



GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFiNED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 14$ IF ERROR 

DECREMENT SEARCH CYLINDER 
INCREMENT SEEK CYLINDER 
INCREMENT SECTOR ADDRESS 



'■7f)'»m{) RM05/5/2 FCTNL TST 1 
•60 SEARCH OFF CYLINDER 



•WCRO V04.00 <.-APR-81 



2006 
2007 
2008 
^009 
PCO 
2011 
?G12 
2013 
20U 
2015 
2016 
2017 
2018 
2019 



036U2 
056 U6 

036150 
056156 
036160 
036166 
036172 
036176 
036202 
036210 
0362K 



0362U 
0362K 
036216 
036220 
036224 
036230 
036234 

2020 

2021 036242 
036246 



020437 
105020 

032757 
001016 
012737 
012704 
012705 
012705 
012737 
000137 



000004 
000240 
012706 
013700 
015701 
012737 

004737 
054130 



001416 



010000 

010000 
000037 
000632 
000635 
OCOOOO 
055606 



0C1100 
001276 
001464 
00006^ 

041650 



001442 
00H42 

001416 



15$: 
14$: 



CMP 
BHIS 

BIT 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
JMP 



;*TEST 61 
TST61 : 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 
.WORD 



2022 
2025 
2024 
2025 
2026 
2027 
2028 
2029 
2050 
2051 
2052 
2055 
2054 
2055 



2056 



056250 
056252 
056254 
056256 
056262 
056262 
0562^0 
056276 
056504 
056512 
056516 
056522 
056526 
056532 
056536 
056542 
056546 
056546 
056552 
056554 
056556 
056560 
056564 
056564 
C56570 



000404 
000240 
104000 
000137 

012757 
012757 
012757 
012757 
012702 
112722 
112722 
112722 
112722 
112722 
004757 

004757 
000404 
000240 
104000 
000137 

004757 
000404 



056614 

000000 
000000 
000056 
000051 
001545 
000054 
000052 
000006 
000000 
000200 
042624 

0522(^4 



036614 
04516C 



001442 
00U44 
001416 
001410 



1$: 



2$; 



5$: 



BR 
NOP 
EMT 
JMP 

MOV 

MOV 

MOV 

MOV 

MOV 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

JSR 

JSR 

BR 

NOP 

EMT 

JMP 

JSR 
BR 
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R4.RnDA0 
13$ 



.-DONE ALL SECTORS?? 
:N0 - DO «KT SECTOR 



*FMT16.RM0F0 
14$ 

#FMT16.RM0F0 
#31 ..R4 
*410. .R5 
*4r .,R5 
#0,RMDAO 
2$ 



DONE 16 BIT MODE VET ? 

BR IF YES 

SET 16 BIT FORMAT 

R4 = MAXIMUM SECTOR ADDRESS 

R5 = SEARCH CYLINDER 

R5 = SEEK CYLINDER 

START AT TRACK = 0, SECTOR = 0 

GO TEST AGAIN 



SEARCH INVALID SECTOR 



*STACK,SP 
$8ASE.R0 
TSrOUE.RI 
#61 ,$TESTN 

PCTSTPRP 
054150 



1$ 

12$ 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1J = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'VIP" IS SET 

VERIFY RECALIBRATJON 

60 TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 12$ IF ERROR 



#0,RMOFO 
tfO.RMDCO 
#50.,RMDAO 

/(rSEARCH:G0,RMCS10 



#PUTINX.R2 
#R«DC.(R2)* 
#RM0F.(R2)+ 
#RMDA. (R2)- 
#R«CS1,(R2)+ 
#200. (R2)* 
PC.6FTSTS 

PC.CNTCLR 
5$ 



12$ 

PC .PL' 
4$ 



SET 18 BIT FORMAT 
CYLINDER = 0 

FIRST INVALID SECTOR - 50. 
.•SEARCH COMMAND 



.•WRITE REGISTER TABLE FOR 
.COMMAND 



;TERMINATfc TABLE 
.•SETUP STATUS FETCH 

GO ISSUE CONTROLLER CLEAR 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR NUMBER DEFINED BY SUBROUTINE 

GO TO 12$ IF ERROR 

;G0 WRITE REGISTER(S^ WPH PUT SjBRfXTAf 
.•GO TO 4$ IF NO ERROR 





RM05/5/2 KTNL 












SEARCH 


INVAl ID 


cc r T flR 










0565 rc 


000240 








NOP 




0565/^A 


1 Ay AAA 

104000 








t 1 ' 




0565/^6 


000 1 5^ 










CxJ JO 


03o402 
















004 /^5r 


























/ A^ 


AAy 7^r7 
004 f5f 












036*« 1 


AAA> Ay 

U00404 








MR 

on 






AAAOy A 

U00i:*»0 








NOP 




A7^/ ^ 


1 Ay AAA 

1 04000 








PMT 

till 




A 7^ / OA 


AAA1 77 

0001 br 








jMP 




A3^/ 0/ 

U 56*k:*» 








SI- 






A7iL/ "5/ 


r\r\/ 77 7 


043706 






JSR 




A7iLy 7A 


A AAy AC 

000405 








RR 






AAA 0/. A 

OOO^hO 








NOP 






1 Ay AAA 

1 OhOOO 












A7i^/ 7iL 

U jD*»5o 


AA/ 77A 








'SR 






AAA 177 

0001 bf 


036614 


























AAy 777 
OO** ' 5 r 


05642? 










A7A/ 


A A Ay AC 

OOOhUj 








6R 






AAA OA A 








NOP 




A7<v/ C/ 


1 Ay AAA 












A7AZ. 
U5C)*» JO 


AAy 77A 
OUh 1 50 








JSR 






AAA1 77 
UOU 1 5 f 


036614 






JW 












7$: 








C\r\/ 7X7 


057766 






JSR 






r\r\r\/ AC 








BR 






AAAOy A 

000c hO 








NOP 




A ZAA 7/. 


1 Ay AAA 
1 OhUOO 








FMT 




A1A/ 7A 


AAy /7A 
\J\JH 1 50 








JSR 




AT^CAA 


flAAl 77 

UOU 1 5 ( 


036614 






JMP 


















A7Z C A/ 


f\(\l 777 


050400 






JSR 




1 A 

U5o J 1 U 


1 1 77AA 

1 1 ^ou 








WORD 




U 5o J 1 c 


AAAA1 A 

OOOU 1 u 








WORD 




A7AQ 1 / 


c\r\r\i AC 
OOOhU J 








BR 




n7A^ 1 A 


AAAOy A 








NOP 






1 Ay AAA 








L ■ 1 1 




A 7A COO 


AAy 77/^ 

00<>' 30 








SR 






AAA1 77 

000 1 bi 








iMp 


P050 










9$: 






n'!*.c7rt 


f\(\l 777 
OwH ( b' 


044 540 






jSR 




A7yit;7/ 
U30 


0004 03 








RR 




U 50 J 30 


AAAO/ A 

OOOcsU 








NOP 




A7<.C/ A 


1 Ay AAA 








FMT 






AAy 7Xt^ 
OOh ^ 30 








iSR 






AAA1 77 

OUU 1 ->f 


036614 






JMP 




U50 J jU 








10$- 




PAS'? 


\JJ\JJ J\J 


AACP77 


OOKIft 






1 '111. 


2054 


036554 


021727 


0014''6 


000100 




CMP 


2055 


036562 


101412 








BLOS 


2056 














2057 


036564 


032737 


010000 


001442 




BIT 


2058 


036572 


001010 








BNE 


2059 


03657A 


012737 


010000 


001442 




MOV 


206C 


036602 


012737 


000040 


001416 




MOV 



.RFTURN HERE IF ERROR 

.•ERROR * DEFINED BY PUT SjeROuT INE 

;G0 TO 12$ IF ERROR 

.•WAIT FOR GO TO RESET 

;G0 READ REGISTER'S) WITH GET SUeROUTiNF 

;G0 TO 5$ IF NO ERROR 

; RE TORN HERE IF ERROR 

.-ERROR * DEFINED BY CET SUBROUTINE 

;G0 TO 12$ IF ERROR 

;G0 CHECK FOR PRIMARY ERRORS 

;G0 TO 6$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.ERROR » DEFINED BY PRIERR SUSROUTINF 

;G0 BAC< FOR MORE ERROR CHECKS 

;G0 TO 12$ IF ERROR 

;G0 VERIFY SEARCH OPERATION 

;60 TO 7$ IF NO ERROR 

.-RETURN HERE IF ERROR 

;ERRC» * DEFINED BY SCHSTS SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 12$ IF ERROR 

;G0 CHECK FOR CHANGES IN DRIVE STATUS 
;G0 TO 8$ IF NO ERROR 
; RE TURN HERE IF ERROR 

.-ERROR # DEFINED BY STCDRVSTS SUBROUTINE 
.GO BACK FOR MORE ERROR CHECKS 
;G0 TO 12$ IF ERROR 

.•CHECK ANY ERRORS NOT MASKED 

.-MASK FOR RMER1 
;MASK FOR RMER2 
;G0 TO 9$ IF NO ERROR 
.•RETURN HERE IF ERROR 

.•ERROR * DEFINED BY CMPERRSTS SIBROUTINE 
;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 12$ IF ERROR 

.•GO CHECK FOR SECONDARY ERRORS 

;G0 TO 10$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.-ERROR » DEFINED BY SECERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;60 TO 12$ IF ERROR 

.•INCREMENT SECTOR ADDRESS 
;DONE YET ? 
;8R IF NO 

.-TEST FOR 16 BIT MODE VF^ ? 

;8R IF YES 

;SET 16 BIT MODE 

;SET INVALID SECTOR 



ZRMWO RM05/^/2 FCTNL TST 1 
61 SEARCH INVALID SECTOR 



2063 
2064 



2065 



206/ 
?068 
2069 
?Q70 
207] 
?07i 
2075 
2074 
2075 
2076 
2077 
2078 
2079 
'080 
.^081 



.'08? 



036610 


0Q0i57 


056546 


0366'' A 










0366U 


000004 




036616 


000240 




036620 


012706 


001100 


036624 


013700 


001276 


036630 


013701 


001464 


036634 


012737 


000062 


036642 


004737 


041650 


036646 


054130 





036650 
036652 
056654 
036656 
036662 
036662 
0366^0 
036676 
036704 
036710 
036716 
036722 
036726 
036732 
036736 
036742 
036^46 
036752 
036752 
036756 
036760 
036762 
036764 
036770 
036770 
036774 
036776 
037000 
037002 
037006 
037006 

037012 
C57016 
C37u2C 



000404 
000240 
104000 
000157 

012737 
012737 
013737 
105237 
012737 
012702 
1 1 2722 
112722 
112722 
112722 
112722 
004737 

004737 
000404 
000240 
104000 
000137 

004^37 
000^04 
000240 
104000 
0001 3f 

00473^ 

00473' 
000404 
00C24C 



037224 

gbco3i 

000000 
001332 
001417 
000000 
001543 
000006 
000034 
000032 
000000 
000200 
042624 

052264 



037224 
043160 

()37224 
04 3522 
0427^0 



•WCRO V04.00 



12t: 



E 13 
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j«1P 



2S 



.•TEST NEXT StCTOR 



•TEST 62 



SEARCH INVALID TRACK 



TST62: 



001410 
00U44 
001416 

001442 



2$: 



3f: 



4S: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 
.WORD 



BR 
NOP 
EMT 
JMP 

MOV 

MOV 

MOV 

INC8 

MOV 

MOV 

M0V8 

M0V8 

M0V8 

M0V8 

Moya 

J SIR 

JSR 
BR 
NOP 
EMT 

JMP 

JS,^ 

BR 

NOP 

EMT 

JMP 

J^R 

JSR 

BR 

NOP 



#S1ACK.SP 
$8ASE,R0 
TSTQUE.R1 
<lf62,STE5TN 

PC.TSTPRP 
054130 



12S 



SCOPE CAlL 

START Of TEST 

INITIALIZE STACK POINTER 

RO = UN18US ADDRESS 

(R1) = DEVICE BEING TESTED 

.-SET TEST NLMBER IN APT MAR BOX 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER I SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO IS iF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 12$ IF ERROR 



#SEARCH.G0,P/iCS10 
*0.RMDCO 
LSTRK.RMCAO 
RMDAO+i 
#0.RMOFO 
#PUTINX,R2 
#RMDA, (R2)* 
*RMDC (R2)* 
#R«0F.(R2)* 
*RMCS1.(R2)* 
*200,(R2)+ 
PC.GE7STS 



.•SEARCH COMMAND 
CYLINDER - 0 
LAST TRACK. SECTOR 0 
SETUP FIRST INVALID TRACK 
SET 18 BIT FORMAT 
WRITE REGISTER INDEX TABLE 



TERMINATE TABLE 



PC. CNTCLR 
3$ 

12S 

PC. PUT 
4S 

^i% 

PC.riMOUT 

PC.dtT 

5$ 



GO ISSUE CONTROLLER CLEAR 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR NUMBER DEFINED BY SUBROUTINE 

60 TO 12$ IF ERROR 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
GO TO 4$ IF NO ERROR 
RETURN HERE IF ERROR '\ 
ERROf^ * DEFINED BY PUT SUBROUTINE 
GO TO 12$ IF ERROR 



;WAIT FOR GO TO RESET 

GO READ REGISTER(S) WITH 
GO 0 5$ IF NO ERROR 
RE^.RN HERE If ERROR 



GET SUBROUTINE 



SEARCH INVALID TRACk 



MAC«0 V04.00 4-ADR-81 



?090 
?091 



.^098 
:'099 

.'101 

?1(K 
?10S 
2106 

J 108 
?109 

pm 



057030 
037030 
037034 
037036 
037040 
037042 
037044 
037050 
0^7050 
037054 
057056 
037060 
057062 
037064 
037070 
057070 
03707*4 
C57076 
037100 
037102 
037104 
037110 
057110 
037114 
037116 
037120 
037122 
037124 
057126 
0571 50 
03 7*1 54 
057154 
057140 
057H2 
057144 
057146 
057150 
037164 
037154 
0371«0 
037166 

037170 
0371 7fe 
037200 
037206 
037214 

037??4 



t0400C 
0001 37 

00^737 
0004C5 
000240 
104000 
004736 
000157 

0047137 
000405 
000240 
104000 
004 736 
0001 37 

004737 
000405 
000240 
104000 
004736 
000157 

004 737 
' 1 7760 

000010 
0C0405 
0002^0 
104000 
004756 
000137 

004^37 
000405 
000240 
104000 
004 736 
000137 

105237 
123727 
101414 

032757 
001012 
012737 
013757 
^05257 
000157 



0457j>6 
I 



057224 
056422 

037234 
057766 

057224 
050400 



5t: 



6S: 



057224 
044540 

037224 
001417 

001417 0OO2C0 



9$: 



10$: 



010000 

,010000 
!001532 
001417 
036752 



0p1442 

601442 
001416 



'1$: 



I 

'JSR 

B« 

MOP 

LfSft 

Omp 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

J5R 

JMP 

JSR 

.WORD 

^VORD 

NOP 
EMT 

JSR 
J MP 

8^" 
NDf? 
EMT 
^SR 
JM^ 

INC8 
CMP8 
BLOS 

BIT 

BNE 

MOV 

MOV 

iNC8 

JMP 



I 



.-•^EST 65 

' S'65r 
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12$ 

PC.PRItRR 
6$ 



PC.al(SP)» 

PC.SCHSTS 
7$ 



PC.iCSP)* 
'2$ 

Pl.STCDRv'STS 
8$ 



12$ 

PC.CI^RERRSTS 
NDTMSK. JAE 
DPE 
9$ 



pc.ac^p)* 

12$ 

PCSE^ERR 
10$ 



Pc,a(5P)* 
^2$ 

RMDAO+ 1 
RMDA0*1 .#'28. 
11$ 

#FMT'6,RMOF0 
12$ 

,»FMT16.RMOfO 
LSTRK.RMDAO 
RMDA0*1 
2$ 



i. 



.-ERROR * DEFINED BY GET SUBROUTINE 

;G0 TO 12$ IF ERROR 

60 CHECK FOR PRIMARY ERRORS 

60 TO 6$ JF NO ERROR - 

RETURN ME,RE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK fOR MORE ERROP( CHECKS 

GO TO 12$ IF ERROR 



GO VERIFY SEARCH OPERATION 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SCHSTS SUBROJTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 12$ IF ERROR I 

GO CHECK FOR CHANGES IN DRIVE STATtljS 
GO TO 8$ IF NO ERROR 
RETURN HERE IF ERROR 

ERROR tf DFFINED BY STCDRVSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 12$ IF ERROR 

.•CHECK ANY ERRORS NOT MASKED 

;MASK FOR RMER1 
MASK FOR RMER2 
GO TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 

ERROR » DEFINED BY CMPEWRSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
;G0 TO 12$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 12$ IF ERROR 

INCREMENT TRACK ADDRESS 
DONE ALL TRACKS ? 

NO! 

DONE 16 BIT MODE ? 

yes; I 

SET 16 Br FORMA) 

LAST TRACK. SEQTOR = 0 

SETUP FIRS' INVALID 'RACK Al[;[)Rt:S 

TEST NEXT TRACK 



SEA«;CH :n^a^id cylinder 



FC^NL TST 1 HAC«C vO^.OO 4-Aop*-81 
SEARCH INVALID uVLlNDE^ 




037256 



037266 



\7272 
57300 
57306 
!73U 



033262 
03726<» 
037266 
2115 |C|7272 

?n6 of 

2108 0 
211$ lO! 
?120 '037322 

2121 03A326 

2122 037332 

2123 037336 
21 2A 0373^2 
2125 037346 

''''mi 

037356 
037362 
037364 
037366 
I 037370 
\k29 037374 
2130 037574 
037400 
037402 
C57404 ' 
037406 
2^51 037/ 12 

2132 037412 

2133 , . 

2134 0^7416 
057'422 
037424 

* ,037426 
^ 037430 
?i3i 0 3 7454 
.^^36 037454 
037440 
037442 
J37444 
^37446 



212/ 
2128j 



000004 
000240 
012706 
013700 
013701 
012737 

0047^7 
0^130 



000404 
000240 
04000 
0001 57 

012737 
012737 
012037 
012737 
012702 
112722 
,112722 
1 2722 
112722 
112722 
0041^^7 

000404 
000240 
104000 
000137 

004737 
000404, 

gp024d 

l'0400&' 
000137 

pp4737 

004 73^' 

000404 

000240 

104000 

000137 

004737 
000405 
000240 
104QOO 
004^36 



1i 



001100 
001276 
001464. i ' 
000065' 00V26 

041650', 



I ! 



037624 



000031 
001467 
000000, 

oooood 

001543 

0o6o32 

050034 
000006 
OOOQOO 
OQ0200 
042624 



052264 I 

037<f,^(l ' 
0431 



0014-0 
001444 
001416 
001442 



1$: 



037624 
i]^3522 
042710 

037624 



2$: 



5if 



C-|i^706 



5$: ' 



SCOPF 

MOV 
MOV 
MO/ 

«ov| 1^ 

JSR 
.WORD 



if, 



NipP 
EMT 
JMP 

MOV 
MOV 
MOV 
MOV 

MOV , 

mqW 
MOve 
Move 

M0V8 
M0V8 
JSR 

jiR 

BR 

JSR 

iNOf*' 
'E|MT 
Jl^ 

J^R 

J,s4 
Bk? 
NOR 
EMf I 
^MP 

JS^ 
BR 
NOP 
EMT 



i 
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1 



<^STACK.SP 
SBASEwRO 
TSTQuE Jr1 
*65.f TE3TN 

PC,TSTPRP 
051^150 



1 

1$ 
T2$ 



srop: CALL 

STAKI Of TEST 

INITIALIZE STAC)f POINTER 

RO - UN I Bus ADDRESS 

(R1) = DEVICE BEING TfSTff) 

;SET TEST NUMBER JN APT MAIi b.^ 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOILOUS: 

TLEAR i-ONTROLLER i SELECT DfVlCE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS ^ET 

VERJFV RECALIBRATION 

GO TO 1$ If NO ERROR 

RETURN HERc IF ERROR , 

ERROR * DEFINED BY TSfPRP SUBROUTINE 

GO TO 12$ IF ERROR 



*search.go,rmcsio 



1*825. .RMbCO 
ISfO.RMDAO 
kfO./ifMOFO 
*P)jttNX.R2 
*RM0F.(R2)+ 
#RMDC.(R2)+ 
#RMDA. (R2)r 
#R«CS1,(R2)'^ 
<r200. (p2) + 
PC.GETSTS 

PC.CNTCLR 

pr.«dT 

12$ ' 

pLhmcdu* 

)|=b.GET 
5« 

12$ 

PC.F'RiERR 
6$ ' 



t-i ^a/. ^P 



.'SEARCH COMMAND! 



SIURT AT FIRST INVALID CYLINDER 
TRACK 0. SECTOR - 0 
SET 18 BII FORMAT 
;WRITE REGISTER IfJDEX TABLE 



.•SETUP STATUS FETCH j 

jGO ISSUE CONtROLLER CLEAR 
GO TQ 5S IF NO ERROR 
RETURN HERE IF ERROR 
ERROR NUMBER DEFINEP BY SM8F(0UTINf 
GO TO 12$ IF ERROR ^ 

GO WRI'TE REGISTER(S) WITH PUT SuBROUTINP 

GO TO 4f IF NO fcRROf^ 

RETURN HERE IF ERROR 

ERROR * DEHNED feV PoT SUBRCjtjTINf 

GO Tb )2* If ERROR 



GO READ ftEGISTER(S,), WITH <ih SJBRdO'INf 

GO TO 5$ IF NO EWfe 

RETURN Hfige IF ERRWl 

ERSOR » DFFJNeD BY GtT SUBPOuHNE 

GO TO 12$ IF ERROR | 

GO CMEI^K FOR PkIMARY ERfioftS 

G01,T0 6$ IF NO E WOR 

RFTbRN^^HEpE N ERW)R 

ERROR » DIE FINED BY PRIERR SUBRO'.lf.'Nf 

GO BACK FOR MORE ERROR ''HE (C, 



» 7 » 

^53 



2U? 



037470 
C3747A 
0B7A74 

03750^ 
$375pA 

q)37S10 
0375K 
0375U 
037520 
Q37VI 
0375^4 
0^75?6 
037530 
03753^ 



37550 
037552 
$37554 
037S60 
037560 
37564 
7572 



?1A6 

h 
pup 

^150 
2151 
2152 

<^]55 
^156 
2157 
pi 58 



037624 
037624 
037626 
037650 
037634 
, 03 7640 



b3757^ 
037602 

0576^0 
037624 




000^57 

004^3? 
000405 
000240 
104000 
004^36 
000157 

004 73> 
000405 
000240 
104000 
004736 
0001^7 

QObOlO 
00Q405 
000240 
104 pop 
0041736 
'^00137 

04737 
00040 
OOO^l 

'poi 

3052i? 
023727 
002412 

oo^m 

012737 
012737 
000137 



I 



: ?76S6 



1000004, 

5ooa4pi 

'01370Q 
013701 
01P757 

004 Hi 
054 13(: 



656c?2 



I 



( 

< I 



/ 



0^7624 



05j)^00 



037624 
04^540 

t)37624 



007444 I 
0CK44 'P02000 

Ol^i^p Q01442 

QlOOOb 00144 
0)01467 00 44 
037356 [ 



8S: 



10$: 



JS(f< 
9N 

eHt 
.MP 



11$: 
V$: 



1 USR 
JMP 

CMP 

$uT 

BIT 
8NE 
MOV 
MOV 
JMP 



Pc.STCDfiiVS^ 
8'$ 



EMT I 
12$ 

.WORD lA^INDTPhS^i 
.WORD 
BR 
NOP 
fMT 
JSR 
JMP 

J'^R • 



PC.(»)f^Pr» 

ia$ I 

fi-C.SECFRR 
101 



PC.Q)fSP)* 

]2$ 



CP. #1024. 

*FMT16,RMpF0 

#FMT16.RMQ)F,0 
*82?. .RflbcO 
2$ 



;GP ^0 12$ If ERPOR 

;G0 vERJFir SEARCH 0«ERatjon 
;G0 TO 7$ IF MO ERROR 

;RETJRN HERE IF ERROR 

tERROR « DEFINED BY SCHS^^ S,fe''> ' I'i' 

tSp BACK FOR MORE ERROR fME(.<S 

[•GP TO 12$ IF EF^RDR 

;G0 CHECK fOR CHANGES IN DRJVE S'A^s 

;G0 TO 8$ IF NO ERROR 

.•RETURN M^RE IF ERROR , 

;ERRO*^ # DEFINED BV STCD^^fiTfi SlilBRO ^ IHt 

;GQ BACK FOR MORE ERROR CHECKS ^ 

;G0 TO V$ IF ERROR 

.-CHECK ANV ERRORS NOT mSKflD 

;MASK FOft (SMERIi 
MASK FOR fiMER2 
GO TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 

ER/itOR * DEFINED BV CMPERRjSTS SUBRi. TINE 
GO BACK f'oR MORE ERROR CHECKS 
60 TO 12$ IF ERROR 



GO CHECK FOR SECONDARV ERRORS 
6p 70 10$ IF NO ERROR . 
HEWfiN k^PiE IF ERROR 
fpRpR * DEFINED BY SECERR^ SUBROUTINE 
GP back FOR MORE ERROR CHECKS , 
GO TO 12$ J« ERROR i 



, I' 

INCREMENT CYLINDER ADDRESS 
DONEiALl, CYLINDERS ? 
no; ! ' 



SET 16 BIT FORMAT 

16 BIT FORMAT 
START ^T'F.IRST 



INVALiqj 



CfTLlNDER 



[■•rj|T 64 WC SEARCH 'PST 

k'64: ^ * * * ***** 



J. 



100 

oo;:'^76 

00U64 J 
000064 ^0\^(^ 



SCOPE 
NOP 
MQV 
MOV 

MOV 



*STACK 



^4 



$8ASE.Rq 

tst^queJri 

«!e4l]$TESTN 



jSR PC.TSTPRP 
• WORD 054'' 30 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK ^QINTER 

R0 = UNI8US ADDRElSS 

(RD DEVICE BE mo ^ESTED 

.-SET TEST NUMBER IN APT MAIu BOX 

;PREPAf^E DEVKE ^OR ^lEST 
,;/A^K DFSCRICTOR AS |0j-iQWi: 



.'168 
-'b 



?^77 



78 
»0 



?18J> 



?^85 



55^664 
0^^666 
03767? 
037672 
037700 
037706 
03/7K 
037720 
037722 
037724 
037726 
C37732 
0377<^0 
037/46 
03^754 
0^7762 
C?7770 
057774 
040000 
040004 
040010 
040014 

0400?P 
040024 
040030 
040034 
040G3t 
04Q0I!.0 
0400^,2 
040046 
040946 

04Q052 
C40056 
040060 
040062 
040064 
040070 
040070 
040074 
040076 
0401QO 
040102 
040104 
040110 
0401 10 
040116 
040120 
040^26 



odoUi' 

000240 
104000 
06pi37 

112737 
J1S72p 

IJI737 
006404 
000240 
1040QQ 

0001 V 
0-'27!7 
012737 
012737 
012737 
01?/3'7 
01270? 
112722 
112722 
112722 
11272^ 
112722 
112722 
004737 
004737 
000^04 
000240 
104000 
000137 

00^737 

004737 
000404 
000240 
104000 
000157 

004737 
000405 
000240 
104000 
004756 
000137 

052737 
001012 
012757 
0H737 



)^P?04 
00Q024 

m 

045'l60 



040204 
OCDOOO 
OOUOOO 
000000 
000000 
000031 
001543 
000024 
000034 
0,00006 

oboooo 

000200 
042624 
04516' 



040^0^ 
0455j2^ 
042710 

0i0?04 
043706 



040?04 

910000 

01 0000 
001376 



b01545 
&Q1544 
hC14^<. 



0C'43<. 
00''444 
001416 
001442 
00141C 



001576 

oor4C 
oo^u? 
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1 1 



IS 

81 

afkmn .Pun NX 

#?00,PUTI\X*1 
#DMD.RMMR10 
PC. PUT 
2S 



8S 

ATO.RMMWIO 
*0.RMDC0 

tfG.RWOfO I 

*SEARCH!G0.Wr 

ffP*JTINX.R2 

*R^f1Rl . (R2) + 

*RMDC.(R?)* 

#RMDA.(R2)* 

*RMOF .(R2)* 

#WCS1.(R2)* 

♦200. (R2>* 

pIIgE TSTS 

PC.PUT 

3$ 



PC. GET 
4S 



8$ 

P^.PRIERR 



PC.a(SP)* 
8$ 

*JvC.RMeR2I 
6$ I 
*lVC,$GDDAt I 
RMER2l.tBDD^ 



SI 



CLEAR CONTROLLER I SELECT DfvKf 

VERIFr CONTROLLER CLEAR CPERATJ^J 

PACK ACKNOWLEDGE Jf VOLUME NOT ^A. ir 

VERIFr PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR •T>JP" SET 

VERIFY RECALI8RAT10N 

GO TO U IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED Br TSTpftP SLftRu ' INf 

GO TO 8$ IF ERROR 

SETUP PUT INDEX TABLE 
SET TERMINATOR SrTE 
SET RMhRI OUTPUT BUFFER - DMD 
GO WRFE RMMR1 VIA PUT SUBROUTINE 
GO TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SlBROUTINE 
GO TO 8$ IF ERROR 
RESET DIAGNOSTIC >10DE 
CYLINDER = 0 
TRACK t 0. SECTOR - 0 
18 BIT FORMAT 
) .-SEARCH COMMAND 

LOAD INDEX TABLE 



;G0 WRITE REGISTER(S) WITH PUT SUBROlMNS 
GO TO 3$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY I^UT SLBROJTINE 
q6 TO 8J IF ERROR 

WAIT FOR GO TO RfSET 

GO READ REGISTER(S) WITH GET SUBROuMNE 
GO TO 4$ IF NO ERROR ' 
RETURN HERE IF ERROR ' 
ERROR » DEFINED BY GET SUBROUTINE 
GO TO 8$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS I 

GO T0| 5$ IF NO Epl?OR 

RETURN HERE IF ERROR 

ERROR * DEFINED BV pIrJERR SUBROUTINE 

GO BACK FOR MORE ERROR 'CHECKS 

GO TO 8$ IF ERROR 

DID IVC SET?? 

yes; I 

EXPECTED STATUb 
RECEIVED STATUS 



/RMTBO KM05/3/2 FCTNL TST 1 MACRO vOA.OO 4-APR-81 
■fc*. IVC SEARCH TEST 

?188 (X.0T3A 042757 16777-' 001U2 BIC 

2189 040K2 104260 EMT 

2190 040K4 6S: 

^191 040144 004757 050400 JSR 

0401 SO 115760 .WORD 

040152 010010 .WORD 

040154 000405 BR 

I 040156 000240 NOP 

' 040160 104000 EMT 

040162 004756 jSR 

040164 000157 040204 JMP 
2192 040170 

2195-040170 004757 044540 JsR 

0401 74 000405 BR 

040176 000240 NOP 

040200 104000 EMT 

040202 004756 .SR 

2^94 040204 1 8$: 

2195 

21W. ;; 

.-.TEST 65 

;; 

040204 » TST65: 

040204 000004 SCOPE 

040206 000240 NOP 

040210 012706 001100 MOV 

0402U 015700 001276 MOV 

040220 01570! 001464 MOV 

040224 012757 000065 001226 MOV 

?'97 

2198 040252 004757 041650 . JSR 

040256 054150 .WORD 



040240 000404 BR 

040242 000240 NOP 

040244 104000 EMT 

040246 000157 040550 JMP 

2199 040252 1$: 

2200 040252 012757 040000 001424 MOV 

2201 040260 012757 000051 001410 MOV 

2202 040266 012757 OOOOOC 001444 MOV 
2205 040274 012757 000000 001416 MOV 
220<. 040502 012702 001545 MOV 

2205 040506 112722 000054 M0V8 

2206 040312 V2722 000006 M0V8 

2207 040516 112722 000014 WV8 

2208 040522 112722 000000 M0V8 

2209 040526 U2722 000200 M0V8 

2210 040552 004737 042624 jSR 
22 M 040556 00475^ 045160 JSR 

040542 000404 BR, 

040544 (000240 MO/^ 
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fClVC.SBDDAT 

260 

PC.CMPERRSTS 

NDTMSIC 

iVCiDPE 

7$ 



pc,a;sp)+ 

8S 

PC.SECERR 
8S 



pc.a(SP)* 



CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RME R2 

GO TO 7$ IF NO ERROR 

RETURN HpRE IF ERROR 

ERROR * DEFINED BY CMPERRSIS SU8R0UTJNf 
GO SACK FOR MORE ERROR CHECKS 
GO TO 8S IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SJ8R0UTINE 

GO BACK FOR MORE ERROR CHECKS 



ABORT SEARCH TEST 



#STACK.SP 
S8ASE.ro 
TST0UE.R1 
»65.fTESTN 

PCTSTPRP 
054150 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) - DEVICE BEING TESTED 

.•SET TEST NUMBER IN APT MAIL 



BOX 



1$ 
9$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALI8RATI0N 

60 TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 9$ IF ERROR 



*UNS.RMER10 .-SET 
<'SEA|RCH!G0.RMC<;10 



*O.RMDCO 
#0.RMDAO 
/irPUTINX.R2 
*RMDC. (R2)* 
*RMDA, (R2)* 
*RMER1 . (R2)* 
fRMCSl . (R2)+ 
*200.(R2)* 
PC.GETSTS 
PC, PUT 
2% 



UINSAFE ERROR 

.•SEARCH COMMAND 



CYLINDER 0 
SECTOR = 0. TRACK = 0 
WRITE REGISTER INDEX TABLE 



TERMINATE TA8LE 
S^ETUP FOR STATUS 
GO WRITE REGISTER(S) 
GO TO 2$ IF NO ERROR 
•RETURN HERE IF ERROR 



WITH Pu' S-ijaRCCJliNE 



Si'-IMBO RM05/5/? FCTNll TST 1 
S ABORT SEARCH TEST 



K 1 



flA^RO Vp4.00 4-APFjT^1 11:43:^8 PAtif li+65 







1 OLOOO 
1 U*» \J\JV 


1 








OOOl X7 
















CC J 




nr>A777 










r\r\OLOL 








U'tU jOc 


VJvVJC'»VJ 




















nom %7 








S/*»VJj' c 








CL. 1 J 


VJHVy J ' C 


U Jc ' J' 


OPOOOO 
uc uvuu 


001 34h 


c c 1 o 




UU 1 M 1 c 








UmUHUc 


01 P7^7 


000000 


001 140 


CC 1 O 


\JH\JH \ \J 


01 ^737 


001 ^4ft 


001 14? 


CC t ' 




VHC * J' 


157777 


00114? 


cccvj 




1 04?#>1 






CCt 1 


\JH VJH C VJ 














0435?? 




CCC J 










CC c** 


\JH\J^ JC 


004737 


047710 








000404 

w V** vy*t 










000P40 




















0001 37 


040550 




CC C J 


V** v" -Jw 








CCCkj 




004737 


04 3706 






V^M v** J** 


000405 








V/H w** JO 












1 04000 








W*tVHOC 


00473ft 










0001 "?7 


040550 




???? 












040^70 


004737' 


057766 






01.01*71, 


000405 








04. OA 7 A 


000740 










10^000 








\J*^\J JyJC 










\JH\J J\JH 


0001^7 


04OSS0 

V"V J Jv 




Cc 












\JH\J J ' \J 


004737 


050400 






040SK 










OAOSI^ 

\JH\J J I \J 


000010 








V/Hv JC V 


000^ OS 








Oi.O'i?? 












10^000 










004736 








040530 


000137 


040550 






040534 










040534 


004737 


044540 






040540 


000403 








04054? 


000?40 








040544 


104000 








040546 


004756 








04C/.S3 





























2$: 



3$: 



4$: 



5$: 



6$: 



7$: 



8$: 



3i} 



JSR 

BR 

NOP 

EMT 

JMP 

BIT 
MOV 



EMT 

L5R 

JSR 

BR 

MOP 

EMT 

JMP 

JSR 

BR 

NOP 

EMI 

jSR 

JMP 

JSR 

BR 

NOP 

FMT 

JSR 

JMP 



JSR 

• WORD 

.WORP 

BR 

NOP 

fHT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 



9$ 

pc.bb 

3$ 

9$ 

<rPjP. RMDSl 
4$ 

*0,$GDDAIT 
R/'DSI .$8C>£|A1 
#*CPIP,$BDDAT 
261 



PC 



.rHwoii 



T 



PC. GET 
5$ 



9$ 

PC.PRJERR 
6$ 



pc.a{kp)+ 

9$ 

PC,STCDRVSTS 
7% 



PC.a(5P)+ 
9$ 

PCCMPERRSTS 

NDTMSK.UNS 

DPE 

8$ 



PC.a(SP)+ 

9$ 

PC.5ECERR 
9$ 



PC,a(SP)* 



ERROR f DEFINED BY PUT SUSROUTlNt 
GO TO 9$ IF ERROR 

GO READ RE6ISTER(S) WITH GET SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » 6EFINED BY GET SUBROUTINE 

GO TO 9$ IF ERROR 

IS PIP Set?? 

NO. .' 

EXPECTED STATES 
RECEIVED STATUS 



WAIT FOk go tO reset 

GO READ REGI5TER(S) WITH GET SieROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 9$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR tt DEFINED BY PRIERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

GO CHECK FOR CHANGES IN DRIVE STATUS 
60 TO 7S IF NO ERROR 
RETURN HERE IF ERROR 

ERROR # DEFINED BY STCDRVSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHElKS 
GO TO 9$ IF ERROR 

dHECK ANY ERRORS NOT MASKED 

;MAS< FOR RMER1 
MASK FOR RMER2 
60 TO 8$ IF NO ERROR 
RETURN HtRH IF ERROR 

ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 9$ IF ERROR 

GO CHECK FOR SECONDArV ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR It DEFINED BY SEC ERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 



;*rtSF 66 



SEARCH AT OfFSE' 



Two SFARCH AT O'^^SET 



V04.00 <.-Affp-81 



040550 
040550 
04055? 
040554 
040560 
040564 
940570 

040576 
040602 



000004 
000240 
012706 
013700 
013701 
012737 

004737 
054130 



001100 
001276 
001464 
00006^ 

041650 



TST60: 



001226 



SCPPE 

NOP 

MOV 

MOV 

MOV 

.WORD 



2238 

^240 
2241 
2242 
22'. 3 
2244 
2245 
2246 
2247 
2248 
2249 



2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 



2258 
2259 
2260 
2261 



2262 



040604 
040606 
04061 0 
P40612 
040616 
040616 
040624 
040632 
040640 
040646 
040652 
C'.0656 
040662 
040666 
040672 
040676 
040702 
040704 
040706 
040710 
040714 
040714 
040720 
040724 
040^1 
0407 
040740 
040746 
040752 
040754 
040756 
040760 
040764 
040764 

040770 
040 7A 
040776 
041000 
041002 
041006 



000404 
000240 
104000 
000137 

01 27J7 
0127!^ 
012737 
012737 
012702 
1127^2 
112722 
112722 
112722 
112722 
004737 
000404 
000240 
104000 
000137 

004737 
0O4737 

M27'5'7 
112737 
01275^ 
00473/" 
000404 
00024$ 
104000 
000137 

004737 

004737 
000404 
000240 
F 04000 
000137 



041 106 

000000 
000000 

Oloopo 

000015 
001543 
000006 

00003^ 
00003^ 

000002 

0002DC 
043160 



041106 

042624 
0413522 

000000 
000200 
000031 
043160 



O'lllO^ 
043522 

0^2710 

I 

04r|(j)6 



001444 
001416 
001442 
001410 



1$: 



001 5A3 
001544 
001410 



2$: 



3$: 



4$: 



5$: 



BR 
NOP 
EMT 
JMP 

MOV 

MOV 

MOV 

MOV 

MOV 

M0V8 

M0V8 

M0V8 

M0V8 

MOVP 

JSR 

BR 

NOP 

EMT 

JMP 

JSR 
JSR 

M0V8 

MOM'S 

MOV 

jSA 

BR 

NOP 

EMT 

JSR 
JSR 

EMT 
JMP 
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•STACK. SP 
WASE.RO 
TST0UE.R1 
#66.$TESTN 

PC.TSTPRP 
05.150 



1$ 
9$ 

#o,rMdco 

*0,RMDAO 

«FMT16,RM0F0 

*0FFSET!G0.RMCS1 

#PUTINX,R2 

/)fRMDA,(R2)* 

*RMDC,(R2)* 

*RM0F,(R2)+ 

*RiMCM,(R2)^ 

^200. vR2)* 

PCL|f?UT 

2$ fir' 
H 

Pd.GETSTS 
PCTIMOUf 



SCOPE CALL 

S'ART OF TEST 

IN]TIAl,IZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TESt 

TASK DESCRIPTOR AS FOLLOWS: , 

CLEAR CONTROLLIR & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOL'JME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI'^ OR "PIP" IS SET 

VERIFY RgdALlBlRATION 

GO TO 1$ JfTnO error 

RETURN H^^E ' IF, ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO IF ERROR | 

CYLINDER = 0 
TRACK =^ 0. SECTOR = 0 
16 BIT FORMAT 
; , .-OFFSET COMMAND 

S^TI^P REGISTER INDEX TA8LE 
rOR SEEK TO CYLINDER 0 



:lGp WRITE REGI5TER(Sp WITH PUT SL|BROUTINE 

l-lGq TO 2% IF NO ERROR 

;RETURN HERE IF ERROR 

.•ERROR A DEFINED BY PUT SU$RpljTINt 

jpO TO ERROR | 

;SkTUP FOR STATES FETCH 



ffRMCSI.PUTINX 
#200. PUT I NX ♦■I 
#SEARCH.G0.RMCS10 
PC. PUT 
4$ 



.-LOAD REGISTER INDEX TABLE 



9^ 

PC. TIMOUT 
9$ 



SUBROUTINE 



, .-STORE SEARCH COMMAND 
GO WRITE REGISTER(S) WITH PUT 
GO TO 4$ IF NO ERROR 
RETURN HERE IF EftROR 
ERROR * DEFINED BY PUT SUBROUTINE 
^0 TO 9$ IF ER^OR 

I^AIT ^OR SEARQH Tp COMPLETE 

GO READ REGisTER(S) WITH GET SUBROUMNE 

GO TO 5$ IF NO ERRPR 

RETURN HERB, IF ERROR , 

ERROR * DEMNED BY GET SUBROUTINE 

^0 TO 9^ IF ERROR 



CZRIWBO RM05/?/? FCTNL TST 
•66 SEARCH AT OFFSET 
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^FO 0168 



??6A 
2265 



^266 



2268 
2269 



2270 
227' 
2279 



2280 
2281 
2282 



041006 
0A1012 
041 01 A 
041016 
041020 
041022 
041026 
041026 
041032 
041034 
041036 
041040 
041042 
041046 
041046 
041052 
041054 
041056 
041060 
C41062 
041064 
041066 
041072 
041072 
041076 
041100 
041102 
0411 04 
041106 



041106 
041106 
041110 
041,112 
041116 
041122 
041126 
041134 

041142 
041142 
041146 



00(5405 
000240 
104000 
004736 
0001 37 

004737 
O0O4P5 
000240 
104000 
004736 
000137 

004737 
115760 
000010 
000405 
000^40 
104000 
004736 
000137 

004737 
000403 
000240 
'04000 
004756 



000004 
000240 
012706 
013700 
013701 
012737 
012737 



004737 
054 l^P 



0431^06 

041106 
0564^0 

(1)41 106 
05O4OO 



6$: 



7$: 



04r06 
044540 



at: 



9$: 



jsr 


.11 

PC. PR I ERR 


BR 


6t 


♦^OP 




EMT 




JSR 


j ^C,5){SP)* 


JMP 




JSR 


PC,SCH3TS 


BR 


7$ 


NOP 




EMT 




JSR 


pc.a{SP)+ 


JMP 




JSR 


pc,cm|perrs 


.WORD 


NDTMSK 


.WORD 


DPE 


BR 


8S 


KOP 




EMT 




JSR 


pc.acsp)* 


JMP 


9$ 


JSR 


pc.secerr 


BR 


9$ 


NOP 




EMT 




JSR 


PC,a)(SP) + 



GO CHECK FOR PRIMA.^^ ERRORS 

GO TO 6S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PR I ERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO Tb 9$ IF ERROR 

GO VERIfy SEARCH OPERATION 

GO TO 7$ IF NO ERROR 

RETURN HERE IF FRROR 

ERROR * DEFlNEb BY SICHSTS SUBROUTINE 

GO BACK For MORE ERRjOR CHECKS 

GO TO 9$ IF fRROR 

CHEqit: anv errors not masked 

MASK FOR RMER1 
MASK FOR Rf^ER2 
60 TO 8$ IF NO ERROR 
RETURN HERE Iff ERROR 

ERROR * DEFINP BY CMPfcRRSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 9$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 9$ IF NO ERROR 

RETUF^Nj HfRF IF ERROR 

Ef^RdR ft DEFINED BY SECERR SLHBROUTI'JE 

GO Sack for more error checks 



■ * * * * 

West 
* 

*HEAD 
*24~ 
*TH 
* 



) ALIGNMENT SEEK ' 



67 HEAD ALIGNMENT SEEI^ 



********************* 



ALIGNMENT^ FOR AN RM05/3/2 DRIVE. IS PERFORMED AT CYLINDER 
ECjMAL using THE CE PACK. A 60 MINUTE WARMUP IS REQUIRED I 
PACK WAS NOT IN Th DRIVE PRIOR T^ HEAD ALIGNMENT OPERATION 



ibiioo 

001276 
001464 
000001 
900067 

041650 



TST67: 

'.SdqPE CALL 

fSTlART OF TEST 
.-iNltjALIZE STACK POINTER 
RO - UNI8US ADDRESS 



001206 
001226 



SCOPE 

MOV 
MOV 
MOV 
MOV 



ATSTACK.SP 

sba'se.ro 



IS: 



JSR 
.WORD 



TSTQUE,R1 
tfl.STIMES 
*67'.$TESTN 



PC.TSTPRP 
054130 



041150 



C00404 



BR 



2S 



(RI) = DEVICE BEING TESTED 
;D0 1 ITERATION 

;SET TEST NUMBER IN APT ITlAIc BOX 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER £ SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "VIP" IS SE" 
VERIFY RE CALIBRATION 
GO TO 2$ IF NO ERROR 



?R«r«0 FCTNL TST 1 

'tj HEAD ALIGNMENT SEEK 
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?28^ 

??85 
2286 
?287 
2288 
2289 
2290 
2291 
2292 



2?94 
229S 

r^296 



,V98 



>'>ff|) 



•'.0 ' 



041152 
OA 11:4 
041 -"56 
0An62 
041162 
041170 
041176 
041204 
041210 
041214 
041220 
041224 
041230 
041234 
041236 
041240 
041242 
041246 
04125? 



041256 
041262 
C41264 
Q41266 
041270 
04127^ 
041274 
041500 
041502 
041 504 
041506 
041 ?flO 
041514 
041514 
or, 1520 
0415?? 
0415?4 
041526 
041 550 
041334 
0^.1 534 
04 1540 
041542 
041 Si,4 
04 I 546 
041 5^)0 
041552 
04 1 554 
04 1 560 
O4I 560 
J4 1 564 
04 ' -566 



000240 
104000 
0001 37 

012737 
012737 
012737 
012702 
112722 
112722 
112722 
112722 
004737 
000404 
000240 
104000 
000137 
004737 
004757 



00473;^ 
000404 
000240 
104000 

|oqi57 

0i>4 737 
006405 

omm 

104000 

004/54 

000137 

004 757 
300405 
jO0240 
1 04000 
0P4 7|6 
OOOI37 



004757 

0600Tb 

000405 
000240 
104000 
004 756 
000137 

004 7^7 
000405 
0OC24O 
10'.0C0 
1. 0'« >r 



041374 

000365 
000000 
000005 
001543 
000034 
000006 
000000 
000200 
043160 



041374 
042624 
045622 

042710 



P41374 

oi$7b6 



641574 
51024 



04) 5k 
0^>6400 



04 1 574 
044540 



001444 
001416 
001410 



2$; 



3^: 



4$; 



5% 



7$- 



NOP 
JMP 

MOV 

MOV 
MOV 
MOV 
M0V8 

Move 

MOVB 

M0V8 

JSR 

BR 

N(J»P 

uMP 

JSR 

JSR 
BR I 
MOP 
EMT 
JMP 

JSR 
$R 
NOP 
EMT 

JSR 
JMP 

^SR 

BR 

NOP 

EMI 

JSR 

JMP 

JSR 

.WORD 

.WORD 

BR 

NOP 

EMT 

JSR 
JMP 

JSR 

BR 

MOP 

EM^ 

.SR 
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8S 

#245. .RMDCO 

//O^RMDAO 

*SEEKI60,RMCS10 

#PUTJNX,R2 

#RMDC. (R2)+ 

*R"^DA.(R2) + 

*RMCS1 . (R2)+ 

#200.(R2)+ 

PC. PUT ^ 

3^ 



8S 

PC.GETSTS 
PC.TJMOUt 

f*C,GET 
4$ 



8$ 

PCPRIERR 
5$ 



pc,a(SP)+ 

8$ 

PC.SEKSTS 
6$ 



PC,S)(SP) + 
8$ 

PC.CMPERRiTS 

NDTMSK 

DPE 

7$ 



pc.a(SP)+ 

8$ 

PC,SEf£Rk 
8$ 



PC.a-vSPW 



RETURN HERE JF ERROR 

ERROR * DEFINED BY TSTPRP SJBROUTINf 

GO 10 8$ IF ERROR 

CYLINDER 245. 
TRACK 0. SECTOR - 0 
LOAD SEEK COMMAND IN BUFFER 
R2 POINTS TO REGISTER TABLE 
WRITE REGISTER INDEX TABLE 

WRIlffe tERMINATOR 

GO WRJTE REGISTER(S) WITH "UT SUBROUIINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR (* DEFINED BY PUT SUBROUTINE 

GO TO 8$ IF ERROR 

SEtuP FOR STATUS FETCf|< 

WAIT FOR SEEK '0 COMPLETE 

GO REXd REGISTER(S) WITH GET SUBROUTINE 

GO TO 4$ IF NO E^ROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 8$ IF ERROR 

GO CHECic FOR PRIMARY ERRORS 

GO TO 5$ IF NO ERROR 

RETURlvJiHERE IF ERROR 

ERRO/R * DEFINED B|V PRIERR SUBROUTINE 

GO BACK FOR MORE EftRDR CHECKS 

GO TO 8S IF ERROR 

60 VERIFY RESULTS OF SEEK OPERATION 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ft DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO T0^8^ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK ?Qk RMER2 

GO TO 7$ IF NO gRROR 

RETURN HERg IF ERROR 

ERROfi (* DEFINED BY CMPERRSTS SUBROUTINE 
60 BACK FOR MORE ERROR CHECKS 
GO TO 8$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

60 TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SEfERR SJBRUUTI\E 

GO BACK FOP MORE ERROR 'HECi^S 



r 



•WCTO V(K.OO 
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T 

J 

1. 

s 

6 
7 

e 

9 
10 

11 

15 
U 
15 
16 
17 
^8 
19 
20 



041574 
041576 
04 HOC 
041404 
041410 
041414 
041416 
041420 
041424 



000004 
000240 
015700 
062700 
010057 
005710 
001402 
000137 
012737 



001464 
000002 
CO 1464 



007660 
001466 



.S8TTL EMP OF SU8-PASS ROuTJfyiE 

THIS IS THE END Of SUB-PASS ROUTINE. THJS ROuHNE iS USED To 
TERMINATE THE OPERATION OF THE CURRENT DEViCE UNDER TEST AND 
SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES 
TO TEST. EXIT IS MADC TO 'SEDP' ROUTINE. OTHERWISE. RETURN 
IS MADE TO 'READV ROUTINE. 



001464 If: 



SEOSP: SCOPE 
NOP 
MOV 
ADD 
MOV 
TST 
BFO 
JMP 
MOV 



TSTQUE.RO 
*2.R0 
RO.TSTQUE 
(RO) 
IS 

READY 

#TSTQUE*2.TSTQUE 



.-GET POINTER TO TSTOUE 
.ADJUST POINTER TO NEXT DEVICE 
.•SAVE POINTER TO TSTQUE 
.ANY MORE DEVICES FOR TEST ? 
;8R IF NO 

.YES. JLMP TO 'READY' ROUTINE 

;INITIALIZE POINTER tq FIRST DEVICE IN 



;TEST QUE TABLE 



.S8TTL END OF PASS ROUTINE 



041452 
041452 
041454 
041440 
041444 
041450 
041456 
041460 
041462 
041464 
041466 
041470 
041472 
041476 

041516 
041516 

041522 
041524 
041530 
041532 
041536 

041602 
041602 

041606 
041610 



000240 
005057 
005057 
005257 
042737 
00*^ 327 
000001 
003066 
012737 
000001 
041 ',60 
104401 
000407 



104405 
005757 
001451 
104401 
000421 



015746 

104405 
005037 



001116 
001206 
001250 
100000 



041500 



013746 001230 



001126 
041540 

001126 
001126 



001230 



•INCREMENT THE PASS NUMBER (SPASS) 

•TYPE "END PASS *XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYi'^* 
•WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
•IF THERES A MONITOR GO TO IT 
•IF THERE ISN'T JUMP TO READY 



$EOP: 



JEOPCT; 



SENDCT: 



;;65$: 
64$: 



;;67f: 
66$: 



NOP 

CLR 

C'.R 

INC 

BIC 

DEC 

.WORD 

BGT 

MOV 

• WORD 

$EOPCT 

TYPE 

BR 

.ASCIZ 

MOV 

TYPDS 

TST 

BEO 

TYPE 

BR 

.ASCIZ 

MOV 

TYPDS 
CLR 



$TSTNM 
$TIMES 
$PAS3 

#1 00000. IPASS 
(PC)* 

1 

SDOAGN 
(PC)*,a(PC)* 

1 



ZERO THE TtST NUMBER 
ZERO THE NUMBER OF ITERATIONS 
INCREMENT THE PASS rjUMBER 
DON'T ALLOW A NEG. NUMBER 

LOOP? 



;;YES 

; .-RESTORE COUNTER 



.65$ ;;TYPE ASCIZ STRING 

64$ ;;GET OVER THE ASCIZ 

^12><15>/END PASS #/ 



$PASS.-(SP) 



$ERTTL 
$GT42P 
.67$ 
66$ 

/ TOTAL ERRORS SINCE LAST REPORT / 



SAVE $PASS FOR TYPEOUT 
TYPE PASS NUMBER 

GO TYPE— DECIMAL ASCII WITH SIGN 
SEE IF ANY ERRORS THIS PASS 
BR IF NO ERRORS TO REPORT 
TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



$ERTTL.-(SP) 



SERTTL 



SAVE $ERTTL FOR TYPEOUT 

TOTAL NUMBER OF ERROPS 

GO TYPE— DECIMAL ASCII WITH SIGN 

CLEAR ERROR TOTAL 



7RWB0 RM05/5/e fCTNL TST 1 

F^^) OF PASS roumne 

0416H 001?!"' 

041620 015700 000042 

Q41624 0OU05 

041626 000005 

041650 004710 

041652 000240 

041654 000240 

041656 000240 
041640 

041640 000157 

041642 007660 
041644 377 577 
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000 



tGT42P: TrPE 
SGET42: MOV 
BEQ 
RESET 
tENDAD: JSR 
NOP 
NOP 
NOP 

SDOAGN: 

JMP 

tRTNAD: .WORD 
SENULL: .8Y7E 
.EVEN 



.fCRLF 

a*42.R0 

SDOAGN 

PC.CRO) 



READY 
-1.-1.0 



;;TrPE CARRIAGE RETURN. LINE FEED 

;;GET MONITOR ADDRESS 

; .-BRANCH IF NO MONITOR 

;; CLEAR THE WORLD 

;;G0 TO MONITOR 

;;SAVf ROOM 

; ; f OR 

;;ACT11 

;; RE TURN 

.-.-NULL CHARACTER STRING 



CZR>»«0 RM05/5/2 FCTNL TST 
TEST PRE PARA- ION WOOULE 



1 

2 
3 

■ 4, 

5 

6 
7 

8 
9 
10 

n 

12 
13 
K 
15 
16 

18 
^9 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
52 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
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14 

15 



SEO 0172 



.SB'TL TEST PREPARATION MODULE 

THIS MODULE PREPARES THE SUSSYSTEM FOR fH^ EXECUTION OF A TEST. 
REPORTING AN ERROR TO THE USER IF AN ERROR IS DETECTED. THE USER 
SPECIFIES TASKS TO BE PERFORMED, WHJCH THE MODULE EXECUTES 
USING SUBROUTINES. 



CALL: 



JSR 

.UORD 

9R 

NOP 

ERROR 



PC.TSTPRP 
NN'WMNN 



TASK/VERIFY DESCRIPTOR 
RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BV MODULE 



TASK/VERIFY DESCRIPTOR 
BIT 15 = 1 



SELECT DEVICE AND VERIFY DEVICE IS AVAILA8' E 



BIT 


14 - 


1 


CLEAR CONTROLLER AND SELECT DEVICE 


BIT 


13 




(RESERVED FOR DRIVE CLEAR) 


BIT 


12 = 


1 


PACK ACKNOWLEDGE IF VOLUME NOT VALID 


BIT 


11 = 


1 


RECALIBRATE IF POSITIONING IN PROGRESS 


BIT 


10 = 


1 


RECALIBRATE DRIVE 


BIT 


9 






BIT 


8 






BIT 


7 






BIT 


6 = 


1 


VERIFY CONTROLLER CLEAR OPERATION 


BIT 


5 




(RESERVED FOR DRIVE CLEAR) 


BIT 


4 - 


1 


VERIFY PACK ACKNOWLEDGE 


BIT 


3 


1 


VERIFY RECALI8RATI0N 


BIT 


2 






BIT 


1 






BIT 


0 







041650 



041650 
C41656 
041662 
041666 



041672 
041676 
041702 
041704 
..S£UU^1-Z06 
51 041710 
041714 
041722 



52 
53 
54 
55 
56 
5^ 



017637 
062716 
105076 
162716 

004757 
004737 
000411 
000401 
000000 
062716 
113776 
000137 



000000 042620 
000006 
000000 
000004 

042624 
042710 



000004 
041706 
042610 



000000 



TSTPRP: 

.-STORE TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL 

— ; STORE DESCRIPTOR 

;MOVE SP TO USERS ERROR CALL 
: CLEAR ERROR CALL 
;MOVE SP TO NO ERROR RETURN 

SETUP TO READ ALL REGISTERS 
GET RMER2 

BR IF NO ERROR DCTEdEO 
GET OVER ERROR NUMBER 
ERROR DEFINED BY GET SUBROUTINE 
XFER ERROR TO USER AND 
GET ERROR NUMBER. 



1$: 



041726 013737 001376 042622 2$: 



MOV 


a(SP).39t 


ADD 


*6.(SP) 


CLR8 


a(SP) 


SUB 


*4.(SP) 


JSR 


PC.GE'STS 


JSR 


PC. GET 


BR 


2$ 


BR 


1$ 


.WORD 


0 


ADD 


#4,(SP) 


M0V8 


1$-2.S(SP) 


JMP 


57$ 


MOV 


RMER2I ,^0$ 



;GET RMER2 AND SAVE FOR LATER 



'ZRWBC RM05/3/2 FCTML 'ST 
'EST PREPARATION MODULE 



S8 

59 

60 

61 

62 

63 

64 

65 

66 

t? 

68 

o9 

70 

71 

72 

73 

7A 

75 

76 

77 

^8 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
10fl» 
107 
108 
109 

no 
m 

112 
113 
11A 



041754 
041740 

04T42 
041746 
041750 
041752 
041754 
041760 
041766 



041772 
041772 
042000 

042002 
C42006 
042010 
042012 
042014 
042020 
042026 



042032 
042032 
042040 

042042 
042046 
042050 
042052 
042054 
042060 
042066 

042072 
042076 
042100 
042102 
042104 
042106 
042112 
042120 



042124 
042124 
042132 



005737 C42620 
100014 

C04737 050612 
000411 
000401 
000000 

062716 000004 
113776 041752 
000137 042610 
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.•SELECT DEVICE AND VERIFY DEVICE AVAILABLE IF SIT 15 SET IN TASK 
TST 39S .-SELECT DEVICE?? 

8PL 4$ ;N0:! 



032737 
001451 

00473^ 
000411 
000401 
000000 
062716 
113776 
000137 



032737 
001431 

004737 
000411 
000401 
000000 
062716 
1 1 3776 
000137 

004737 
0C0412 
000401 
000000 
005726 
062716 
113776 
000137 



000004 
042012 
042610 



000100 
042710 



000004 
042052 
042610 

052402 



000004 
042102 
042610 



0127^7 010000 
001501 



000000 



040000 042620 



052264 



000000 



042620 



000000 



000000 



042620 



3S: 



JSR 

BR 

8R 

.WORD 
ADD 
M0V8 
JMP 



PC.DEVSEL 

4$ 

3$ 

0 

#4.(SP) 

3$-2.a(SP) 

37$ 



;G0 SELECT DEVICE 
;N0 ERROR - CONTIMJE 

.•ERROR NLW8ER FROM OEVSEL 
.-TRANSFER ERROR TO liSER 



.CLEAR CONTROLLER IF BIT 14 IS SET IN TASK 
4$: 



St: 
6$: 



7f: 



8S: 
9$; 



1 01: 



'2$: 



BIT 


#8IT14.39$ 


.•CLEAR CONTROLLER?? 


BEO 


13S 


•NO' ' 


jSR 


PC.CNTCLR 


■GO CLEAR rONTROlLFR 


BR 


7S 


'CONTINUE - NO ERROR 

f WWW" A'VWIb IVW |_'»nwrl 


BR 


6$ 




• WORD 


0 


-ERROR NUMBER FROM CNTClR 


ADD 


#4,(SP) 


-TRANSFER ERROR TO USER 


M0V8 


5$.a(SP) 




JMP 


37S 




CONTROLLER CLEAR IF 


BIT6 SET IN TASK 


BIT 


#6116.39$ 


.•VERIFY?? 


BEO 


lis 


;N0;! 


JSR 


PC. GET 


;G0 GET STATUS 


BR 


10$ 


;N0 ERROR GETTING STATUS 


BR 


9$ 




.WORD 


0 


.-ERROR FROM GETTING STATUS 


ADD 


*4. <SP) 


.•TRANSFER ERROR TO USER 


M0V8 


8$,a(SP) 




JMP 


37$ 




JSR 


PCCLRSTS 


;G0 VERIFY STATUS CLEAR 


BR 


13$ 


:N0 ERROR IN CLEAR 


4R 


12$ 




.WORD 


0 


; ERROR IN STATUS CLEAR 


TST 


(SP)* 


.•STRIP RETURN ADDRESS TO 


ADD 


#4,(SP) 


.•SUBROUTINE AND TRANSFER 


M0V8 


n$.a(SP) 


.•ERROR TO USER 


JMP 


37$ 





EXECUTE PACK ACKNOWLEDGE IF BIT! 2 SET IN TASK AND VOLUME IS 
NOT VALID 
13$: 

BIT *8IT12.39$ .-PACK ACKNOWLEDGE?? 

BEO 25$ ;N0' '. 



042' 34 004737 042710 



JSR 



PC, GET 



''ZfJIWO RMOS/5/2 FCTNL TST 
'f PREPARATiqw MODULE 
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115 

n6 

•17 

19 
20 
21 
22 
II 
?4 
25 
26 
27 
28 
29 
?0 
^1 

?i 

55' 

36 0422A4 
57 
58 
39 
40 
41 
42 

45 
44 
45 
46 
47 
48 
49 
50 
51 
52 
5? 
54 
55 
56 
57 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
o8 
'69 



042140 
042142 
042144 
042146 
042152 
042160 

042164 
042172 

042174 
042202 
042210 
042216 
042222 
042224 
042226 
042230 
042234 
G42242 



042250 
042256 

042260 
042264 
042266 
042270 
042272 
042276 
042304 

042306 
042312 
042314 
042516 
042320 
C42322 
042326 
042334 



042356 
042536 
042344 
042346 



000411 
D00401 
000000 
062716 
113776 
000137 

032737 
001061 

012737 
112737 
112757 
004737 
000410 
000401 
000000 
062716 
1 1 3776 
000562 



032757 
001427 

004737 
000410 
000401 
000000 
062716 
113776 
000541 

004737 
000411 
000401 
000000 
005726 
062716 
113776 
000525 



000004 
042144 
042610 



000023 
000000 
000200 
043160 



000004 
042226 



004737 043522 



000020 
0427^0 



000004 
042270 



055262 



000004 
042^16 



' ^0 Of 2356 
04^362 



032737 002000 
001027 

052737 004000 
001517 

004737 04271C 
0C04'C 



3E0 0174 



000000 



001410 
001543 
001544 



000000 



042620 



000000 



000000 



042620 
042620 



^41: 
^5$; 



000100 001346 ^6f; 



18$: 



19$: 



BR 
BR 

.WORD 

ADD 

Move 

JMP 

BJT 
BNE 

MOV 

M0V8 

M0V8 

JSR 
BR 

BR 

.WORD 
ADD 
M0V6 
BR 

JSR 



16$ 
'5$ 

0 

*4. (SP) 

i4$.a(SP) 

37$ 

•VV.RMDSI 
25$ 



;N0 ERROR GE'TING RMDS 
.•TRANSFER ERROR TO USER 



;IS VOLUME VALID?? 
.-YES I. 



#pakack:go.rmc51o ;load pack ack command 
#rmcs1.put1nx .-setup register index table 

*200.PUTINX*1 

;G0 WRITE COMMAND 
;N0 ERROR LOADING REGISTER 



PC. PUT 
19$ 
18$ 

0 

#4.(SP) 

17$.i(SP) 

37$ 

PC.TIMOUT 



.•ERROR FROM PUT SUB 
.-TRANSFER ERROR TO JSER 



.-WAIT FOR COMMAND TO COMPLETE 



:VERIFV PACK ACKNOWLEDGE IF *8IT4 SET IN TASK 





BIT 


#81^4.39$ 


.-VERIFY PACK ACKNOWLEDGE"? 




BEO 


25$ 


.-no; ! 




JSR 


PC. GET 


;G0 GET STATUS 




BR 


22$ 


;N0 ERROR GETTING STATuS 




BR 


21$ 




20$: 


.WORD 


0 


.•ERROR FROM GET SU6 


21$: 


ADD 


#4. (SP) 


.-TRANSFER ERROR TO USER 




M0V8 


20$.a(SP) 






BR 


37$ 




22$: 


JSR 


PC.ACKSTS 


;G0 CHECK ACKNOWLEDGE 




BR 


25$ 


;N0 ERROR 




BR 


24$ 




23$: 


.WORD 


0 


.-PACK ACKNOWLEDGE ERROR 


24$: 


TST* 


(SP)* 


.-STRIP RETURN TO SUB AND 




ADD 


#4.(SP) 


.-TRANSFER ERROR TO USER 




Move 


23$.a(SP) 






BR 


37$ 





RECALIBRATE DRIVE IF BIT 11 IS SET IN TASK AND "Stfl" iS SF^ 
OR "PIp-* IS ACTIVE. 

RECALIBRATE DRIVE IF BIT 10 IS SET 
25$: 

BIT *8IT10.39$ .-RECAiIBRATE DRIVE ^ 

BfiE 29$ .-YES 
BIT #81 Til. 39$ .-RECALIBRATE?? 
BEO 58$ .-NO. . 



JSR 
BP 



PC. GET 
28$ 



;G0 GET RMDS 

.•NO ERROR GE^MNG RMf. 



'F >^ OREPARATION MODULE 



V2 
V5 

V8 
'79 
*80 
^81 
18? 
135 
184 
^65 
186 
*87 
188 
'89 
T^O 
'91 

193 
194 
19S 
196 
197 
'98 
199 
?00 
201 
202 
?0i 
?04 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
225 
2^4 
>2S 



04256A 
0^2366 

042370 
042374 
042A02 

042404 
042412 
042414 
042422 

042424 
042430 
042454 
042442 
042450 
0424 56 
042464 
042472 
042476 
042500 
042502 
042504 
0425'p 
042516 



042524 
042532 

042534 
042540 
042542 
042544 
042546 
042552 
042560 

042562 
042566 
042570 
042572 
042574 
042576 
042602 
042610 
042614 
042616 

042620 
042622 



000401 
000000 

062716 
113776 
000502 

032737 
001004 
032737 
001474 

005037 
005037 
012737 
112737 
112757 
1-2737 
112737 
004737 
000410 
000401 
000000 
062716 
1 1 5776 
000434 



000004 
04^366 



040000 
020000 



001444 
001416 
000007 
000054 
000006 
000000 
000200 
043.60 



000004 
042502 



042520 004737 043522 



032757 
001430 

004737 
000410 
000401 
000000 
062716 
1 1 5776 
000415 

004757 
000412 
000401 
000000 
005726 
062716 
113776 
162716 
000240 
000207 

OOOOCO 
000000 



000010 
042710 



000004 
042544 



054056 



000004 
042572 
000002 









G 14 




»1AC«»0 V04.00 


^.API^.gl 


1 ' *45*28 PAliF 15- 


3 






BR 


27$ 






26»: 


.WORD 


0 


'ERROR FROM G^l SUB 




27$: 


AuD 


#4 (bP) 


-TRANSFER ERROR TO uSFR 


oooooc 

V WV W V 




*10V8 


26$ fi(SP) 






BR 


37$ 




042622 


28$: 


BIT 


«SKI ,40$ 


•WAS SKI SET '' 






BNE 


<^9$ 


•YES- GO RECALIBRATE 


001 546 




9i T 


*PJP.RWDS1 


•IS PIP ACTIVE"" 






BEC 


38i 


;N0.' . 




29$- 


CLR 


RMDCO 


•CLEAR CYLINDER ADDRESS 






CLR 


R/^DAO 


■CLEAR TRACK/SECTOR ADDRESS 


001410 




MOV 


*RECAL IGO.RMCS10 


'LOAD RECAlIBRATE COMMAND 


001543 




M0V8 


*RMDC .PUTINX 


'MAKE CYLINDER ADDRESS AND 


001544 




novB 


#RnDA,PUTINX^1 


•TRK/SEC ADDRESS LOOK LIKE SEEK TO 


001545 




nOVB 


•RMCSI .PUTINX*2 


.'AND REGISTER INDEX 


001546 




MOVB 


*200-PUTINX*5 


'SET TERMINATOR 






jSR 


PC .PUT 


•GO ISSUE RECALIBRATE 






BR 


51$ 


;N0 ERROR 






BR 


50$ 








.WORD 


0 


.•ERROR IN REGISTER TRANSFER 




30$: 


ADD 


#4.(SP) 


.•TRANSFER ERROR TO USER 


000000 




M0V8 


50$-2.a(SP) 








BR 


37$ 






31$: 


JSR 


PC.TJMOUT 


.•WAIT FOR COMPLETION 



SEO 0175 



042620 



000000 



000000 



.•VERIFY RECALIBRATE IF BIT 3 SET IN TASK 

BIT *8JT^.59$ .-VERIFY RECALIBRATE?' 

BEQ 38$ .-NO..' 



52$: 
55$: 



34$: 



35$: 
30$: 



37$: 
58$: 



JSR 
>wBR 
BR 

.WORD 
ADD 
MGV8 
BR 

JSR 

BR 

BR 

• WORD 
TST 
ADD 
M0V8 

SU6 
NOP 
RT5 

.WORD 
.WORD 



PC, GET 

34$ 

33$ 

0 

#4.(SP) 

52$.a(SP) 

57$ 

PC.RCLSTS 

58$ 

36$ 

rs 

(SP)* 
*4.(SP) 
35$.i(SP) 
*2. (SP) 

PC 

0 

c 



;G0 GET STATUS 

;N0 ERROR GETTING STATUS 

.■ERROR FROM GET 

; TRANSFER ERROR TO USER 



GO CHECK RECALIBRATE 

NO ERROR DURING RECALIBRATE 

ERROR DURING RECALIBRATE 
STRIP RETURN TO SUB AND 
TRANSFER ERROR TO USER 

MOVE SP BACK BEFORE ERROR 

RETURN TO USER 

TASK/VERIFY DESCRIPTOR 
CONTAINS RMER2 



':swf«o tmo'>/^/2 KTNL rsT 



<« 
r 

f 

7 



«MC»0 VW.OO 
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.S8TTL GET STATUS SUBROUTINE 

THIS SlAfiOUTINE SETS UP THE "GET INDEX TABLE" AND THE "IGET 
BUFFER" FOR READING ALL SUBSrSTEM REGISTERS VIA THE GET SUBROUTINE 
AND THEN RETURNS TO THE USER. 



CALL: 



JSK 



PCGETSTS 



RETURN HERE 









GETSTS: 










010046 






MOV 


RO.-(SP) 


;PUSH RO ON STACK 


042626 


010146 






MOV 


RI.-(SP) 


.•PUSH R1 ON STACK 


1? 042630 


010246 






MOV 


R2,-{SP) 


.'PUSH R2 ON STACK 


^3 042632 


012700 


0015^4 




Mo; 


*GETJNX.RO 


■RO = ADDRESS OF INDEX TABLE 


14 042636 


012701 


001404 




MOV 


#RMEC2I*2.R1 


R1 = ADDRESS OF GET BUFFER 


IS 042642 


012702 


000046 




MOV 


*ftMEC2.R2 


R2 = REGISTER INDE 


16 042646 


110220 




?$: 


MOVB 


R2.(R0)* 


•WRKE REGISTER INDEX IN TABLE 


17 042650 


005041 






CLR 


-(R1) 


•CLEAR CORRESPONDING LOCATION 


18 042652 


162702 


000002 


5$: 


Sl« 


#2.R2 


•DECREMENT TO NEXT INDEX 


19 C42656 


100405 






8MI 


4$ 


■BRANCH OUT IF DONE 


20 042660 


022702 


000022 




CMP 


#RMD8.R2 


•DONT WRITE RMDB INDEX 


21 042664 


001370 






6NE 


2S 




22 042666 


005041 






CLR 


-(R1) 




?3 042670 


000770 






BR 


3$ 




24 042672 


112720 


000200 


4$: 


M0V8 


#200. (RO)* 


:WRITE TERMINATOR 


25 042676 


012602 






MOV 


(SP)*.R2 


•;POP STACK INTO R2 
•;POP STACK INTO R1 


26 042^00 


012601 






MOV 


(SPM.RI 


2f 042702 


012600 






MOV 


(SP)*.RO 


;;POP STACK INTO RO 


j9 042706 


000240 






NOP 




000207 






RTS 


Pf 





I 



\ 

5 
6 
7 

6 

9 

1 ' 



12 

•4 

15 
It 

^8 

19 

?0 

21 

?2 

2^ 

24 

2S 

26 

27 

28 

29 

30 

31 

5^ 

53 

54 

35 



56 
3? 
38 
39 
40 
41 
42 
45 
44 
4S 
46 
47 
•.S 
49 
■'O 
S' 



042710 
042712 
042716 
042722 
042726 
042730 
042732 
042734 
042736 
042740 
042744 
C42750 
042754 
042760 
042764 
042772 
043000 
04 3006 
043014 
043022 
043024 
043032 
043040 
043042 
04 3044 
043046 
C4 30*^0 



000240 
062716 
105076 
162716 
010046 
010146 
010246 
010346 
010446 
015746 
013746 
015700 
012702 
012704 
012737 
012737 
016037 
016037 
032737 
001007 
062766 
112776 
000423 
1057U 
100453 
111401 
04270* 



I 
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.S8TTL GET SUBftOuHNE 



U 



000004 
000000 
000004 



000004 
000006 
001276 
001334 
001514 
043072 
000300 
000010 
000000 
004000 

000004 
000112 



1 77700 



000004 
000006 
001174 
001 1 76 
001 1 76 

000016 
000016 



THIS SlBRObTJNE READS THfc REGISTERS WHICH ARE LISTED IN THf 
"GET INDEX TABLE" AND STORES THEIR VALUES IN THE CORRESPONDING 
LOCATION IN THE "GET REGISTER BUFFER". FOR EXAMPLE. AN 
ENTRr OF 04 IN THE TABLE WILL CAUSE THE SUBROUTINE TO 
READ "WBA" AND STORE ITS CONTENTS AT THE LOCATION IN 
THE BUFFER ASSIGNED TO THAT REGISTER. THE NUMBER OF 
REGISTERS TO BE READ IS VARIABLE FROM 1 TO 22; THE INOEX 
TABLE MUST BE TER'^JNATED WITH A CONTROL 8VTE (200) 
WHICH SHOULD FOLLOW THE LAST ENTRY. 

SUBROUTINE CALL: 



(2) 



(5) 



RO ■ 
R1 

R2 : 

R3 ^ 
R4 ■ 

GET: 



1S: 



'XJET INDEX TABLE" HAS BEEN LOADED WITH REGISTER INDEX 
VALUES AND TERMINATED WITH A CONTROL BYTE 
"GET INPUT BUFFER" IS AVAILABLE FOR USE. (NOTE THAT 
UNUSED LOCATIONS. I.E.. ENTRIES IN BUFFER CORRESPONDING 
TO REGISTERS NOT READ. ARE NOT CHANGED.) 
JSR PC. GET 

BR ??? RETURN HERE NO ERROR FOUND 

NOP RETURN HERE IF ANY ERROR FOUND 

ERROR SUB DEFINES ERROR NUMBtR 

??? 

REGISTER BASE ADDRESS 
REGISTER ADDRESS 
BUFFER BASE ADDRESS 
BUFFER ADDRESS 
POINTER TO REGISTER INDEX 



;s: 



NOP 

ADD *4.(SP) 

CLR8 a(SP) 

SUB #4.fSP) 

MOV RO.-(SP) 

MOV RI.-(SP) 

MOV R2.-(SP) 

MOV R3.-(SP) 

MOV R4.-(SP) 

MOV ERRVEC,-(SP) 

MOV ERRVEC*2.-{SP) 

MOV SBASE.RO 

MOV *GET8UF,R2 

MOV ilfGETlNX,R4 

MOV *5$.ERRVEC 

MOV *PR6.ERRVEC*2 

MOV RMCS2(R0),$TMP0 

MOV RMCS1(R0).$TMP1 

BIT *DVA.$TMP1 

BNE 3$ 

ADD *'.,16(SP) 

M0V8 *112.al6(SP) 

BR 7i' 

TST8 ^R4) 

BMI 9S 

M0V8 (R4;.R1 

br #*f IDXMSK.Rl 



; CLEAR ERROR NUMBER IN USER'S 
: ERROR CALL 

;PUSH RO ON STACK 
;PUSH R1 ON STACK 
.•PUSH R2 ON STACK 
;PUSH R3 ON STACK 
;PUSH R4 ON STACK 
.-PUSH ERRVEC ON STACK 

;;PUSH ERRVE C*2 ON STACK 



.•SETUP FOR TIMEOUT 

GET "NED" STATUS 
GET "DVA" STATUS 
DEVICE AVAILABLE?? 
YES. ! 

WRITE ERROR NUMBER IN USER'S 
ERROR CALL 

DONE?? ' 

yes: I 

R1 = REGISTER ADDRESS 
CLEAR ANY SIGN EXTENSION 



r-imso WI05/3/2 rz^K^ rsr i «wc«o vCK.oo 4-apr-8i 

52 0^3054 Of60001 ADO 

53 043056 112403 M0V8 

54 043060 042703 177700 BIC 

55 043064 060203 ADD 

56 043066 011113 • MOV 

57 043070 000764 BR 
58 

59 043072 022626 5S: CMP 

60 043074 062766 000004 000016 ADD 

61 043102 112776 000007 OOOOIfc M0V8 

62 043110 162766 000002 000016 71: SUB 
o3 043116 105714 8S: TST8 

64 043120 100405 BMI 

65 043122 005003 QLR 

66 043124 112403 MOVB 

67 043126 060205 ADD 

68 043130 005015 CLR 

69 043132 000771 BR 

70 043134 ^f: 
C43134 012637 0C0006 MOV 
043140 012637 000004 MOV 
043144 012604 MOV 
043146 012603 MOV 
043150 012602 MOV 
043152 012601 MOV 
043154 012600 MOV 
043156 000207 PTS 



J U 
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RO.Rl 

(R4)*.R3 

#*CIDXMSIC.R3 

R2.ft3 

(R1).(R3; 

3$ 

(SP)*,(SP)* ■ 

#4.16(SP) 

*7.5ll6(SP) 

*2.16(SP) 

(R4> 

91 

R3 

(R4)*.R3 
R2.R3 
(R3) 
8S 

(SP)*.EftRVFC*2 

(SP)*.ERRVtC 

(SP)*,R4 

(SP)*.R3 

(SP)*,R2 

(SP)*.R1 

(SP)*.RO 

PC 



;R3 - STORAGE ADDRESS FOR REGISTfP 
.•CLEAR ANr SIGN EXTENSION 

.-READ REGISTER 



.•RESTORE STACK 

.•WRITE ERROR NUl>«ER IN 

.•USER'S ERROR CALL 

.•DONE CLEARING?? 
•YES ' 

•CLEAR REMAINING STORAGE 
.•LOCATIONS 



;;POP STACK INTO ERRVEC»2 
POP STACK INTO ERRVEC 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 
RE TURN 



rifiirBO RMOS/^/? fCTNL TST 1 
PLT SUBROUTINE 



1 



4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
'A 
15 
16 
17 
18 
19 
?0 
21 
22 
23 
24 
25 
26 
27 
28 
29 



•WCRO V04.00 4-Af 
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SEO 0179 



30 

31 

32 

33 

34 

35 

36 

37 

38 

59 

40 

41 

42 

43 

44 

45 

46 

4/ 

48 

49 

50 



043160 
043162 
043164 
043166 
043170 
043172 
043174 
043200 
043204 
043210 
043214 
043220 
043226 
043234 
043242 
043250 
043256 
043260 
043266 
043274 
043276 
043300 
043302 
043304 
043310 
043312 
045314 
043320 
043322 
C43324 



000240 
0100416 
010146 

010246 
010346 
010446 
013746 
013746 
013700 
012702 
012704 
012737 
012737 
016037 
016037 
032737 
001007 
062766 
112776 
000424 
105714 
100425 
111401 
042701 
060001 
111403 
042703 
060203 
011511 
105724 



000004 
000006 
001276 
001410 
001543 
043330 
000300 
000010 
000000 
004000 

000004 
000112 



1 77700 
1 77700 



000004 
000006 
001 1 74 
001 1 76 
001176 

0000^6 
000016 



,S8TTL PUT SUBROUTINE 

THIS SUBROUTINE WRITES THE REGISTERS WHICH ARE LISTED IN THf 
•PUT INDEX TABLE" WITH THE CONTENTS OF THE CORRESPONDING 
LOCATION IN THE 'VuT REGISTER BUFFER". ^HE NUMBER OF 
REGISTERS WRITTEN IS VARIABIE; THE INDEa TABLE MUST 
BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD 
FOLLOW THE LAST ENTRY. 

SUBROUTINE CALL: 



(1) 
(2) 
(3) 



RO 
R1 
R2 
R3 
R4 



PUT; 



'PUT INDEX TABLE" HAS BEEN LOADED WITH INDEX VALUES 
OF REGISTERS TO BE WRITTEN. 

'PUT REGISTER BUFFER" CONTAINS CONTENTS OF EACH 
REGISTER TO BE WRITTEN. 
JSR PC. PUT 

BR ??? RETURN HERE IF NO ERROR FOUND 

NOP RETURN HERE IF ANY ERROR FOUND 

ERROR SUB DEFINES ERROR NUr«ER 

??? 

REGISTER BASE ADDRESS 
REGISTER ADDRESS 
BUFFER BASE ADDRESS 
BUFFER ADDRESS 
POINTER TO REGISTER INDEX 



1$: 



5$: 



NOP 

MOV RO.-(SP) 

MOV RI.-(SP) 

MOV R2.-(SP) 

MOV R3.-(SP) 

MOV R4.-(SP) 

MOV ERRVEC.-<SP) 

MOV ERRVEC*2--(SP) 

MOV SSASE.RO 

MOV #PUT8UF,R2 

MOV #PUTINX.R4 

MOV *5$.ERRVEC 

MOV *PR6.ERRVEC*2 

MOV RMCS2(R0).STMP0 

MOV RMCSKRO.STMPI 

BIT #DVA.$TMP1 

BNE 3$ 

ADD *4.16(SP) 

M0V8 *112.ai6(SP) 

BR 7$ 

TST8 (R4) 

BMI 9$ 

M0V8 (R4).R1 

BIC **CIDXMSK,R1 

ADD RO.Rl 

M0V8 (R4).R3 

BIC ♦*CIDXMSK.R3 

ADD R2,R3 

MOV (R3).(R1) 

TSTB (Rl,)* 



PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH ERRVEC ON STACK 

;;PUSH ERRVEC*2 ON STACK 



.•SETUP fOR TIMEOUT 

GET 'MED" STATUS 
GET •t)VA'" STATUS 
DEVICE AVAILABLE?? 
YES' ' 

WRITE ERROR NUMBER IN 
USER'S ERROR CALL 

DONE?? 
YES. I 

Rl = REGISTER ADDRESS 
CLEAR ANY SIGN EXTENSION 

;R3 = STORAGE ADDRESS 
.•CLEAR ANY SIGN EXTENSION 

.•WRITE REGISTER 

.•ADJUST REGISTER POINTER 



PU] SUBRCmiNf 

52 045S26 000765 
S3 

54 C43350 022626 

55 043532 062766 000004 

56 043340 112776 000007 
5^ 043346 162766 000002 

58 

, 59 043354 

' 043354 012637 000006 

043360 0(2637 000004 

043364 012604 

043366 012603 

043370 012602 

043372 012601 

043374 012600 

'>0 043376 040207 



MArRO V04.00 4-APR-81 



BR 

5t: 

000016 ADD 
000016 M0V8 
000016 7$: sue 

9$; 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 
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3S 



(SP)». ('SP)» 
*4.16;SPJ 
#7.S16(SP) 
*2.16(SP) 



.•ADJUST STACK 

.•WRITE tRROR NUMBER IN 

.•USER'S ERROR CALL 



(SP)*.ERRVEC*2 

(S'-^) + ,ERRVEC 

(SP) ♦.R4 

(SP)>.R3 

(SP)»,R2 

(SP)*.R1 

(SP;*.RO 

PC 



;;POP STACK INTO fRRVEC< 
POP STACK INTO ERRVEC 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 
RE TURN 



SIZE CLOCK SUBROUTINE 



4 
5 
6 
7 
8 
9 
10 
11 
1? 
15 
K 
15 
16 
V 
Id 



19 



043400 
043400 
043404 
D45410 
045416 
043424 
043432 
043440 
043444 
043446 
043450 
043456 
043464 
043472 
043476 
04 5500 
043502 
C43510 
045510 
043514 
045520 



8 



01 3746 
015746 
012757 
12757 
13737 
012737 
005777 
00042^ 
022626 
012757 
012757 
012757 
005777 
000404 
022626 
062766 

012657 
012637 
00020^^ 



ST 



000004 
000006 
045446 
000300 
177546 
000100 
1 56044 



043500 
172-^40 
000104 
156012 
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000004 
000006 
001510 
001512 



000004 
001510 
001512 



00U002 000004 

000006 
000004 



.SBTTL SIZE CLOCK SUBROUTINE 



SIZCLK: 



1$: 



2$: 
3f: 



MOV ERRVEC.-(SP) 

MOV ERRVEC*2.-(SP) 

MOV *1$.ERRVEC 

MOV *PR6,ERRVEC*2 

MOV *1 77546. CLKADR 

MOV #100.CLKVCT 

TST aCuKADR 

BR 3S 

CMP (SP)+.(SP)* 

MOV *2$.ERRVEC 

MOV *1 72540, CI.KADR 

MOV #104.CLKVCT 

TST aCLKADR 

BR 3$ 

CMP (SP)*.(SP)* 

ADD *2.4(SP) 

MOV (SP)*,ERRVEC*2 

MOV (SP)*.ERRVFC 

RTS PC 



SEO 0181 



.-PUSH ERRVEC ON STACK 

;;PUSH ERRVFC*2 ON SfAfK 
SET UP FOR BUS TIMEOUT 

LOAD ADDRESSES FOR KWll-L 

TEST FOR KW11-L PRESENT 
VES - KW11-L IS PRESENT 
RESTORE SP 

SET UP FOR BUS TIMEOUT 

LOAD ADDRESSES FOR KWH-P CLOCK 

TEST FOR KWll-P PRESENT 
YES - KW11-P IS PRESENT 
RESTORE SP 

MOVE RETURN TO ERROR 

;;POP STACK INTO ERRVEC ^2 
;;POP STACK INTO ERRVEC 
.•RETURN TO USER 



< 



'I ME OUT 



2 
3 

5 
6 
7 
8 



9 
10 
11 
12 
13 
14 
15 
16 



19 
20 
21 
22 
23 
24 
25 
26 
If 
28 

25 
30 
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Nf-Q 



043522 
043522 
043524 
043526 
043530 
043534 
043540 
043546 
043554 
043560 
043564 
043570 
043574 
043576 
17 043604 

043610 
043614 
043620 
043624 
043626 
043632 
04 3634 
043636 
043640 



043642 
043644 
043652 
045660 



010046 
010146 
010246 
013746 
013746 
012737 
012737 
013700 
013701 
012702 
020127 
001003 
012761 
012711 

016046 
042716 
022726 
001420 
032711 
001766 
005302 
001354 
000412 

022626 
062766 
112776 
162766 



000004 
000006 
043642 
000300 
001276 
001510 
000036 
172540 

000001 
0OOOO5 

000000 
177576 
000200 

000200 



000004 
000007 
000002 



3. 043666 

043666 012637 000006 

043672 012637 000004 

043676 012602 

043700 012601 

043702 012600 

<5 043704 000207 



.S8TTL TIMEOUT SUBROUTINE 

THIS SUBROUTINE WAITS FOR RDY - 1 AND GO 0 OR FOR A TIMEOUT 
GREATER THAN APPROX. 500 MSEC AND THEN RETURNS. 



CALL: JSR 



TIMOUT: 



000004 
000006 



000002 



1$: 



?$: 
3$: 



000012 
000012 
000012 



4$: 



5$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 
MOV 
MOV 

MOV 
BIC 
CMP 
BEQ 
BIT 
BEQ 
DEC 
BNE 
BR 

CMP 
ADD 
M0V8 

sue 



MOV 
MOV 

MOV 
MOV 
MOV 

RTS 



PC. TIMOUT 



RETURN HERE 



RO.-(SP) 

RI.-(SP) 

R2,-(SP) 

ERRVEC,-(SP) 

ERRVEC*2,-(SP) 

#4$,ERRVEC 

*PR6.ERRVEC^2 

SBASE.RO 

CLKADR.R1 

*30. ,R2 

R1 .-#172540 

2$ 

*1.2(R1) 
*8IT2.BIT0.(R'') 

RMCS1(R0),-(SP) 

#*C<RDY!GO>.(SP) 

*RDY,(SP)+ 

5$ 

*8IT7.(R1) 

3$ 

R2 

1$ 

5$ 

(SP)+.(SP)* 
#4.12(SP) 
#7.ai2(SP) 
*2.12CSP) 



(SP)+.ERRVEC*2 

(SP)*.ERRVEC 

(SP)*.R2 

(SP)*.R1 

(SP)*.RO 

PC 



PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH ERRVEC ON STACK 

;;PUSH ERRVEC +2 ON STACK 
SETUP FOR BUS TIMEOUT - 04 TRAP 

R0=8ASE ADDRESS 
R1=CL0CK ADDRESS 
R2=NUMBER OF CLOCK CYCLES 
KW11-P CLOCK?? 
NO.' ! 

SET COUNTER 
START COUNTER 

GET STATUS 

RDY- 1.60=0?? 
YES! J 

TIMER DONE?? 
NO! ! 

DEC NUMBER OF CYCLES 
CONTINUE IF NOT DONE 

"RDY" DID NOT SET OR "GO" DID NOT RESET 

WITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED. 

ADJUST STACK 

MOVE SP TO USER'S CALL 

WRITE ERROR NUMBER 



;;POP STACK INTO ERRVEC +2 
POP STACK INTO ERRVEC 
POP STACK INTO R2 
POP STACK INTO R1 
OOP STACX INTO RO 
RETURN TO USER 



'"ZW'WBO RW05/3/2 FCTNL TST 1 
ERf^Ofi CHECK SueilOijTINES 



2 
3 
/. 



17 
18 
19 
?0 
21 
^2 
23 
2** 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 

41 043706 

42 

43 

44 043706 062716 000004 

45 043712 105076 000000 

46 043716 162716 000004 
47 

48 

49 043722 013737 001344 

50 043730 042737 177770 

51 043736 013737 001234 

52 043744 042737 

53 043752 123737 001140 
54 

55 043760 001415 

56 0'.3762 062^16 000004 
')7 0i,l7tfi T\2776 000001 
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SEO 0183 



001142 
001142 
001140 
001140 
001142 



000000 



.S8TTL ERROR CHEC"^ SUBROUTINES 
!s8TTl PRII^lARy ERROR CHECK SUBROUTINE 



THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND 
THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFOWIED. THE 
FOLLOWING CHECKS ARE MADE: 

.CORRECT UNIT IS SELECTED. I.E., THE UNIT SELEf^ BITS Of RWCS2 
(BITS 0-2) EQUAL 'HE UNIT BEING TESTED; 

.SELECTED UNIT IS AVAILABLE, I.E., DVA (BIT 11 OF RMCS1) IS SET 
AND NED (BIT 12 Of RMCS2) IS RESET; 

.LAST COMMAND WAS COMPLETED, I.E.. THE MASSBUS CONTROLLER IS 
READY (BIT 7 OF RMCSD AND THE GO BIT IS RESET (8JT 0 OF RMCS1 ) OR ^hE 
DRIVE READY BIT (BIT 7 OF RMDS) JS SET, 

.NO PARITY ERROR OCCURRED WHEN READING REMOTE REGISTERS. 
I.E.. MCPE = 0. 

.NO PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS. 
I.E.. PAR = 0. OR. PAR = DPE - 1 

THE SUBROUTINE ASSUMES THAT: 

.STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER. 
IN PARTICULAR. RMCS1, RMCS2 AND RMDS HAVE BEEN 5T0RED IN THEIR 
CORRESPONDING LOCATIONS OF THE "GET" BUFFER. 

.(SUNIT) CONTAINS THE DRIVE NUMBER 

THE SUBROUTINE IS CALLED AS FOLLOWS: 



(1) 



JSR 

BR 

NOP 

ERROR 

JSR 



PC.PRIERR 



PC.S(SP)* 



PR I ERR: 



; CLEAR USER'S ERROR CALL 
ADD *4,(SP) 
CLR8 a(SP) 
Sl« *4,(SP) 



RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO sue FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



;MOVE (SP> TO ERROR CALL 

; CLEAR ERROR NUMBER 

;MOVE (SP) TO NO ERROR RETURN 



; REPORT AN ERROR IF THE WRONG UNIT IS SELECTED 

MOV RMCS2I,$BDDAT ; CORRECT JNIT SELECTED?? 
BIC *-CUNTMSK.$BDDAT 

MOV SUNIT, $GDDAT ;600D DATA FOR TYPEOUT 
BIC **CUNTMSK,$GDDAT 

CMP8 $6DDAT.$8DDAT ; COMPARE EXPECTED AND RECEIVED 

; DRIVE NUMBERS 
BEO 11 ;YES.. 
ADD 4r4,(SP) 

M0V8 *1.a(SP) ;ERROR 1 



C 15 





RM05/3/2 FCT^L 


TST 1 


»1ACR0 V04.00 


4- 


-APR-81 


11:43:28 PAGE 21 


-1 


PRII*IARV 


ERROR CHECK SUBROUTINE 














58 


043774 


1627"' 6 


000002 








sue 


#2.(SP) 


;M0VE SP TO RETURN FOR ERROR 


59 


044000 


004736 










JSR 


PC-(i(SP)* 


.•REPORT WRONG UNIT SELECTED 


60 


044002 


162716 


000010 








SUB 


#10. (SP) 


.•RESTORE (SP) 


61 


044006 


000240 










NOP 






62 


044010 


000137 


044530 








JMP 


10$ 


;SKIP OTHER CHECKS 


63 


044014 








IS: 










64 

65 










.•REPORT 


AN ERROR IF THE DEVICE 


IS NOT AVAILABLE OR IF 


66 










;THE 


DEVICE IS 


NONEXISTANT 




67 


044014 


032737 


^ ^ £ MAM 

004000 


001334 






D I T 


*DVA.RMCS1I 


.•DEVICE AVAILABLE?? 


68 


044022 


001045 










BNE 


5$ 


;YE5; • 


o9 


044024 


013737 


001334 


001140 






MOV 


RMCSII.SGDDAT 


.•EXPECTED STATUS 


^0 


044032 


052737 


004000 


001140 






BIS 


#DVA.$GDDAT 




71 


044040 


013737 


001334 


001142 






MOV 


RMCSII.tBDDAT 


.•RECEIVED STATUS 


72 


044046 


062716 


000004 








ADD 


#4.(SP) 




73 


044052 


1 12776 


OOOOOt 


000000 






M0V8 


#2.a(SP) 


; ERROR #2 


7k 


044060 


032737 


010000 


001344 






BIT 


#NED,RMCS2I 


;yAS NED SET?? 


75 


044066 


y 4 y 

001414 










BEO 


2S 


;NOI 1 


76 


044070 


013737 


001 344 


001140 






MOV 


RMCS2I .SGDDAT 


.■EXPECTED STATUS 


77 


C44076 


013737 


0C1344 


00 1 142 






MOV 


RMCS2I.$8DDAT 


.•RECEIVED STATUS 


78 


044104 


042737 


010000 


Art'! 1 y A 

00 1 140 






BIC 


#NED.$GDDAT 




f 7 


0441 12 


1 12776 


000005 


000000 






M0V8 


#3,a(SP) 


•VP^ - CH&MCP PRRDR NIIMRFR 


80 


044 1 20 


162716 


000002 




2$: 




sue 


*2.(SP) 


.■MOVE SP TO RETURN FOR ERROR 


81 


044124 


004736 










JSR 


PC.a(SP)* 


.•REPORT DEVICE NOT AVAILABLE 


82 


044126 


162716 


00001 0 








sue 


#10. (SP) 


.•RESTORE (SP) 


83 


044132 


000240 










NOP 






84 


044134 


000575 










BR 


10$ 


.•SKIP OTHER CHECKS 


85 
86 


044136 








5$: 










87 










.-REPORT 


AN ERROR IF MASS8US CONTROLLER IS NOT READY 


88 


044136 


032737 


000200 


001 334 






BIT 


#RDY.RMCS1I 


.•CONTROLLER READY?? 


89 


044144 


001030 










BNE 


7$ 


•YES ' ' 


90 


0<»4146 


013737 


001334 


001140 






MOV 


R«CS1I.$GDDAT 


; EXPECTED STATUS 


91 


044154 


052757 


000200 


001140 






BIS 


#RDY.$GDDAT 




92 


044162 


042737 


160001 


001140 






BIC 


#sc!tre:mcpe.go,$gddat 


93 


044170 


013737 


001334 


001142 






MOV 


RMCSII.SBDDAT 


;RECEIVED STATUS 


94 


044176 


062716 


000004 








ADD 


#4.(SP) 




95 


044202 


1 127r6 


AAA Art / 

000004 


OOOOCO 






Move 


#4.a(SP) 


.•ERROR #4 


96 


044210 


162716 


A A A Art 

000002 








SUB 


#2.(SP) 


.-MOVE SP TO RETURN FOR ERROR 


97 


044214 


004 736 










JSR 


pc.a(SP)* 


.•REPORT CONTROLLER NOT READY 


98 


044216 


162716 


/- rtAA 1 A 

0000 lO 








sue 


#10. (SP) 


.•RESTORE (SP) 


99 


0UU222 


000240 










NOP 






100 


044224 


000541 










BR 


10$ 


;SKIP OTHER CHECKS 


101 
102 


044226 








7$: 










103 










.•REPORT 


AN ERROR IF 60 IS NOT ZERO AND DRY IS NOT ONE 


104 


044226 


032737 


A AAAA1 

000001 


001334 






BIT 


#G0.RMCS1 I 


;G0 RESET?? 


105 




UU 1 *t J 1 










BEO 


8$ 


;YESI! 


106 


044236 


032737 


000200 


001346 






BIT 


#DRY,RMDSI 


.•DRIVE READY?? 


107 


044244 


001025 










BNE 


8$ 


;YES! ! 


108 




013737 


001334 


001140 






MOV 


RMCSII.SGDDAT 


.EXPECTED STATUS 


109 


044254 


042737 


160001 


001140 






BIC 


#SC.TRE.MCPE.GO,$GDDAT 


110 


044. ?62 


013737 


001334 


001142 






MOV 


RMCS1I.$BDDAT 


.•RECEIVED STATUS 


Ml 


04427C 


062/16 


000004 








ADD 


#4.(SP) 


.•ERROR #5 


!12 


0Uk27U 


112776 


000005 


000000 






Move 


#5.a(SP) 


113 




162716 


000002 








sue 


#2.(SP) 


.-MOVE SP TO RETURN FOR ERROR 


-14 


044306 


004736 










JSR 


Pc.a(SP)* 


.•REPORT DRIVE NOT READY 
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0 

PAGE 



15 

2^'2 



■•IS 04A310 


1627'' 6 


ooocin 




16 04^3U 


000240 






117 0A4316 


000504 






118 04^.320 








119 








120 








121 








122 044320 


052737 


020000 


001354 


123 044326 


001425 






124 044330 


015757 


001534 


001140 


125 044336 


042757 


160001 


001140 


126 044344 


015737 


001354 


001142 


127 044352 


062716 
1-2776 


000004 




128 044356 


000013 


000000 


129 044364 


162716 


000002 




130 044570 


004756 






131 044572 


162716 


000010 




132 044376 


000240 






133 044400 

134 C44402 


000455 












155 








136 








137 044402 


052757 


000010 


001550 


138 044410 


001451 






139 044412 


032737 


000010 


001576 


140 044420 


001045 






141 044422 


032737 


000010 


001424 


142 044430 


001413 






143 04^432 


010046 






K4 044434 


012700 


001545 




US 044440 


122710 


000014 




146 044444 


001002 






U7 044446 


012600 






148 044450 


000451 






U9 044452 


105720 






"50 044454 


100371 






"51 044456 


012600 






152 044460 


013757 


001350 


001140 


153 044466 


04273^ 


000010 


001140 


154 044474 


013737 


001350 


001142 


155 044502 


062716 


000004 




156 044506 


112776 


000050 


000000 


157 044514 


162716 


000002 




158 044520 


004736 






159 044522 


162716 


000010 




160 044526 


000240 






161 044530 


062716 


000010 




162 044534 


000240 






165 044556 


000207 







8t: 

; REPORT 
.-PARITY 



SUB 
NOP 
BR 



#10. (SP) 
10$ 



.'RESTORE (SP^ 



AN ERROR IF THE RH CONTROLLER DETECTED BAD 
ON THE MASS8US CONTROL BUS 



BIT 


#MCPE.RMCS1J 


; PAR] TV ERROR ?? 


BEQ 


9$ 


;N0. 1 


MOV 


RMLSU.SGDDAT 


.•EXPECTED STATUS 


BIC 


*sc.'tre:mcpe. 


G0,$GDDAT 


MOV 


RMCS1 I.SBDDAT 


.-RECEIVED STATUS 


ADD 


*4,(SP) 
*l3.a(SP) 


.•MOVE STACK TO USER'S ERROR 


M0V8 


.•ERROR #47 


SUB 


»2.(SP) 


.•MOVE SP TO RETURN FOR ERROR 


JSR 


pc.a(SP)* 


.•REPORT ERROR VIA USER 


sue 


#10. (SP) 


.•RESTORE STACK 


NOP 






BR 


10$ 





9$: 

.•REPORT AN ERROR IF DETECTED A CONTROL BUS PARITY ERROR 



91$: 

92$: 
93$: 



10$: 
11$: 



BIT 


#PAR,RMER1I 


;WAS THERE A PARITY ERROR?? 


BEO 


11$ 


;N0! : 


BIT 


#DPE.RMER2I 


.•WAS IT THE CONTROL BUS?? 


BNE 


11$ 


;N0T SURE i 1 


BIT 


#PAR,R«ER10 


;DID TEST SET PAR ?? 


BEO 


93$ 


;N0: .' 


MOV 


RO.-(SP) 


.-.-PUSH RO ON STACK 


MOV 


#PUTINX,RO 


;P0 POINTS TO INDEX TABLE 


CMP8 


#R«ER1.(R0) 


;:EARCH TABLE FOR RMERl 


BNE 


92$ 




MOV 


(SP;*.RO 


; -POP STACK INTO RO 


BR 


11$ 


.-PAR WAS SET BY TEST 


TST8 


(R0> + 


.-END OF TABLE?? 


BPL 


91$ 


;N0.' ! 


MOV 


(SP>*,RO 


;;POP STACK INTO RO 


MOV 


RMER1I.$6DDAT 


.•EXPECTED STATUS 


BIC 


#PAR,$GDDAT 




MOV 


RMER1I,$BDDAT 


.•RECEIVED STATUS 
SP TO USER'S ERROR CALL 


ADD 


#4.(SP) ;MOVE 


Move 


#50.a{SP) 


.■WRITE THE ERROR NUMBER 


sue 


#2,(SP) 


.•MOVE SP TO RETURN FOR ERROR 


JSR 


pc.acsp)* 


.•REPORT THE ERROR 


SUB 


#io.rsp) 


.•MOVE SP TO NO ERROR RETURN 


NOP 




ADD 


#10, (SP) 


.•RETURN TO ERROR 


NOP 


.•RETURN TO NO ERROR 


RTS 


PC 
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2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 

17 

'8 
19 

20 
21 
22 
23 
2U 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



044540 



044540 
044546 
044554 
044560 
044564 



044570 
044576 
044600 
044606 
044614 
044622 
044626 
044634 
044640 
044642 
044646 



044650 
044656 
044660 
044666 
044674 
044700 
044704 



013737 
042737 
062716 
105076 
162716 



032737 
001024 
013737 
042737 
012737 
062716 
112776 
162716 
004736 
162716 
000240 



032737 
001423 
013737 
042737 
005037 
062716 
112776 



001410 
177701 
000004 
000000 
000004 



001346 
177577 
000200 
000004 
000010 
000002 

000010 



001334 
177776 
001140 
000004 
000011 



050374 
050374 



000200 001346 



001142 
001142 
001140 

000000 



000001 001 334 



001142 
001142 



000000 



.S8TTL SECONDARY ERROR CHECK SUBROUTINE 

THE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS 
SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. THESE 
ERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY 
ASSOCIATED WITH THE OPERATION BEING PERFORMED. 

WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR 
NUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS 
TO THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUTINE 
MAKES THE ERROR CALL. IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS FOR 
OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUTINE 
RETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL. 



CALL: 



JSR 

BR 

NOP 

ERROR 

JSR 
•>-)•) 



PCSECERR 



pc,a(sp)* 



RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR WRE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



NOTE: THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED A^ 
INPUT REGISTER BUFFER. 

SECERR: 

;STORE FUNCTION CODE AND CLEAR USER'S ERROR NU^BER 

MOV RMCS10,515$ ;STORE FUNCTION CODE 

BIC <r*C<F0!F1 :F2:F3.'F4>,515$ 

ADD *4.(SP) ;MOVE (SP) TO ERROR CALL 

CLR8 a(SP} .-CLEAR ERROR NUMBER 

SUB *4.(SP) .-MOVE (SP) TO NO ERROR RETURN 

••*•»*»*•♦»»»♦«»♦**»*■♦♦**♦»♦****♦»•»»»•»••»♦»*•••*••••**••»*••••* 

•CHECK SECONDARY ERRORS COMMON TO ALL COMMA>JDS 



THE 



.•REPORT ERROR IF DRIVE IS NOT READY, I.E.. IF DRY 0 

BIT *DRY,RMDSI ;DRIVE READY?? 

8NE 5$ 

MOV RMDSJ.SBDDAT 

BIC **CDRY.$BDDAT 

MOV *DRY.$GDDAT 

ADD #4,(SP) 

M0V8 *10.a(SP) 

SUB *2.(SP) 

JSR PC.a(SP)* 

SUB *10,CSP) 
NOP 



•YES' ' 

;8AD"DATA for TYPEOUT 
.-GOOD DATA FOR TYPE OUT 
; ERROR NUMBER 

.-MOVE SP TO RETURN FOR ERROR 
.-REPORT NOT READY 

.-RESTORE (SP) TO ERROR N 



;RFPORT ERROR IF GO BIT IS NOT RESET 

5$: BIT #G0.R«CS11 ;G0 BIT RESET?? 

BEG 10$ .-YES.: 

MOV RMCSII.SBDDAT ,-BAD data FOR TYPEOUT 

BU **CG0,$BDDAT 

CLR SGDDAT ;GOOD DATA FOR TYPEOUT 

add *4.(SP) 

M0V8 *n.a(SP) .-ERROR NUMBER 





1627''6 


000002 

V V V V L 






SU8 


*2, (SP) 


.-MOVE SP TO RETURN FOR ERROR 


04A716 


004736 








JSR 


pc,a(sp)* 


.•REPORT DEVICE NOT AVAILABLE 




162716 


000010 






SU8 


*10. (SP) 


."RESTORE (SP) 


044724 


000240 








NOP 












.•REPORT 


ERROR 


IF FUNCTION CODE 


READ FROM DEVICE IS NOT CORRECT 


044726 


013737 


001334 


001142 


10$: 


MOV 


RMCS1I,$8DDAT 


;IS FUNCTION CODE CORRECT?? 


044754 


042737 


1 77701 


001142 




BIC 


**C76.$BDDAT 




044742 


013737 


050374 


001140 




MOV 


515$,$GDDAT 


.•EXPECTED FUNCTION CODE 


044750 


023737 


001 K2 


001 KO 




CMP 


$8DDAT,$GDDAT 




044756 


001413 








BEO 


15$ 


;VES. . 


044760 


062716 


000004 






ADD 


<r4,(SP) 




044764 


112776 


0000^2 


000000 




M0V8 


*12.a(SP) 


.•ERROR NUMBER 


044772 


162716 


000002 






sue 


*2.(SP) 


.-MOVE SP TO RETURN FOR ERROR 




004736 








JSR 


pc.a(sp)* 


.•REPORT WRONG FUNCTION CODE 


045000 


162716 


000010 






SUB 


#10. (SP) 


.•RESTORE (SP) 


045004 


000240 








NOP 






045006 








15$: 
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59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
o9 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
9" 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
'12 
113 
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.-REPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER 











.•ERRORS 


ARE SET. OR IF COMPOSITE 


ERROR IS NOT SET AND 










.•OTHER 


ERRORS 


ARE SET 




045006 


005037 


001140 






CLR 


$GDDAT 


EXPECT "ERR" = 0 


045012 


005737 


001350 






TST 


RMER1I 


IS RMERl - 07? 


045016 


001003 








BNb 


20$ 


NO I .' 


045020 


005737 


001376 






TST 


RMER2I 


IS RMERZ - 0?? 


045024 


001403 








BEO 


25$ 


•YES! I 


045026 


052737 


040000 


001140 


20$: 


BIS 


*ERR.$GDDA1 


"ERR" SOULD BE SET 


045034 


013737 


001 346 


001142 


25$: 


MOV 


RMDSI,$8DDAT 




045042 


042737 


137777 


001142 




BIC 


<fCERR,S8DDAT 




045050 


023737 


001140 


001142 




CMP 


$GDDAT,$fiDDAT 


■IS "tRR" OK?? 


045056 


001412 








BEQ 


30S 


•YES.'l 


045060 


062716 


000004 






ADD 


<f4,(SP) 


•MOVE SP TO USER'S ERROR 


045064 


1-2776 


000047 


000000 




M0V8 


#47.a(SP) 


■WRITE ERROR NUMBER 


045072 


162716 


000002 






sue 


*2.(SP) 


■MOVE SP TO ERROR RETURN 


045076 


004736 








JSR 


PC.a(SP)* 


REPORT INVALID COMP ERROR 


045100 


162716 


000010 






SUB 


#10. (SP) 





.•REPORT AN 
;TfiE IS SET 
;SET TRE IS 



ERROR 
OR 
SET 



IF "TRE" 
IF TRE IS 



IS SET 
NOT SE 



045104 


005037 


001140 
001 344 




30$: 


CLR 


$6DDAT 


045110 


013746 






MOV 


RMCS2I .-(SP) 


045114 


042726 


000377 






BIC 


*377.(SP)+ 


045120 


001010 








BNE 


35$ 


045122 


032737 


040000 


001346 




BIT 


#ERR.RMDSI 


045130 


001407 








BEQ 


40$ 


045132 


022737 


000030 


050374 




CMP 


#SEARCH.51S$ 


045140 


103003 








BHIS 


40$ 


045142 


052737 


040000 


00''140 


35$: 


BIS 


*TRE.$GDDAT 


045150 


013737 


001334 


001142 


40$: 


MOV 


RMCS1I.$BDDAT 


045156 


042737 


137777 


001142 




BIC 


*»CTRE.$8DDAT 


045164 


023737 


OO'KO 


001142 




CMP 


$GDDAT,$BDDAT 


045172 


001413. 








BEQ 


45$ 


045174 


062716 
112776 


000004 






ADD 


#4.CSP) 


045200 


000014 


000000 




Move 


#14,a(SP) 


045206 

C4S2V 


162716 


000002 






sue 


#2.(SP) 


004736 








JSR 


Pt.a(5P)* 



AND NONE OF THE BITS WHICH SET 
T AND ONE OR MORE BITS WHICH 

EXPECT "TRE" = 0 

WAS DLT. WCE. UPE, NED, NEM 

PGE. MX^ OR MDPE SET 

WAS EXCE^»^RECEIVED?? 

WAS DATA TRAfOT§^ED?? 

NO. . 

"TRE" SHOULD BE SET 
BAD DATA FOR TYPE OUT 



IS "TRE" 0<?? 
YES! . 

MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT TRE ERROR 




CZRMMBO RMOS/S/? FCTNL TST 1 KIACHO V04.00 
SECOlDARv ERROR CHECK SUBROUTINE 



A5$: 



^.-AP^SJ 11:43:28 



G 

PAGE 



15 

23-2 



.EO 0188 



115 


04S2U 


1627^6 


000010 




'16 


045220 


000240 






M7 


045222 








118 










^^'9 










120 










121 










122 










'23 




















i25 
126 


















127 










128 


045222 


010046 






129 


045224 


013700 


050374 




130 


045230 


016037 


0671 36 


050366 


131 


045236 


012600 






132 










153 










134 










135 


045240 


013737 


050366 


001140 


136 


045246 


032737 


040000 


001346 


137 


045254 


001403 






138 


045256 


052737 


100000 


001140 


139 


045264 


042737 


077777 


001140 


UO 


045272 


013737 


001346 


001142 


U1 


045300 


042737 


077777 


001142 


'42 


045306 


023737 


001140 


001142 


143 


045314 


00K13 






144 


045316 


062716 


000004 




US 


045322 


112776 


000006 


000000 


140 


045330 


162716 


000002 




47 


045334 


004736 






148 


045336 


162716 


000010 




149 


045342 


000240 






150 


045344 








151 










152 










153 










154 


045344 


013737 


050366 


001140 


155 


045352 


042737 


1 77776 


001140 


156 


045360 


013737 


001350 


001142 


157 


045366 


042737 


\7777t 


oor42 


158 


045374 


023737- 


-«aaj4o 


001142 


159 


045402 


001412 






160 


045404 


062716 


000004 




161 


045410 


112776 


000254 


ocoooo 


162 


045416 


162716 


000002 




163 


045422 


004736 






164 


045424 


162716 


000010 




165 


045430 


005037 


001140 




166 










167 










168 


045434 


013746 


050366 
\17777 




169 


045440 


052716 






045444 


013737 


001344 


001142 


' 7' 


045452 


042637 


001142 





sue 

NOP 



#10. (SP) 



.-RESTORE (SP) 



USING THE FUNCTION CODt lAttLE, CHECK FOR THE FOLLOWING ERRORS: 

.STATUS BITS NOT SET THAT SHOULD BE SET, E.G., ATA AND ILF 
.STATUS BITS SET THAT SHOULD NOT BE SET, E.G., WCE AND EfH 

NOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER 

STATUS CONDITIONS, E.G.. WRITE LOCK ERROR SHOULD ONLY BE SET IF 

WRITE LOCK IS ON AND THE COMMAND IS A WRITE. 

;GET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE 



MOV RO,-(SP) 

MOV 515$, RO 

MOV FNCDT8(R0).500$ 

MOV (SP)+.RO 



.•PUSH RO ON STACK 
GET FUNCTION CODE 
STORE ENTRY 
.-POP STACK INTO RO 



.•REPORT AN ERROR IF AN UNEXPEC 
;ATA IS NOT SET AND SHOULD BE 



50$: 



TED ATTENTION OCCURRED OR IF 
SET, 



MOV 


500$.$GDDAT 


GET EXPECTED ATA STATUS 


BIT 


*ERR.RMDSI 


IS COMPOSITE ERROR SET ?? 


8EQ 


50$ 


NO :.' 


BIS 


*ATA,$GDDAT 


EXPECT AN ATTENTION 


BIC 


#''CATA,$GDDAT 


■STRIP DONT CARES 


MOV 


RMDSI,$BDDAT 


GET RECEIVED ATA 


BIC 


*''CATA.$BDDAT 


STRIP DONT CARES 


CMP 


$GDDAT,$8DDAT 


■IS ATA OK ?? 


BEQ 


55$ 


YES 1! 


ADD 


*4.(SP) 


,MOVE SP TO USERS ERROR CALL 


M0V8 


#6.5i(SP) 


•LOAD ERROR * IN CALL 


SUB 


*?.(SP) 


•MOVE SP TO ERROR RETURN 


JSR 


PC.a(SP)+ 


•REPORT ERROR 


sue 


*10.(SP) 


•RESTORE SP 


NOP 







55$: 

.•REPORT ERROR IF II F IS INCORRECT, I.E.. IF ILF DOES NOT COMPARE 
.-WITH FUNCTION CODE TABLE 



60$: 



MOV 
BIC 
MOV 
BIC 
CMP 
BEQ 
ADD 

^Move 

JSR 
SUB 
CLR 



500$.$GDDAT 
**CILF,$GDDAT 
RMER1I.$BDDAT 
**C]LF,$BDDAT 
$GDDAT,$BDDAT 
60$ 

*4,(SP) 

#254,a(SP) 

#2,(3P) 



*10< 
$6DDAT 



SET 



.•REPORT AN ERROR IF WCE IS 
MOV 500$. -(SP) 
BIS **CWCE,fSP) 
MOV RMCS2J .$8DDAT 
BIC (SP)*.$BDDAT 



GET EXPECTED ILF 
CLEAR ALL OTHER BITS 
GET RECEIVED ILF 
CLEAR ALL OTHER BITS 
IS ILF OK ?? 
YES .! 

MOVE SP TO USERS ERROR CALL 
WRITt ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT 'ERROR AND RETURN 
MOVE SP TO NO ERROR 
FAR EXPECTED STATUS 



AND SHOULD^OT BE SET 
GET WCE STATUS ENABLE 
SET ALL OTHER BITS 
IRECEIVED STATUS 
CLEAR WCF IF ENABLED 



.N'WbO RMOS/?/<f fCTNL TST 1 MAC«0 V04.00 

>F jndarv error check subroutime 



4-APR-81 11:43:i?8 



H 

PAGE 



15 

2?-3 



SfO 018«> 



'72 

174 
V5 
V6 

1 ^7 

179 

^80 
'81 
182 
135 
'84 
185 
186 
187 
188 
^89 
190 
191 
192 
193 
(94 
195 
196 
197 

98 
199 
200 
201 
202 
20 < 
204 
205 
206 
?07 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
278 
219 
220 
2^1 
222 
223 
224 
225 
226 
227 

228 



045456 
045460 
045464 
045472 
045476 
045500 
045504 



045504 
C45510 
045514 
045522 
045526 
045530 
045534 
045542 
045546 
045550 
C45554 



045554 
045560 
045566 
045570 
045574 
045600 
045606 
045612 
045614 
045620 
045626 
045632 
045634 
045640 



045640 
045644 
045652 
045654 
045662 
045664 
045670 
045676 
045702 



001412 
062716 
112776 
^62716 
004756 
162716 



015746 
052716 
013737 
042637 
001412 
062716 
112776 
162716 
004736 
162716 



013746 
C32737 
001402 
042716 
052716 
013737 
042637 
001412 
062716 
112776 
162716 
004736 
162716 



012746 
032737 
001404 
05^737 
001002 
042716 
015737 
042637 
001412 



C00004 

000026 000000 
000002 

000010 



050366 
157777 

001350 001142 
001142 



90$: 



8EQ 
ADD 
M0V8 

sue 

JSR 

sue 



000004 
000164 
000002 

000010 



050366 
000100 

010000 
^ 67777 

001376 
001142 

000004 
000165 
000002 

000010 



000000 



.•REPORT ERROR 
MOV 
BIS 
MOV 
BK 
BEQ 
ADD 

Move 
sue 

JSR 

sue 



100$: 

; RE PORT 
.-SET AND 



90$ 

*4.(SP) 

#2-6.a(SP) 

*2.(SP) 

PC,a(SP)^ 

*10.(SP) 



IF OPJ STATUS 
500$. -(SP) 
*'JC0PJ,(SP) 
RMER1I.$BDDAT 
(SP)+.$BDDAT 
100$ 
*4,(SP) 
*164.a(SP) 
*2.(SP) 

pc.a(sp)+ 

*10,(SP) 



BRANCH IF WCE OK 

MOVE SP TO USER'S ERROR CAlI 

WRITE ERROR NUMBER 

MOVE SP TO ERROR RETURN 

REPORT ERROR 

RESTORE ERROR 



IS SET AND SHOULD NOT BE Sf-T 
;GET OPI STATUS ENA8LE 
;SET ALL OTHER BITS 
;GET RECEIVED STATUS 
.■CLEAR OPI IF ENABLED 
.•BRANCH IF OPI OK 
.-MOVE SP TO USER'S ERROR CALL 
.■WRITE ERROR NUMBER IN CALL 
.■MOVE SP TO ERROR RETURN 
.•REPORT ERROR 
.•RESTORE SP 



ERROR IF IVC IS SET 
VV IS NOT RESET 



AND IS NOT ENABLED OR IF iVC IS 



001346 



001142 



000000 



105$: 



MOV 


500$. -(SP) 


•GET IVC STATUS ENABLE 


BIT 


*VV.RMDSI 


;IS VV SET 


BEQ 


105$ 


;N0 : I 


BIC 


#IVC.(SP) 


■VES - IVC SHOULD BE 0 


BIS 


/f*CIVC.(SP) 
RMER2I.$BDDAT 


•SET ALL OTHER BITS 


MOV 


■GET RECEIVED STATUS 


BIC 


(SP)+.$BDDAT 


•CLEAR IVC IF ENABLED 


BEQ 


110$ 


•BRANCH IF IVC OK 


ADD 


#4.(SP) 
*165.a(SP) 


•MOVE SP TO USERS ERROR CALL 


MOVB 


•WRITE ERROR NUMBER IN CALL 


SUB 


*2,(SP) 


■MOVE SP TO ERROR RETURN 


JSR 


pc.acsp)* 


■REPORT ERROR 


SUB 


*10,(SP) 


RESTORE SP TO NO ERROR 



110$: 

BIT 11 (WLE) OF THE FUNCTION CODE TABLE IS TH& ENABLING BIT FOR 
ALL WRITE ERRORS, I.E.. 
RMER1 - WLE. WCF 
RMER2 - DPE 

RMCS2 - JPE. * 
EACH OF THESE ERRORS IS CHECKED TO SEE IF AN ERROR IS SET WHEN THE 
WRITE ERROR ENABLE BIT IS RESET. 



1 77777 
004000 



0S0366 



004000 001346 



004000 
001 350 
001142 



001142 



.■REPORT AN 
.-THE DRIVE 
MOV 
BIT 
BEQ 
BIT 
6NE 
BIC 
MOV 
BIC 
BEO 



ERROR IF WLE 
IS NOT WRITE 



IS SET AND 
PROTECTED 



WRITE ERRORS ARE NOT ENABLED, OR IF 



i15$; 
120$: 



*-1 .-(SP) 
*WLE.500$ 
115$ 

#WRL.RMDSI 
120$ 

XrWLE.(SP) 
RMER1I.$BDDAr 
(5P)+,$BDDAT 
125$ 



ASSUME WRITE ERRORS ENABLED 
ARE WRITE ERRORS ENABLED ?? 
NO . . 

IS IHE DRIVE WRITE PROTECTED 
YES !! 

RESET WLE ENABLE 
GET RECEIVED STATUS 
CLEAR WLE IF ENABLED 
BRANCH IF WLE OK 
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SEQ 0190 



229 
230 
231 
232 
233 

?55 
256 
237 
238 
239 
2'»0 
2^1 
242 
243 
244 
245 
246 
247 

248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 



045704 
045710 
045716 
045722 
045724 
045730 



045730 
045734 
045742 
045744 
045750 
045756 
045762 
045764 
045770 
045776 
046002 
C46004 
046010 



046010 
046014 
046022 
046024 
046030 
046036 
046042 
046044 
046050 
046056 
046062 
046064 
046070 



046070 
046074 
046102 
0461 04 
046110 
046116 
046122 
046124 
046130 
046136 
046142 
046144 
046150 



046150 
046154 
046160 
046166 



0627^6 
112776 
162716 
004736 
162716 



012746 
032737 

001002 
042716 
015737 
042637 
001412 
062716 
112776 
162716 
004736 
162716 



01 2746 
032737 
001002 
042716 
013737 
042637 
001412 
062716 
112776 
162716 
004736 
162716 



012746 
032737 
001002 
042716 
013737 
042637 
001412 
062716 
112776 
162716 
004736 
162^16 



013746 
052716 
013737 
042637 



000004 
COO025 
000002 

000010 



^77777 
004000 

000040 
001350 
001142 

000004 
000025 
000002 

OCOOlO 



177777 
004000 

000010 
001376 
001142 

000004 
000040 
000002 

000010 



177777 
004000 

020000 
001344 
001142 

000004 
000024 
000002 

000010 



050366 
175777 
001350 
001142 



000000 



125$: 



ADD 
M0V8 
SUB 
JSfi 

sua 



#4.(SP) 

#23.a(SP) 

*2.(SP) 

pc.a(SP)* 

*10.(SP) 



050366 
001142 

000000 



130$: 



; REPORT ERROR JF WCF IS SET AND 

MOV *-1,-(SP) 

BIT *W.E.500$ 

BNE 1 30$ 

BJC #WCF.(SP) 

MOV RMER1I,$BDDAT 

BJC (SP)+.$BODAT 

BEQ 135$ 

ADD #4,(SP) 

M0V8 *25.a(SP) 

sue *2.(SP) 

JSR pc.a(sp)* 

SUB *10.(SP) 

135$: 



MOVE SP TO USERS ERROR CAIL 
WRITE ERROR MUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 



WRITE ERRORS ARE NOT ENA8LED 
ASSUME WPJTE ERRORS ENABLED 
ARE WRITE ERRORS ENABLED ?? 

vES ;.' 

DISABLE WCF ERROR 

GET RECEIVED STATUS 

RESET WCF IF ENABLED 

BRANCH IF WCF OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUI«CER IN CALL 

MOVE SP TO ERROR RETURN 

REPORT ERROR 

RESTORE SP TO NO ERROR 



.-REPORT ERROR IF DPE IS SET AND WRITE ERRORS ARE NOT ENA8LFD 



050366 
001142 

OCOOOO 



140$: 



145$: 



MOV *-1.-(SP) 

BIT *WLE.500$ 

BNE 140$ 

BIC #DPE,(SP) 

MOV RMER2I.$BDDAT 

BIC (SP)*.$8DDAT 

BEQ U5$ 

ADD *4.(SH) 

M0V8 <f40,a(SP) 

sue *2,(SP) 

JSR Pc,a(SP)+ 

SUB *10,(SP) 



050366 
001142 

000000 



150$: 



.•REPORT AN ERROR IF UPE IS SET 

MOV *-1.-(SP) 

BIT *WLE,500$ 

BNE 1 50$ 

BIC *UPE.(SP) 

MOV RMCS2J,$BDDAT 

BIC {SP)+.$BDDAT 

BEQ 155$ 

ADD *4.(SP> 

MOVB *24.a(SP) 

sue *2.(SP)^ 

JSR pc,a(SP)t 

SUB *10.(SP)^ 

155$: 



ASSUME WRITE ERRORS ARE ENABLED 
ARE WRITE ERRORS ENABLED ?? 

YES ! : 

RESET DPE ENABLE 
GET RECEIVED STATUS 
RESET DPE IF ENABLED 
BRANCH JF DPE OK / 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR 
RESTORE SP TO NO ERROR 
/ 



AND WRITE ERRORS ARE NOT ENABLED 
ASSUME WRITE ERRORS ARE ENABLED 
ARE WRITE ERRORS ENABLED ■>? 

yES . ! 

DISABLE UPE ERROR 
GET RECEIVED STATUS 
RESET UPE IF ENABLED 
BRANCH JF UPE OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



;REPORT AN ERROR IF JAE IS "SET AND IS NOT ENABLED 



001142 



MOV 500$. -(SP) 

BIS #*CIA£.(SP) 

MOV RMER1J,$BDDAT 

BIC (SP)*, $BDDAT 



GET lAE ENABLE 
SET ALL OTHER BITS 
GET RECEIVED STATUS 
CLEAR lAE IF ENABLED 
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SEO 0191 



?86 046172 
287 046174 
?88 046200 

289 046206 

290 046212 

291 046214 

292 046220 
293 

294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 

310 046220 
511 046224 

312 046232 

313 046234 

314 046240 

315 046246 

316 046252 
31 f 046254 

318 046260 

319 046266 
520 046272 

321 046274 

322 046300 
323 

324 

325 046300 

326 046304 

327 C46312 

328 046314 

329 046320 

330 046326 

331 046332 

332 046334 
533 046340 

334 046346 

335 046352 
356 046354 
537 046360 
338 

559 

5/.0 046 560 
046364 
046372 



001412 

062716 000004 

V277b 000166 

162716 000002 
004736 

162716 000010 



541 
5<.2 



012746 
032737 
001002 
042716 
013737 
042637 
001412 
062716 
112776 
162716 
004736 
162716 



0127A6 
032737 
001002 
042716 
013737 
042637 
001412 
062716 
112776 
162716 
004756 
•62716 



0127<.6 
032''37 
001002 



M7777 
001000 

100000 
001344 
001142 

000004 
000032 
000002 

000010 



}77777 
001000 

004000 
001344 
001142 

000004 
000167 
000002 

000010 



U7777 
001000 



000000 



1601: 



BEQ 
ADD 
M0V8 

sue 

JSR 

sue 



160JI 
#4,(SP) 
*166.a(SP) 
<r2,(SP) 

PC.a(SP)+ 

#10, (SP) 



BRANCH IF lAE IS OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO ERROR RETURN 

REPORT ERROR AND RETURN 

MOVE SP 10 NO ERROR 



BIT 09 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
ALL READ/WRITE E.'^RORS. I.E., 
RMCS1 - TRE 



/RMCS2 - DLT,NEM,«XF 



RMDS - LBT 
/ RMERl - AOE 
NOTE: 

LBT IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED 
CYLINDER REGISTER IS WRITTEN 
NOTE: 

AOE CANNOT BE SET IF LBT IS NOT ALSO SET 

NOTE: 

TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDI TONS ABOVE 



050366 
001142 

000000 



165$: 



.•REPORT AN ERROR IF DLT IS SET 

MOV #-1.-(SP) 

BIT *A0E.500t 

BNE 165$ 

8IC *DLT,(SP) 

MOV R«CS2I,$BDDAT 

BIC (SP)+,$8DDAT 

BEQ 1 70$ 

ADD *4,(SP) 

MOVB *32,a(SP) 

sue #2.(SP) 

JSR Pc,a(SP)+ 

SUB 4f10,(SP) 

170$: 



AND READ/WRITE ERRORS ARE NOT ENABLED 
ASSJIE ERRORS ARE ENABLED 
ARE ERRORS ENABLED ?? 
YES !; 

RESET DLT ENABLE 
GET RECEIVED STATUS 
CLEAR DLT IF ENABLED 
BRANCH IF DLT IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



050366 
001142 

000000 



175$: 



.-REPORT ERROR IF NEM IS SET AND 

MOV #-l.-(SP) 

BIT *AOE.500$ 

BNE 175$ 

BIC #NEM,(SP) 

MOV RMCS2I,$BDDAT 

BIC (SP)+.$8DDAT 

BEQ 180$ 

ADD *4.(SP) 

Move #167,a(SP) 

SUB #2,(SP) 

JSR Pc,a(SP)+ 

SUB *10,(SP) 

■80$: 



READ/WRITE ERRORS ARE NOT ENABLED 
ASSUME ERRORS ARE ENABLED 
ARE ERRORS ENABLED ?? 
YES I! 

DISABLE NEM 

GET RECEIVED STATUS 

CLEAR NEM IF ENABLED 

BRANCH IF NEM IS OK 

MOVE SP TO USERS ERROR CAl L 

WRITE ERROR NUMBER IN CAL. 

MOVE SP TO ERROR RETURN 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 



.-REPORT ERROR IF MXF IS SET AND READ/WRITE ERRORS ARE NOT ENABlED 



050566 



MOV 
BIT 
BNE 



#-1 ,-(SP) 
*A0E,500$ 
^85$ 



ASSUME ERRORS ARE ENABLED 
ARE DATA ERRORS ENABLED ?? 
YES . ! 



^ZRMMBC RM05/3/2 FCTNL TST 1 MACRO v'04.00 
sF^'ONDARY ERROR CHECK SueROUTlNE 



543 


046374 


0427'' 6 


001000 




046400 


013737 


C01 344 




046406 


042637 


001 142 


546 
347 
348 


04641 2 


001412 




046414 


062716 


000004 


046420 


^^2776 

I it' • V 


000033 

WWW 


549 


046426 


162716 


000002 

W W W W W 


350 


046452 


004736 




351 


046434 


162716 


00001 0 

www ' w 


352 


046440 






353 








354 








555 


046440 


012746 


M7777 


356 


046444 


032737 


001000 


357 


046452 


001404 




358 


046454 


032737 


002000 


359 


046462 


001 002 




360 


046464 


042716 


001000 


361 


0464 7'0 


013737 


001350 


362 


C46476 


042637 


0G1142 


363 


046502 


001412 




364 


046504 


062716 


000004 


365 


046510 


1 1 2776 
162716 


000020 


366 


046516 


000002 


367 


046522 


004736 




368 


046524 


162^16 


000010 


369 


046530 






370 








37^ 








372 








373 








374 








575 








376 








377 


046530 


032737 


002000 


378 


046536 


001403 




379 


046540 


042737 


000200 


380 


046546 






381 








^82 








583 


046546 


012746 


^77777 


384 


C46552 


032737 


000200 


385 


046560 


001002 




586 


046562 


042716 


000400 


387 


046566 


013737 


001350 


388 


046574 


042637 


001142 


389 


046600 


001412 




390 


046602 


062716 


000004 


391 


046606 


112776 


000035 


392 


046614 


162716 


000002 


393 


046620 


004736 




394 


046622 


162716 


000010 


595 


046626 






396 








'97 








598 


046626 


012746 


1 77777 


39<' 


04665? 


03273' 


C0020D 



001142 
000000 



85S: 



190$: 



4-APR-81 



BIC 
MOV 
BJC 
BEU 
ADD 
M0V8 

sue 

JSR 

sue 
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SEO 0192 



»MXF,(SP) 

RMCS2I,$BDDAT 

(SP)*,$BDDAT 

190S 

*4.(SP) 

*33,5)(SP) 

*2.(SP) 

PC.5)(SP)* 

*10,(SP) 



DISABLE MXf ERROR 
GET RECEIVED STATUS 
CLEAR MXF IF ENABLED 
BRANCH IF MXF IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN fALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



050366 
001 346 

001142 
000000 



191$: 
195$: 



ERROR 


IF AOE IS SET AND DATA ERRORS ARE NOT ENABLED 


MOV 


*-l.-(SP) 


ASSUME DATA ERRORS ARE ENABLED 


BIT 


*A0E,500$ 


ARE DATA ERRORS EANBLED ?? 


BEQ 


191$ 


NO !. 


BIT 


*.8T,RMDSI 


IS LOT ALSO SET ?? 


BNE 


195$ 


•rES 1 


BIC 


*AOE,(SP) 


•DISABLE AOE 


MOV 


RMER1I.$BDDAT 


•GET RECEIVED STATUS 


BIC 


(SP)*.$BDDAT 


•CLEAR AOE IF ENABLED 


8EQ 


200$ 


■BRANCH IF AOE IS OK 


ADD 


#4.(SP) 
*20.a(SP) 


•MOVE SP TO USERS ERROR CALL 


Move 


; WRITE ERROR NUMBER 


sue 


*2.(SP) 


;MOVE SP TO ERROR RETURN 


JSR 


pc.a(SP)+ 


.•REPORT ERROR AND RETURN 


sue 


#10, (SP) 


•MOVE SP TO NO ERROR 



001366 
050366 

050366 
001142 

000000 



200$: 

BIT 07 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
HEADER ERRORS, I.E.. 

RMER1 - HCRC.HCE.FER 

RMER2 - BSE 

.-RESET THE ENABLING BIT (riCE) IF HEADER COMPARE INHIBIT IS SET 



201$: 



BIT 
BEQ 
8K 



*MCI.RM0FI 
201$ 

#HCE,500$ 



205$: 



.•REPORT AN ERROR IF HCRC IS SET 

MOV *-1.-(SP) 

BIT #HCE.500$ 

BNE 205$ . 

BIC #HCRC,(SP) 

MOV RMER1I,$BDDAT 

BIC (SP)+.$BDDAT 

BEQ ?10$ 

ADD #4.(SP) 

M0V8 *35,a(SP> 

sue *2,(SP) 

JSR pc.a(sp)* 

sue *io.(SP) 

210$: 



IS HCI SET ?? 
NO ! ! 

YES - DISABLE ALL HEADER ERRORS 



AND HEADER ERRORS ARE NOT ENABLED 
ASSUME ERRORS ENABLED 
ARE HEADER ERRORS ENABLED ?? 

vEs :i 

DISABLE HCRC 
GET RECEIVED STATUS 
RESET HCRC IF ENABLED 
8RANCH IF HCRC IS OK 
MOVE SP TO USERS ERROR CALl 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



C5G366 



.■REPORT ERROR IF HCE IS SET AND HEADER ERRORS ARE NOT ENABLED 
MOv *-1.-CSP) .-ASSUME ERRORS ENABLED 

BIT #HCE.500$ .-ARE ERRORS ENABLED ?? 



Z»f«0 f*m^/V2 FCTNL TST 1 
FCONOARv ERROR CHECK SUBROUTINE 



MACRO ;C^.OC i.-A»-R-81 1'■.i.l:^e 



L 

PAGE 



15 

22-7 



400 046640 


001002 




401 <J46642 


042/16 


000200 


402 046646 


013757 


001550 


403 046654 


042637 


00114? 


404 046660 


001412 




405 046662 


062716 


000004 


^06 046666 


112776 


000056 


407 046674 


162716 


000002 


408 046700 


004736 




409 046702 


162716 


000010 


^10 046706 












412 






415 046706 


012746 


\77777 


414 046712 


032737 


000200 


41 3 046720 


001002 




416 046722 


042716 


000020 


4'' 7 046726 


013737 


001550 


4'8 046734 


042637 


001 U2 


419 046740 


001412 




420 046742 


062716 


000004 


421 046746 


112776 


000037 


422 046754 


162716 


000002 


423 046760 


004736 




424 046762 


162716 


000010 


425 046766 






426 






427 






428 046766 


012746 


■\77777 


429 046772 


032737 


000200 


430 047000 


001002 




431 047002 


042716 


100000 


432 047006 


013737 


001576 


433 047014 


042637 


001142 


434 047020 


001412 




435 047022 


062716 


000004 


436 047026 


112776 


000354 


437 047034 


162716 


000002 


438 047040 


004736 




4 59 047042 


162716 


000010 


440 047046 






441 






442 






44 3 






444 






445 






446 






44/ 






448 






449 






450 






451 047046 


012746 


^77777 


452 U47052 


032737 


000100 


*.53 047060 


001002 




454 047062 


042716 


000400 


455 U47066 


013757 


001544 


456 047074 


042637 


001142 



001142 2'5J: 



000000 



220$: 



BNE 21 5S 

BIC *HCE.(SP) 

MOV RMERIl.tBDDAT 

BIC (SP)*,$8DDAT 

B£Q 220$ 

ADD *4.(SP) 

M0V8 *36.dl(SP) 

SUB #2.'SP) 

JSR PC.oKSP)* 

sue *10.(SP) 



050366 



001142 225$: 



000000 



050366 
001142 

000000 



235$: 



240$: 



.-REPORT ERROR If FER IS SET AND 

MOV *-1.-(SP) 

BIT *HCE.500$ 

BNE 225$ 

BIC *fER.(SP) 

MOV RMER1].$BDDAT 

BIC (SP)*.$BDDAT 

BEG 230$ 

ADD *4,(SP) 

M0V8 #37.a(SP) 

SUB #2.(SP) 

JSR PC.a(SP)* 

SUB #10, (SP) 

230$: 

.•REPORT ERROR IF BSE IS SET AND 

MOV #-l.-(SP) 

BIT #HCE.500$ 

BNE 255S 

BIC #8SE.(SP) 

MOV RMER2I.$BDDAT 

BIC (SP)*.$BDDAT 

8EQ 240$ 

ADD *4,(SP) 

M0V8 *354.a(SP) 

SUB *2.(SP) 

JSR PC.S(SP)* 

SUB *10.(SP) 



YES ;. 

DISABLE MCE 

GET RECEIVED STATUS 

CLEAR HCE IF ENABLED 

BRANCH IF HCE IS OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER IN C^LL 

MOVE SP TO ERROR RETURN 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 



HEADER ERRORS ARE NOT ENA8LCD 
ASSUME FER IS ENABLED 
ARE HEADER ERRORS ENABLED 
YES I.' 
DISABLE FER 
GET RECEIVED STATUS 
RESET FER IF ENABLED 
BRANCH IF FER OK 
MOVE SP TO USERS ERROR CAl L 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



HEADER ERRORS ARE NOT ENABLED 
•ASSUME ERRORS ENABLED ^ 

ARE THEY ENABLED ?? 

YES ' ' 

DISABLE BSE 

GET RECEIVED STATUS 

CLEAR BSE IF ENABLED 

BRANCH If BSE OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO ERROR RETURN 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 



BIT 06 OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA 
FIELD ERRORS. I.E.. 

RMCS2 - MDPE 

RMERl - DCK.ECH 

NOTE : 

ECH CANNOT SET UNLESS IT IS ENABLED AND EC I IS RESET AND 
DCK IS SET. 

.•REPORT ERROR IF MDPE IS SET AND IS NOT ENABLED 



001142 



MOV 
BIT 
BNE 

BIC 

245$: MOV 
BIC 



*-1,-CSP) 
#ECH,500$ 
2^5$ 

#MDPE. (SP) 

RMCS2I,$8DDAT 

(SP)*.$BDDAT 



ASSUME ENABLED 

ARE DATA FIELD ERRORS ENABLED 

YES !. 

DIS8ALE MDPE 

GET RECEIVED STATUS 

CLEAR MDPE IF ENA3LED 



""ZHIWO RMOS/5/2 FCTNl TST 1 MACRO V04.00 
SECONDARY ERROR CHECK SUBROUTINE 





y4r luo 


AA1 / 1 O 




/CO 


Ay 7 1 A"^ 


AX O 7 1 X 


r.AAAAy 
000004 


/ CO 


A/ 71 AX 

U4/' 106 
A- 71 1 y 


1 1 ■577X 


AAAft07 
0000^ f 


*toO 
46 


1 X'371X 


00000^ 


Ay 71 OA 


AAy 7ZX 

004 y 5o 




HOC 


t\j 71 O'i 




OUUO 1 0 


4o5 


Ay 71 Ox 
04 r ^^6 














4dj 








4oo 


04 Z' 1 iTO 


ftl 07/.A 
U 1 C f hO 


1 77777 

\ 1 1 1 1 f 


/ A.7 


AA71 XO 
Oh f 1 JC 


03c ' J' 


ftftftl ftft 
UUU 1 UO 


«»oo 


nA71Z.ft 
\jhf I*»U 


UU 1 UUc 






Ay 71 L 0 
Uhl 


A/ 971 A 
Uh£ I \ O 


1 ftftftftft 

1 uuuuu 


A 7ft 


Uh 1 1 SO 


ftl ?7'?7 


ftfti 7sn 

UU 1 JJ\J 


A71 
*♦ f 1 


nz. 71 IZ. 


UHxOjf 


UU 1 1 HC 


HI C 


nz.71 Aft 
\Jh 1 1 ou 


nfti Z.1 ? 

UU 1 H 1 c 






Ay. 71 
U*» 1 DC 


ftA?71 A 

Uoc ' 1 o 


ftftftftftA 
UUUUUH 




ft/ 71 
Uh I 1 OO 


1 1 577A 


ftftftft7ft 
UUUUjU 


A 7^ 


ftZ.71 7L 
\Jh 1 \ 1 h 


1 A?71 A 


ftftftftft? 
UUUUUc 


Z. 7A. 


C.L 79ftft 


Afty 77A 
UUh I JO 




L 77 


ftA79ft? 

UH 1 cyjc 


1AP71 A 


AftAAIA 
UUUU 1 U 


L7H 


ftZ.75ftA 
Um f cvO 






h 1 7 
















Afll 
mO I 
























ho** 


ftZ.75ftA 
Uh f c UD 


ni P7AA 
U 1 c ' HO 


1 77777 

\ 1 1 1 1 1 


ho J 


ftA701 0 
UH 1 C \ C 


yjjci -ji 


ftftftl ftft 
UUU 1 UU 


'•OD 


nZ.75Pft 
Uh Z^ cc U 


ftft 1 z. 1 ft 
UU 1 H 1 U 




hot 


Uh y ccc 


Ujx ' J' 


ftftAftftn 


Z.BU 


ftZ.7?Xn 
Uh r t jU 


001004 




H07 


047232 


\JJCl jl 


1 ftftftftft 
1 uuuuu 


490 

•t TV 


047240 


00100? 




491 


047242 


042716 


000100 


492 


047246 


013737 


00t350 

001 k: 


493 


047254 


042637 


A94 


047260 


001412 


495 


047262 


062716 


000004 


496 


047266 


112776 


G0C031 


497 


04727A 


162716 


000002 


498 


047300 


004736 
162"1u 




499 


047302 
047306 


000010 


500 







250$: 



4-APR-81 



BEO 

ADD 

M0V8 

c»U8 

JSR 

SUB 
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250$ 
#4, (SP> 
#27.a(SP) 
*2.(SP; 

pc.a(sp>» 

#10. (SP) 



BRANCH IF MDPE OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALJ 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



050366 
001142 

000000 



.•REPORT ERROR IF DfK IS SET AND DATA FIELD ERRORS ARE NOT ENABlK^ 



255$: 



MOV 


*-'.-(SP) 


ASSUME ENABLED 


BIT 


#ECH.500$ 


•ARE THEY ENABLED ?? 


BNt 


255$ 


YES !! 


BIC 


*DCK,(SP) 


DISABLE DCK 


MOV ' 


RMER1I.$BDDAT 


■GET RECEIVED STATUS 


BIC 


(SP)+.$BDDAT 


CLEAR DCK IF ENABLED 


BEQ 


260$ 


•BRANCH IF DCK IS OK 


ADD 


*4.(SP) 


•MOVE SP TO USERS ERROR CALL 


MOVB 


#30.5)(SP) 


•WRITE ERROR NUMBER IN CALL 


SUB 


#2. (SP) 


•MOVE SP TO ERROR RETURN 


JSR 


PC.a(SP)+ 


; REPORT ERROR AND RETURN 


SUB 


*10.(SP) 


jMOVE SP TO NO ERROR 



?eo$.- 

REPORT ERROR IF ECH IS SET AND. 

DATA FIELD ERRORS ARE NOT ENABLED, OR 
ECI IS SET, OR 
DCK IS NOT SET. 



001366 
rC1350 

001142 
000000 



265$: 
270$: 



275$: 



MOV 


*-1.-(SP) 


•ASSUME ENABLED 


BIT 


i»ECH.500$ 


•ARE ERRORS ENABLED ?? 


BEO 


265$ 


•NO ! ! 


BIT 


*ECI.RM0FI 


•IS ECI SET ?? 


BNE 


265$ 


•YES !I 


BIT . 


tfDCK.RMERII 


•IS DCK ALSO SET ?? 


BNE 


270$ 


•YES !.' 


BIC 


#ECH.(SP) 


■DISABLE ECH 


MOV 


RMER1I.$8DDAT 


•GET RECEIVED STATUS 


BIC 


(SP)+.$BDDAT 


•CLEAR ECH IF ENABLED 


BEQ 


275$ 


•BRANCH IF ECH IS OK 


ADD 


*4,(SP) 


•MOVE SP TO USERS ERROR CALL 


M0V8 


*3i.a(SP) 


•WRITE ERROR NUMBER IN CALL 


SUB 


- *2.(SP) 


;MOVE SP TO ERROR RETURN 


JSR 


PC,a(SP)+ 


•REPORT ERROR AND RETURN 


SJB 


*10.(SP) 


•MOVE SP TO NO ERROR 



ZW-^CftO RM05/^/2 FCTNL TST 1 »WCRO 
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SCO 019S 



2 
3 

4 
5 
6 
7 

8 
9 

10 

11 

12 

13 

U 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

3A 

35 

36 

37 

38 

39 

AO 

A1 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



047306 
047314 
047316 



047322 
047330 
047332 
047340 
047342 
047346 
047354 
047360 
047364 
047366 
047372 



022737 
'03402 
000137 



013737 
001421 
032737 
001015 
0t)2716 
112776 
005037 
162716 
004736 
162716 
000240 



000030 
050340 

001336 

040000 

000004 
00001 5 
001140 
000002 

000010 



•PERFORM THE REI«IAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS 



050374 

001142 
001 334 

000000 



280S: 



047374 


013737 


001336 


001140 


047402 


163737 


001412 


001 140 


047410 


006337 


001140 




047414 


063737 


001414 


001140 


047422 


032737 


000010 


001344 


047430 


001403 






047432 


013737 


001414 


001140 


047440 


023737 


001140 


001 340 


047446 


001416 






047450 


013737 


001340 


001142 


047456 


062716 


000004 




047462 


112776 


000016 


000000 


047470 


162716 


000002 




047474 


004736 






047476 


162716 


000010 




047502 


000240 






047504 


005046 






047506 


013746 


001336 




047512 


163716 


001412 




047516 


012746 


000400 




047522 


032737 


000002 


001410 


047530 


001402 






047532 


062716 


000002 




047536 


005266 


000004 




047542 


161666 


000002 




047546 


003373 






047550 


0?2'>26 







285$: 



CMP 


#SEARCH.515$ 


;UAS DATA TRANSFERRED ? 




280$ 


,•8.'? IF YBS 


JMP 


355$ 


;N0 - EXIT 


ERROR 


IF RMWC NOT ZERO AND TRE IS ZERO 


MOV 


RM«JCI,$BDDAT 


.-WORD COUNT ZERO?? 




285$ 


;YES 


BIT 


*TRE RMCS1I 


•TRANSFER ERROR DETECTED'''' 


BNE 


285$ 


;YES: . 


ADD 


*4,(SP) 




M0V8 


*i5,a(SP) 


.'ERROR NUMBER 


CLR 


$GDDAT 


;GOOD DATA FOR TYPEOUT 


sue 


*2.(SP) 


.•MOVE SP TO RETURN FOR ERROR 


JSR 


PC.a(SP)* 


.■REPORT WORD COUNT NOT ZERO 




^t^Q. (SP) 


.■RESTORE (SP) 


NOP 






EKROR 


IF RM8A IS NOT 


CORRECT 


MOV 


RMUCI.$GDDAT 


;6ET WORD COUNT AT END OF TRANSFER 


sue 


RMWCO.$GDDAT 


.•SUBTRACT STARTING WORD COUNT. 


ASL 


$GDDAT 


;* 2 


ADD 


RM8A0.$6DDAT 


;ADD STARTING BUS ADDRESS 


BIT 


*8AI,RMCS2I 


;WAS BUS ADDRESS INHIBIT (BAD SET 


BEG 


290$ 


;N0 ! . 


MOV 


RM8A0.$GDDAT 


.■ADDRESS SHOULD NOT HAVE CHANGED 



290$: 



CMP $GDDAT.RMBAI 

BEQ 295$ 

MOV RM8AI.$8DDAT 

ADD #4,(SP) 

M0V8 *16,a(SP) 

sue /f2ASP) 

JSR Pc.a(SP)+ 

SUB *10.(SP) 
NOP 



BUS ADDRESS OK?? 
YES.' . 

BAD DATA FOR TYPEOUT 
ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 
REPORT UNEXPECTED ADDRESS 
RESTORE (SP) 



COMPUTE NUMBER OF SECTORS TRANSFERRED FROM WORD COUNT 



295$: CLR -(SP) 

MOV RMWCI.-(SP) 

SUB RMWCO,(SP) 

MOV ff256.,-(SP) 

BIT *8IT1,RMCS10 

BEQ 300$ 

ADD 1(2 ASP) 

300$: INC 4(SP) 

SUB (SP),2(SP) 

BGT 300$ 

CMP (SP)*.(SP)* 



NUMBER OF SECTORS TRANSFERRED 

GET WORD COUNT AT END OF TRANSFER AND 

SUBTRACT STARTING WORD COUNT. 

ASSUME 256. WORDS PER SECTOR 
HEADER % DATA COMMAND ?? 

NO ! ! 

CHANGE TO 258. WORDS PER SECTOR 

INCREMENT SECTOR COUNT 
SUBTRACT ONE SECTOR'S WORTH 
CONTINUE IF NOT DONE 
RESTORE STACK 



;CGMPUTE EXPECTED SECTOR. TRACK AND CYLINDER ADDRESS FROM 



S£CCMDARv ERROR CHECK SUBROUTINE 
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SCO 019b 



S8 
59 
60 
6^ 
62 
63 
64 
tS 
66 
67 
68 
o9 
'0 
71 
72 
73 
74 
75 
76 
77 
78 
79 

80 



047552 
047560 
047566 
047574 
04760? 
047606 

047612 
047620 
047624 
0^.7632 

047636 
047644 
047646 
047652 
047660 



C47662 
047670 
047672 
04 7676 
6*^4 7704 
82^7706 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
<>6 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

no 
111 
112 
''3 



047710 
047710 
047714 
047722 
047724 
047732 
047734 
047742 
047750 
047756 
047764 
047766 
047772 
050000 
C50OO4 
050006 
050012 



050014 
050020 
050026 
050030 
050036 
050040 
050044 
050046 
050052 
050054 
0500^2 



005037 
023727 
101407 
032737 
001003 
012737 
013737 
042737 
023737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 



005037 
032737 
001031 
023727 
101425 
005737 
001012 
005737 
001007 
032^37 
00'413 



.-NlllBER Of SECTORS 





C01444 


050366 




mv 


PMDC0.500$ 


.STORE ORIGINAL CVLINDER 


01 ^Z"?? 

W ' J' J' 


0C1416 


050370 




MOV 


RMDA0.505$ 


.•STORE ORIGINAL TRACK 


013737 


001416 


050372 




MOV 


RMDA0.510$ 


.•STORE ORIGINAL SECTOR 


013737 


001332 


050376 




MOV 


LSTRK.5201 


; STORE LAST TRACK, 


000337 


050376 






SWAB 


520$ 


;GET TRACK ADDRESS TO LO BYTE AND 


005? ?7 


050376 






INC 


520$ 


.•INCREMENT TO GET TOTL # OF TRACKS. 


042737 


000377 


050370 




BIC 


»*C<TADMS<>,505$ ;SAVE TRACK ADDRESS BITS AND 


000337 


050370 






SWAB 


505$ 


;SWAP TRACK ADDRESS TO LOW BYTE. 


042737 


1 77400 


050372 




BIC 


«*C<SADMS<>,510$ .-SAVE SECTOR ADDRESS BITS 


062637 


050372 






ADD 


(SP)+.510$ 






050372 


000040 


310$: 


CMP 


5 10$, #32. 


.•SECTOR OVEFIOWED?? 


103406 








6L0 


315$ 


;N0! . 


005237 


050370 






INC 


505$ 


.•INCREMENT TRACK 


162737 


000040 


050372 




SUB 


#32., 510$ 


.■ADJUST SECTOR 


000766 








BR 


310$ 


;TRy AGAIN 


023737 


050370 


050376 


315J: 


CMP 


505$, 520$ 


.•TRACK OVERFLOWED?? 


103407 








BLO 


520$ 


;No: ; 


005237 


050366 






INC 


500$ 


.•INCREMENT CYLINDER 


163737 


050376 


050370 




SUB 


520$, 505$ 


;ADJUST TRACK 


000766 








BR 


315$ 


.-TRY AGAIN 


000240 








NOP 












.•REPORT 


ERROR 


IF "L8T" IS NOT 


CORRECT 



001 HO 
050366 



320$: 



001466 



002000 001350 



002000 
001346 
175777 
001140 

000004 
O00C17 
000002 

000010 



001140 
001142 
001142 
001142 



000000 



325$: 



CLR 


$GDDAT 


;SET GOOD DATA FOR L8T 


0 


CMP 


500$, #822. 


.•SHOULD L8T BE SET?? 




BLOS 


325$ 


;N0. . 




BIT 


#JAE,RMER1I 


;WAS lAE SET ?? 




BNE 


325$ 


;YES - L8T SHOULD NOT BE SET 


MOV 


#L8T.$G0DAT 


;SET GOOD DATA FOR L8T 


- 1 


MOV 


RMDSI,$8DDAT 


;8AD DATA FOR TYPEOUT 




BK 


#*:L8T.$8DDAT 






CMP 


$CDDAT,$8DDAT 


;IS L8T CORRECT?? 




BEQ 


350$ 


;YES. ! 




ADD 


/>4,(SP) 






M0V8 


^^l7.a(SP) 


; ERROR NUMBER 




SUB 


*2,CSP) 


;MOVE SP TO RETURN FOR 


ERROR 


JSfi 


pc,a(SP)* 


.•REPORT LBT IS WRONG 




sue 


#10, (SP) 


.-RESTORE (SP) 




NOP 









001140 

002000 001350 
050366 001466 
050370 
050372 

000010 050374 



.•REPORT ERROR 
330$: CLR 
BIT 
BNE 

CMP 

BLOS 

TST 

BNE 

TST 

BNE 

BIT 

BEQ 



IF "AOE" IS INCORRECT 



$6DDAT 
#IAE.RMER1I 
340$ 

500$, #822. 

340$ 

505$ 

335$ 

510$ 

335$ 

#F2, 515$ 
340$ 



SET FOR AOE = 0 
WAS "lAE" DETECTED?? 
VES-"AOE" SHOULD BE ZERO 
SHOULD AOE BE SET?? 
NO.' : 
MAYBE 
YES 



YES 
WAS 
NO . 



THIS READ OR WRITE CHECK '? 
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S€0 0197 



'15 
"16 

-9 

VC 

121 

122 

'23 

124 

125 

126 

127 

1?8 

129 

130 

131 

^32 

133 

134 

155 

136 

137 

138 

139 

KO 

U1 

U2 

143 

144 

145 

146 

147 

148 

149 

150 

'51 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 



050064 
050070 
050072 
050100 
050104 
C50112 
050120 
050126 
050134 
050136 
050142 
050150 
050154 
050156 
050162 



005737 
001410 
012737 
005037 
012737 
013737 
042737 
023737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 



001556 

001000 
050370 
000001 
001550 
1 76777 
001140 

000004 
000020 
000002 

000010 



001140 

050372 
001142 
001142 
001142 



000000 



355S: 
540$: 



TST mjci 

BEO 340S 

MOV #A0E.$GDDAT 

CLR 505$ 

MOV #1,510$ 

MOV RMER1I,$BDDAT 

SIC #-CA0E,$8DDAT 

CMP $GDDAT.$8DDAT 

BEO 345$ 

ADD *4.(SP) 

«10V8 *20.a(SP) 

SUB #2.(SP) 

JSR PC,a(SP)* 

SUB #10. (SP) 

NOP 



WAS ALL DATA TRANSFERRED ?? 
VES !.' 

SET FOR AOE = 1 
CLEAR EXPECTED TRACK 
EXPECT SECTOR .= 1 
BAD DATA FOR TYPEOUT 

IS AOE CORRECTY?? 
VES. . 

ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 
REPORT AOE IS WRONG 
RESTORE (SP) 



.-REPORT ERROR IF RMDA IS NOT CORRECT 



050164 


032737 


002000 


001350 345$: 


BIT 


#IAE.RMER1I 


;WAS THERE Mi lAE ERROR 


0501 72 


001062 






BNE 


355$ 


;YES - DONT CHECK RMDA.RMDC 


C50174 


013737 


050370 


001140 


MOV 


505$.$6DDAT 


.•SETUP EXPECTED DISK ADDRESS 


050202 


000337 


001140 




SWAB 


$GDDAT 




050206 


113757 


050372 


001140 


Move 


510$,$6DDAT 




050214 


015737 


001342 


001142 


MOV 


RMDA I ,$BDDAT 


.-SETUP RECEIVED DISK ADDRESS 


050222 


023737 


001140 


001142 


CMP 


$6DDAT.$8DDAT 


.-COMPARE EXPECTED g RECEIVED 


050230 


001413 






BEO 


550$ 


.-BRANCH IF EQUAL 


050232 


062716 


000004 




ADD 


#4.(SP) 




050236 


112776 


000021 


000000 


M0V8 


#21.a(SP) 


.ERROR NUMBER 


050244 


162716 


000002 




SUB 


#2. (SP) 


.-MOVE SP TO RETURN FOR ERROR 


050250 


004736 






JSR 


pc,a(SP)* 


.•REPORT BAD DISK ADDRESS 


050252 


162716 


OOCOlO 




SUB 


#10. (SP) 


.•RESTORE (SP) 


050256 


000240 






NOP 







.•REPORT ERROR IF RMDC IS INCORRECT 



050260 


013737 


050366 


001140 


350$: 


MOV 


500$.$6DDAT 


.•SETUP EXPECTED CYLINDER 


050266 


042757 


1 76000 


001140 




BIC 


#*C1777.$GDDAT 




050274 


015737 


001370 


001142 




MOV 


RMDCI.$BDDAT 


.•SETUP RECEIVED CYLINDER 


050502 


025757 


001140 


001 "42 




CMP 


$GDDAT.$BDDAT 


.-COMPARE CYLINDERS 


050310 


001415 








8EQ 


355$ 


.-BRANCH IF EQUAL 


050512 


062716 


000004 






ADD 


#4.(SP) 




050316 


112775 


000022 


000000 




MOVB 


#22. a(SP) 


.•ERROR NUMBER 


050324 


162716 


000002 






SUB 


#2.(SP) 


;MOVE SP TO RETURN FOR ERROR 


C50330 


004736 








JSR 


pc.a(SP)+ 


.-REPORT BAD CYLINDER 


050352 


162716 


000010 






SUB 


#10. (SP) 


.•RESTORE (SP) 


050536 


000240 








NOP 






050340 


062716 


000004 




355$: 


ADD 


#4.(SP) 


;MOVE (SP) TO ERROR CALL 


050544 


105776 


000000 






TST8 


a(SP) 


;WAS ERROR FOUND?? 


050550 


001403 








BEO 


360$ 




050352 


062716 


000004 






ADD 


#4,(SP) 


;MOVE (SP) TO ERROR RETURN 


050356 


000402 








BR 


36^ 




050360 


162716 


000004 




360$: 


SUB 


#4.(SP) 


;MOVE (SP) TO NO ERROR RETURN 


050364 


000207 






365$: 


RTS 


PC 




050366 


000000 






500$: 


.WORD 


0 


.•CYLINDER 


050370 


000000 






505$: 


.WORD 


0 


; TRACK 


0503^2 


000000 






510$: 


.WORD 


0 


.•SECTOR 


050574 


000000 






515$: 


.WORD 


0 


.•FUNCTION CODE 
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SECONDARY ERROR CHECK SUBROUTIME 

.172 C50376 000000 520$: .WORD 0 ; TOTAL M Of BRACKS = LAST TRACK 
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2 
3 
A 
5 
6 
7 
8 
9 
10 

n 

12 
3 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



050400 



050400 
050406 

26 050414 

27 050420 

28 050426 
29 

30 
31 

32 050454 

33 050440 

34 050444 
35 

36 

37 050450 

38 050454 

39 050^56 

40 050464 

41 050470 

42 C50474 

43 050502 
050506 
050510 
050514 
050516 



44 
45 
46 
47 
48 
49 
50 

51 050516 

52 050522 
53 

54 050524 

55 050532 

56 050536 

57 050542 



013737 
047637 
062716 
013737 
047637 



U62716 
105076 
162716 



005737 
001420 
013737 
005037 
062716 
112776 
162716 
004736 
162716 
000240 



001350 
000000 
000002 
001 376 
000000 



000006 
000000 
000004 



001176 

001 1 76 
001140 
000004 
000066 
000002 

000010 



.S8TTL COMPOSITE ERROR CHECK SUBROUTINE 

THIS SUBROUTINE CHECKS THE STORED CONTENTS OF RMER1 AND 
'.MER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS 
MASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER 
THE MASKS ARE APPLIED, 



CALL : 
(1) 



JSR 
.WORD 
.WORD 
BR 

NOP 

ERROR 

JSR 



PC.CMPERRSTS 



pc.afSP)* 



MASK FOR ERROR REGISTER 1 

MASK FOR ERROR REGISTER 2 

RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



001176 
001176 

001200 
001200 



NOTE: BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 
BE ZERO 

CMPERRSTS: 

.-MASK AND STORE THE CONTENTS OF RMER1 AND RMER2 



MOV RMER1I,$TMP1 

BIC a(SP).$TMP1 

ADD *2.(SP) ' 

MOV RMER2I.$TMP? 

BIC a(SP).$TMP2 



.•CLEAR USER'S ERROR CALL 



001142 
000000 



5$: 



005737 001200 
001420 

013737 001200 001142 

005037 001140 

062^16 000004 

T^2776 000067 000000 





ADD 


#6.(SP> 




CLR8 


a(SP) 




SUB 


*4.(SP) 


IF 


THERE 


WERE ANY ERRORS 




TST 


$TMP1 




BEO 


5$ 




MOV 


$TMP1.$BDDAT 




CLR 


SGDDAT 




ADD 


*4.(SP) 




M0V8 


#66,a(SP) 




sue 


#2.(SP) 




JSR 


PC.a(SP)* 




sue 


*10.(SP) 




NOP 




If 


THERE 


ARE ANY ERRORS 




TST 


$TMP2 




BEQ 


10$ 




MOV 


$TMP2.$8DDAT 




CLR 


SGDDAT 




ADD 


#4,(SP) 




M0V8 


*67.a(SP) 



STORE RMER1 AT TEMP STORAGE 
MASK RMER1 
MOVE SP TO NEXT MASK 
STORE RMER2 AT TEMP STORAGE 
MASK RMER2 



MOVE SP TO USER'S ERROR CALL 

CLEAR ERROR NUMBER 

LEAVE SP AT NO ERROR RETURN 



ANY ERRORS TO REPORT?? 
NO !I 

RECEIVED STATUS FOR TYPEOUT 
EXPECTED STATUS ^OR TYPEOUT 
MOVE SP TO USER'S ERROR CALL 
CORRECTABLE DATA CHECK ERROR 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 



;ANY ERRORS IN RMER2? 
;N0!. 

.•RECEIVED STATUS FOR TYPEOUT 
; EXPECTED STATUS FOR TYPEOUT 
;MOVE SP TO USER'S ERROR CALL 
.■WRITE ERROR NUMBER IN USER'S CALL 



2RMMB0 RMOS/3/2 FCTML TST 1 MACRO VW.OO 
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58 050550 

59 050554 

60 050556 
6^ 050562 
62 050564 
63 

64 

65 050564 

66 050570 

67 050574 

68 050576 
o9 050602 

70 050604 

71 050610 



162776 
004736 
162716 
000240 



062716 

105776 
001403 
062716 
000402 
162716 
000207 



000002' 
000010 



000004 
000000 

000004 

000004 



10$: 



SUB 
JSR 
SUB 
NOP 



#2.(SP) .-MOVE SP TO RETURN FOR Ef<R0R 

PC,a(SP)* .-REPORT ERROR VIA USER 

#10, (SP) .-MOVE SP TO NO ERROR RETURN 



.•AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 



20$: 
50$: 



ADD 
rST8 
BEQ 
ADD 
BR 

sua 

RTS 



*4.(SP) 

a(SP) 

205 

#4. (SP) 
30$ 

#4,(SP) 

PC 



.'MOVE SP TO USER'S ERROR CALL 
;WAS THERE AN ERROR CAI LED?? 
;N0. ; 

;VES - MOVE SP TO ERROR RETURN 

;MOVE SP TO NO ERROR RETJRN 
.-RETURN TO USER 



CZRMMBO m35/V2 FCTM TST 
DEvKE SELECT SlBROUTINE 



3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
K 
15 
16 
^7 
18 
-•9 
20 



liACRO VGA. GO 
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21 
22 
23 
24 
.^5 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
61 
42 
43 
44 
45 
46 
47 
48 
49 
50 
SI 



050612 



050612 
050616 
050622 



G50626 
050632 
050636 
050640 
050642 
050650 
050656 
050662 



050666 
050672 
050700 

050706 
050714 
050716 
050724 
050732 

050734 
050742 
050744 
050752 
050760 



050762 
050764 
050772 
051000 



051006 
051006 

051010 
051012 



062716 
105076 
1627J6 



013746 
013746 
010046 
010146 
012737 
012737 
01 3700 
013701 



111160 
016037 
016037 

032737 
001407 
062766 
112776 
000422 

032737 
001021 
062766 
112776 
000407 



022626 
062766 
112776 
162766 



012601 
012600 
012637 



000004 
000000 
000004 



0C0C04 
000006 



050762 
000300 
001276 
001464 



000010 
OOOOUO 
000010 



000004 
0001 1 1 



000004 
000006 



001 1 76 
001 1 74 



010000 001174 



000010 
000010 



000004 
000112 



000004 
000113 
000002 



000010 
000010 



000010 
000010 
0G0010 



,S8TTL DEVICE SELECT SUBROUTJME 

THIS SUBROUTINE SELECTS THE DEVKE, GETTING ^HE DEVICE NUMBER fROM Th£ 
: TEST QUEUE. 



.-CALL: 

;(1) 

;(2) 

;(3) 

;(4) 

DEVSEL: 



JSR 
BR 
NOP 
ERROR 



PC.DEVSEL 



; CLEAR USER'S ERROR CALL 

ADD *4.(SP) 

CLR8 a(SP) 

sue *4.(SP) 



RETURN IF NO ERROR 

RETURN I.f ERROR 

ERROR DEFINED BY SUBROUTINE 



.-MOVE SP TO USER'S ERROR 

; CLEAR LOW ORDER BYTE OF CALL 

;M0vIF SP BACK 



;SAVE USER'S INFORMATION AND SETUP REGISTERS 



MOV ERRVEC.-(SP) 

MOV ERRVEC*2,-(SP) 

MOV RO,-(SP) 

MOV RI.-(SP) 

MOV *20$.ERRVEC 

MOV *PR6.ERRVEC*2 

MOV SBASE.RO 

MOV TSTQUE.RI 



.-PUSH ERRVEC ON STACK 

;;PUSH ERRVEC+2 ON STACK 
;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
.•SETUP FOR BUS TIMEOUT 

;R0 = UNI8US ADDRESS 

;R1 POINTS TO DEVICE NUMBER 



.-SELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE 



004000 OOP 76 10$; 



M0V8 


(R1) .RMCS2(R0) 


.-WRITE UNIT SELECT BUS 


MOV 


RMCS1(R0),$TMP1 


:GEi 't)VA" STATUS 


MOV 


RMCS2(R0).$TMP0 


:GBi "NED" STATUS 


BIT 


#NED,$TMPO 


;IS DEVICE NONEXISTENT ? 


8EQ 


10$ 


;N0. ! 


ADD 


#4J0(SP) 


.-MOVE SP TO JSERS ERROR CALL 


M0V8 


*11i.aiO(SP) 


.•WRITE ERROR NUMBER 


BR 


30$ 


> 


BIT 


WVA,$TMP1 


;IS DEVICE AVAILABLE ? 


BNE 


35$ 


;YES! I 


ADD 


#4J0(SP) ^ 


.•MOVE SP TO USERS ERROR CALL 


M0V8 


#ii2,ai0(spr 


;WRi,TE ERROR NUMBER 


BR 


30$ 





.-HANDLE 
20$: 



30$: 



BUS TIMEOUT 
CMP (SP)*,(SP)> 
ADD #4.10(SP) 
M0V8 #113.aiO(SP) 
SUB *2.10(SP) 



ADJUST SP 

MOVE SP TO USERS ERROR CALL 
WRITE BUS TIMEOUT ERROR NUMBER 
ADJUST RETURN TO 'NOP' PRECEDING 
THE ERROR CALI 



000006 



.-RESTORE USERS DATA AND RETURN TO ADDRESS ON STACK 
35$: 

MOV (SP)*,R1 ;;POP STACK INTO R1 

MOV ^SP)*.RO ;;POP STACK INTO RO 

MOV (SP)*,ERRvfC»2 .-.-POP STACK INTO ERRvEr*^ 



H 16 

CZWWBO Wd/Vi FCTNL TST 1 HACRO V04.00 4-APR-81 n:43:i'8 PAGE 25-1 
DEVICE SELECT SUBROUTINE ' 

051016 012637 000004 »10V (SP)*,ERRVEC ;;POP STACK .'NTQ ERRVEC 

52 051022 000207 RTS PC ;EX1T 



1 



CZRWO RM05/5' 
%lfK STATUS CHE 

1 

2 

3 

4 

5 

6 

7 

8 

9 
TO 
11 
12 
13 
K 
15 

^ 16 
17 
18 

19 0S1024 

20 
21 

22 05^024 

23 051026 

24 051032 

25 051036 

26 051042 
27 

28 
29 

30 051046 

31 051054 

32 051056 

33 051064 
34 
35 

36 051066 

37 051072 

38 051100 

39 051104 

40 051112 

41 051116 

42 051120 

43 051124 
44 
45 

46 

<.7 051126 

48 051134 

49 051142 

50 051150 

51 05115? 
52 

53 051160 

54 051166 
55 

56 051170 

57 051176 



"TNL TST 1 I 
JBROuTINf 



000240 

062716 000004 

105076 000000 

162716 000004 

005u37 052262 



032737 000010 
001424 

032737 000010 
001020 



005037 
013737 
062716 
112776 
162716 
004736 
162716 
000437 



012737 
052737 
023727 
101025 
042737 

123737 
101016 

\21727 
T01410 



001140 
001350 
000004 
000050 
000002 

000010 



002000 
040000 
001444 

040000 

001417 
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MACRO V04.00 4-APR-8T 11:43:28 PAGE 26 
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.SQTTL SEEK STATUS CHECK SUQROUTJNjE 

THIS SUBROUTINE VERIFIES THE RESULTS OF SEEK ^esTS USING STATUS 
STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER. 

THE SUBROUTINE RETURNS TQ THE CALLING ROUTINE IF AN ERROR IS DETECTED 
AFTER HAVING LOADED THE APPROPRIATE, ERROR NUMBER IN THE 'tRROR" TRAP 



StO 



0203 



OF THE CALLING ROUTINE. SEEK 



CALL; 
(1) 



JSR 

BR 

NOP 

ERROR 

JSR 

9'>9 



PC.SEKSTS 

997 



pc.a(SP)* 



SEKSTS: 



; CLEAR USERS* ERROR CALL 
NOP 



ADD 
CLR8 
SUB 
CLR 



*4.(SP) 

a(SP) 

#4.(SP) 
300$ 



STATU^ 



RFTURf 
pETURil 
Ef?RORi 
GO BA( 
RETURf 



MOVE (SP) TO ERROR CALL 
CLEAR ERROR NUMBER 
MOVE (SP) ITO NO ERROR RETURN 
CLEAR 5RR0R FLAGS 



IS CHECKED AS FOI LOWS: 



HERE IF NO ERROR 

HERE TO REPORT AN ERROR 

NUMBER DEFINED BY SUB 

K TO SUB FOR MORE ERROR CHECKS 
HERE IF NO MORE ERRORS 



001350 
001376 

001142 
000000 



.-TEST FOR MASS8US CONTROL BUS PARITY ERROR WHEN WRITING 
;LOCAL REGISTERS. I.E., *7>AR" 

BIT #PAR.RMER1I 

BEO 1$ 

BIT *DPE.RMER2I 

BNE 1$ 



.•REPORT REGISTER PARITY ERf?OR 

CLR SGDDAT 

MOV RMERII.SBDDAT 

ADD *4,(SP) 

MOVB *50.a(SP) 

SUB *2,(SP) 

JSR pc.a(SP)* 

SUB #10, (SP) 

BR 3$ 



1 AND "IDPE" - 0 

was parity error detected?? 

no: ! ] 

was it due to control bus?? 
not sure i ! 

VIA USER'S ERROR CAlL 
.EXPECTED STATUS 
.•RECEIVED (STATUS 
;MOVE STACK TO USER'S ERROR 
•ERROR 1^50 

•MOVE SP TO RETURN FOR ERROR 



3jl' 



0(J1140 
052262 
001466 

052262 

001333 



.-DETERMINE 
.'ALSO, SET 
1$: MOV 

BIS 
r MP 

BHI 
, BIC 



THE VALUE OF '"lAE" 
"SKI" IF CYLINDER 
tflAE.SGDDAT 
#SKI.300$ 
RMDC0,*822. 
3S 

#SKI.300$ 



.•RESTORE SIIaCK 
;IAE SHOULD^ BE 



ZERO 



STATUS BASED ON TRACK. 
ADDRESS IS TOO LARGE. 
.•SETUP FOR IiAE = 1 
.•SETUP FOR Skl = 1 
.•GREATER THAN LAST CYLIf^DER 
;YES - CYLINDER IS INi/ALID 
.•CLEAR SKI ERROR FLAG 



SECTOR AND CYLlt^llDER 



001416 000055 



CMPB 
BHI 

CMPB 
BLOS 



RMDA0*1,LSTRK*1 ;GRtATER THAN LAST TRACK ^ 
3$ ;YES - TRACdc llS INj/ALID 



RMDA0.*2Q. 
2$ 



.•SECTOR > 29. 
;8R IF NO 



■ZRNr«0 R^5/3/2 FCTNL TST 1 
■■>EEK STATUS CHECK SUBROUTINE 
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58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
o9 
70 
71 
72 
73 
7U 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8^ 
85 
86 
87 
88 
89 
90 
91 
92 
93 
9A 
95 
96 
97 
98 
99 
100 
101 
102 
103 
10^. 
105 
106 
107 
108 
109 
110 
111 

113 
1H 



051200 
0S1206 
051210 
051216 



032737 
00K06 
123727 
101002 



010000 
00U16 



051220 005037 001 UO 



051224 
051252 
35 1240 
051246 
051250 
051256 
051260 

051260 
051264 
051272 
C51276 
051 300 
051304 
051306 



051306 
051314 
051316 
051322 
051330 
051334 
051342 
051350 
051352 
051360 
051364 
051366 
051372 

051374 
051402 
051410 
051416 
051424 



051426 
051434 
051436 
051442 
051450 
05U54 
051456 
051462 
051464 



013737 
042737 
023737 
001004 
0427T7 
000413 



062716 
112776 
162716 
004736 
162716 
000240 



032737 
001427 
005037 
013737 
062716 
112776 
032737 
001403 
112776 
162716 
004736 
162716 
000240 

013737 
042737 
013737 
042737 
001417 



032737 
001032 
062716 
112776 
162716 
004736 
162716 
000443 



001350 
175777 
001140 



000004 
000051 
000002 

000010 



001140 
001376 
000004 
000060 
000100 

000061 
000002 

000010 



001376 
137777 
052262 
y^7777 



040000 

000004 
000267 
000002 

000010 



001442 
000037 



001142 
001142 
001142 



040000 052262 



000000 



010000 001376 



0p1142 

000000 
001346 

OOOOO'^ 



001142 
001142 
001140 
001140 



001142 
000000 



21: 



BJT #FnT16.RM0F0 

BEQ 3S 

CMP8 RMDA0.*31. 

BH] 3S 

CLR SGDDAT 



.•COMPARE EXPECTED AND RECIEVED 

3$: MOV RMER1I,$SDDAT 

BIC **:IAE,$BDDAT 

CMP $GDDAT,$BDOAT 

BNE 35$ 

BJC «KI.300$ 

BR 5S 



35$: 
.•REPORT 



;18 BIT FORMAT ? 

;VES - SECTOR IS INVALID FOR 18 BIT MODE 
.•SECTOR > 31. ? 1 
;YES - SECTOR IS IMVALID 

;"IAE" SHOULD =0 

'lAE" STATUS 
;IS lAE OK?? 

;SAVE lAE BIT FUR COMPARE 
.•CORRECT "lAE'' STATUS ? 
;8R IF NO \ 
.•CLEAR SKI f-LAG 
;60 CHECK NEXT ERROR 



INCORRECT 
ADD 



5$: 



M0V8 

SUB 

JSR 

SUB 

NOP 



lAE' 
*4,(SP) 
#5l.a(SP) 
*2.(SP) 

pc.a(SP)* 

*10,(SP) 



STATUS VIA USER'S ERROR CALL 

ERROR 51 I 
MOVE SF TO RETURN FOR ERROR 
REPORT INCORRECT lAE 
.'RESTORE (SP) 



1 



REPORT ANY IVC ERROR AS 

IVC ERROR WITH VOLUME VALID ZERO 
ERRONEOUS IVC ERROR, VOLUME VALID IS SET 



BIT #IVI..RMER2I 

BEO 52$ 

CLR $GDDAT 

MOV RMER2I.$BDDAT 

ADD #4.(SP) 

M0V6 #60.S(SP) 

BIT iffVV.RMDSI 

BEO 51$ 

M0V8 ilf61.a(SP) 

51$: SUB #2.^SP) 

JSR PC.a(SP)* 

SUB *10.(SP) 
NOP 



52$: MOV RMER2I .$BDDAT 

BIC #*CSKI.$BDDA( 

MOV 300$,$GDDAT 

BIC #*CSKI,$GDDAT 

BEO 53$ , 

ERROR IF SKI IS NOT 

BIT *SKI,$BDDAT 

BNE 54$ 

ADD #4,(SP) 

M0V8 *267,a(SP) 

sue *2,(SP) 

JSR Pc,a(SP)* 

SUB *10.(SP) 

BR 6$ 



.•REPORT 



SET 



53$; 



IVC ERROR?? 
NO.' I 

EXPECTED STATUS 
RECEIVED STATUS 
MOVE SP TO USER'S ERROR 
ERROR 60 IF VV - 0 



ERROR 61 IF VV 1 
Move SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
RESTORE SP 

RECEIVED Status 

CLEAR DONT CARES 
GET EXPECTED SKI STATUS 
CLEAR DONT CARES 
BRANCH IF 0 EXPECTED 

(lAE WAS Nol DETECTED) 
WAS SKI DETECTED ?? 

YES !! 

MOVfe SP TO USERS ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 
GO TO NEXT ERROR CHECK 



C2RW0 W105/5/2 FCTNL TST 1 
SEEK STATUS CHECK SUB'JCHJTJNE 
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115 

116 

117 

118 

119 

120 

121 

122 

125 

124 

125 

126 

127 

128 

129 

130 

131 

132 

153 

134 

135 

156 

157 

158 

139 

UO 

U1 

142 

145 

144 

145 

14b 

i47 

148 

149 

'50 

^51 

152 

155 

154 

155 

156 

157 

158 

159 

160 

161 

162 

165 

164 

165 

166 

167 

168 

169 

170 

171 



C51464 
051472 
051474 
051500 
051506 
051512 
051514 
051520 



051522 
051550 
051552 
051556 
051544 
051550 
051556 
C51562 
051564 
051570 



051572 
051600 
051602 
051606 
051614 
051620 
051626 
051654 
051656 
051644 
051650 
051652 
051656 



051660 
051664 
051670 
051674 
051676 



051702 
051710 
051712 
051720 
051722 
051750 
051736 
051 744 
051750 
051756 



052737 
001415 
062716 
112776 
162716 
004736 
1627^6 
000240 



052757 
001420 
005057 
015757 
062716 
112776 
162716 
004736 
162716 
000240 



052757 
001427 
005037 
015757 
062716 
112776 
052757 
001405 
112776 
162716 
004756 
162716 
000240 



015746 
042716 
022726 
001002 
000137 



052757 
001050 
052737 
001024 
015737 
052737 
013737 
062716 
112776 
162716 



040000 

000004 
000054 
000002 

000010 



001140 
001576 
000004 
000055 
000002 

000010 



001140 
001550 
000004 
000052 
010000 

000055 
000002 

000010 



001 546 
047677 
110100 

052232 



001546 
010000 
001 546 
000004 
00006; 
0000C2 



001142 
000000 



000200 001576 



001142 
000000 



001142 

000000 
001546 

000000 



010000 0013<.6 
020000 001550 



001140 
001140 
001142 

OOOOOCj 



;RFPOHT ERROR If SKI IS SET 



BIT 
BEQ 
ADD 
M0V8 

sue 

JSR 
SUB 
NOP 



#SKI.$8DDAT 
54$ 

*4.(SP) 
#54,ai(SP) 
#2.(SP) . 

pc,a(SP)* 

*10,(SP) 



IS SKI SET ?? 

NO - SKi IS OK 

MOVE (SP; TO ERROR 

LOAD ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT SEEK ERROR 

RESTORE (3P) 



.•REPORT ANY DEVICE CHECK 
54$: 



BIT 


*DVC.RMER2I 


;WAS THERE DVC DURING SE^^K?? 


BEC 


6$ 


;N0l . 


CLR 


$GDDAT 


.•EXPECTED STATUS 


MOV 


RMER2I,$BDDAT 


.•RECEIVED STATUS 


ADD 


*4.(SP) 




M0V8 


*55.a(SP) 


'ERROR #55 


SUB 


*2.(SP) 


•MOVE SP TO RETURN FOR ERROR 


JSR 


PC.a(SP)* 


; REPORT ERROR VIA USER 


SUB 


*10,(SP) 


.•RESTORE SP 


NOP 







020000 001550 6$: 



.•REPORT ANY "OPI" ERROR AS OPI WITH MOL 
.•BECAUSE ON CYLINDER LATCH DIDN'T RESET 



0, OR OPI 



7$; 



.-SEE 
8$: 



IF 



.•REPORT 

ii- 



BIT 
BEQ 
CLR 
MOV 
ADD 

Move 

BIT 

BEQ 

M0V8 

SUB 

JSR 

sue 

NOP 

'PIP" 

MOV 

BIG 

CMP 

BNE 

JMP 

ERROR 

BIT 

BNE 

BIT 

BNE 

MOV 

BIS 

MOV 

ADD 

M0V8 

sue 



*OPI .RMERI I 
8$ 
SGDDAT 

RMERII.SBDDAT 

*4,(SP) 

*52,a(SP> 

*MOL,RMDSI 

7$ 

*53,a(SP) 
*2.(SP) 

pc.a(SP)* 

MIO. (SP) 



't)PI" ERROR?? 
NO! ! 

EXPECTED STATUS 
RECEIVED STATUS 
MOVE (SP) TO ERROR 
LOAD ERROR NUMBER 
WAS MEDIUM ON LINE?? 
NO! . 

YES - CHANGE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT "OPI" ERROR 
RESTORE (SP) 



= 0. AND 'ATA". "MOL" AS'D "VV" 
RMDSl.-^SP) 

**C<ATA!PIP.MOL!VV>.(SP) 

*ATA!MOL!VV.(SP)+ 

9$ .-ERROR IN RMDS 

14$ ;RMD5 IS OK 



IF MOL - 0 AND 
*MOL.RMDSI 
10$ 

*0PJ,RMER1I 
10$ 

RMDSI.$GDt)AT 

*MOL.$GDDAT 

RMDSJ.$BDDAT 

#4.(SP) 

#62,a(SP) 

*2.(SP) 



OPI - 0 

;IS MOL RESET?? 
;N0 - MOL IS SET 
.•WAS OPI SET 
;YES - DONT REPORT 
.•EXPECTED STATUS 

;REchvED STATUS 



ERROR 



;MOVE SP TO RETURN FOR ERROR 



051762 


004736 








162716 


000010 




051 ^■'O 


000240 






051772 


032737 


020000 


001346 


052000 


00U30 






052002 


032737 


r\ / A AAA 

040000 


0013/6 


052010 


001024 


001346 




052012 


013737 


001140 


052020 


042737 


020000 


001142 


052026 


013737 


001346 


001142 


05203A 


062716 


000004 




0520A0 


112776 


000056 


000000 


052046 


162/16 


000002 




052052 


004736 






05205A 


162716 


000010 




052060 


000240 







CZR'WO RM05/3'2 KTNL rST 1 
SEEK STATUS CHECK SUBROUTINE 



V2 
173 
174 
175 
176 
T»7 
178 
179 
'80 
"81 
^82 
'33 
184 
185 
1d6 
187 
188 
189 
190 
191 
192 
■93 
;4 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
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052142 
052150 
052152 
052160 
052162 
052170 
052176 
052204 
052210 
052216 
052222 
052224 
052230 
052232 



052232 
052234 
052240 
052244 
052246 
052252 



032737 
001030 
032737 
001024 
013737 
052737 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



000240 
062716 
105776 
001403 
062716 
000402 



000100 

010000 

001346 
000100 
001 346 
000004 
000064 
000002 

000010 



000004 
000000 

000004 



0206 



052062 


032737 


100000 


001 346 


052070 


001024 






052072 


013737 


001 346 


001140 


052100 


0-^2717 


110600 


001140 


052106 


013737 


001346 


001142 


052114 


062716 


000004 




052120 


112776 


000057 


000000 


052126 


162716 


000002 




052132 


004736 






052134 


162716 


0000^0 




052140 


000240 







001^46 

001^76 

001140 
001140 
001 (42 

000000 



.•REPORT 
10$: 



JSR 

Sue 

NOP 

AN 
BI' 
BEG 
BIT 
BNP 
MOV 
BJC 
MOV 
ADD 
M0V8 
SUB 
JSR 
SUB 
NOP 



.-REPORT 
11$: 



.•REPORT 
13$: 



14$: 



RC/SCSP)* 
*10.(SP) 



ERROR U "PIP" IS 
*PIP,RMDS1 
11$ 

*SKI.RMER2I 

r$ 

RMDSI,$GDDAT 
*PIP,$BDbAT 
RMDSI.$8DDAT 
*^.(SP) 
#56.3I(SP) 
#2.(SP) 
PC.a(SP)* 
*10.<SP) 



; REPORT ERROR VIA USER 



STIL SET AND SKI NOT SET 
IS 'PIP" STILL SET?? 
NO. . 

WAS "SKI"SET?? 
yES-DONT REPORT PIP 
EXPECTED STATUS ' 



RECEivED STATUS 
MOVE (SP) TO ERROR 
LOAD E^RROR NUMBER 
MOVF SP TO RETURN FOR ERROR 
REPORT! 'PIP" SET AFTER SEEK 
I .-RESTORE (SP) 



AN ERROR IF "ATA" IS 



BIT #ATA,RMDSI 

BNE 13$ 

MOV RMDSI .$GDDAT 

BIS #ArA!MOL.DPR 

MOV RMDSI.$BDDAT 

ADD #4.(SP) 

M0V8 *57,a(SP^ 

sue #2.(SP) 

JSR Pc.a(SP)* 

sue #10. (SP) 

NOP 

ERROR IF VOLUME VALID 

BIT *VV, RMDSI 

BNE 14$ 

BIT *IVC.RMER2I 

B^lE 14$ 

M(3V RMDSI. $GDDAT 

BIS *VV.$GDDAT , 

MOV RMDSI ,$Blt>DlAT 

ADD A4,(SP) 

M0V8 *64.a(SP) 

sue #2.(SP) 

JSR pc,a(sp)*- 

sue #10, (SP) 

NOP 



.'DRY 



NOT SET , 

WAS ''ATA" SET ?? 
YES' 

EXPECTED STATUS 
$GpDAT 

REftlVED STATUS 
MOVF (SP) TO ERROR 
LOAD ERROR NUMBER i / 
NOVE SP TO RETURN FOR B'RROR 

REPORT Attention not set during 

SEEK TEST 

.•RESTORE (SPJ 



IS RESET AND IVC IS ZERO 
;IS VV - 0 ?? 
•NO' ' 

■Is'ivC ALSO 0 ?^ 

;n0 - ivc is set 
.•Expected status 

i; RECEIVED STATUS 

; ERROR #64 
' ;M0VE SP TO RETURN FOR ERROR 



.-MODIFY THE RETURN ADDRESS IF AN ERROR WAS DETECITED 

NOP 1 ' 

ADD #4,(SP) 

TSTe a(SP) 

BEO 15$ 

ADD #4,(SP) 

BR 16$ 



MOVE (SP) TO ERROR CALL 
WAS ERROR CALLED?? 
no: . J 
MOVE TO ERROR RETUFIn 



t 



'Et« SUTuS CHEtK SUBROUTINE 

329 052254 1627'" 6 000C04 

230 0522e>0 000207 

?51 

252 052262 000000 
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15$: 
'6$: 

500$: 



SUB 
RTS 

.WORD 



#4.(SP) 

PC 



;(1QVE CSP) TO NO ERROR RETURN 
.•RETURN 

.■ERROR ^LAGS 



I 



' CZRNMBO RM05/V2 FCTNL TST 1 
fCN'RaiER CLEAR SuBROUTlNt 



5 

5 
6 
7 
8 

9 

10 
11 

12 052264 
052264 010046 
052266 010' 46 
052270 013746 000004 
052274 013746 000006 

13 0S2300 012737 052340 

14 052306 012757 000300 

15 052314 013700 001276 

16 C52320 012760 OC0040 

17 052326 013701 001464 

18 052332 111160 000010 

19 052336 000412 
20 

21 052340 022626 

22 052342 062766 000004 

23 052350 112776 000007 

24 052356 162766 000002 

25 052364 

052364 012637 000006 

052370 012637 000004 

052374 012601 

052376 012600 

26 052400 000207 
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SfO 0^08 



■SBTTL CONTROLLER CLEAR SUBROUTINE 

^HIS SUBROUTINE CLEARS THE MASS8US CONTROLLER. MASS8US ADAPTERS, 
AND DRIVES. THEN SELECT«i THE DRIVE. 



CALL: 



CNTCLR: 



JSR 
BR 
NOP 
ERROR 



PC, CNTCLR 
If-} 



000004 
000006 

000010 



000010 
000010 
000010 



10$: 



20$: 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

M0V8 

BR 

CMP 
ADD 

Move 

SUB 

MOV 
MOV 
MOV 
MOV 
RTS 



RO.-(SP) 

RI.-(SP) 

ERRVEC.-(SPi 

ERRVEC+2,-(SP) 

*10$.ERRVEC 

*PR6.ERRVEC*2 

SBASE.RO 

#CLR.RMCS2(R0) 

TSTQUE.R1 

(Ri; .RMCS2(R0) 

20$ 

(SP)+,(SP)+ 
#4.10(SP) 

*7,aiO(SP) 

*2.10(SP) 

(SP)*.ERRVEC*2 
(SP)*,ERRVEC 
(SP)*,R1 1 
{SP>+,RO! 
PC 



RETURN HERE 
RETURN HERE 
SUB DEFINES 



IF NO ERRbR FOUND 
IF ANY ERROR FOUND 
ERROR NUMbFR 



.•PUSH RO ON STACK 
;PUSH R1 ON STACk 
.-PUSH ERRVEC ON STACK 

.-.-PUSH ERRVEC +2 ON 
.•SETUP FOR BUS TIMEOLT 



STAC 



RO = UNIBUS ADDRESS 
CLEAR MASSBUS 
GET DEVICE UNDcR TEST 
SELECT DEVICE 



ADJUST STACK 

MOVE SP TO USEf^'S ERROR CALL 
WRITE THE ERROR NUr«ER 
ADJUST SP TO RETURN TO ERROR 

;;POP STACK INTu ERRVEC+2 
POP STACK INTO ERRVEC 
POP STACK INTO R1 
POP STACK INTO RO 




Jt<«tBG W05/^/2 FfTNL 'ST 
'A^ S ^HECK SOBROUMNE': 



4 
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6 
7 

8 
9 

10 
1 1 

12 
15 
U 
15 
16 
17 
18 
19 
20 
21 
22 
25 
24 
25 
26 
27 
28 
29 
50 
51 
5^^ 
55 
34 
35 
36 
37 
38 
39 
40 
41 
42 
45 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



052402 



052402 
052406 
0524 Id 

052416 
052424 
052432 
052440 
052446 
052450 
052454 
052462 
052466 
052470 
052474 

052476 
052502 
052510 
052512 
052516 
052524 
052530 
052532 
052536 

052540 
052546 
052550 
052552 
052556 



062716 
105076 
162716 

013737 
042737 
013737 
023737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 

005037 
013737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 

013737 
010146 
005046 
013701 
111116 



000004 
000000 
000004 

001334 
100000 
004200 
001140 

000004 
000126 
000002 

000010 



001140 
001340 

000004 
000127 
000002 

000010 



0G1U2 
001142 
001140 
001142 



000000 



001142 
000000 



001344 001142 



001464 



,S8TTL STATUS CHECK SUBROUTINES 

!S8TTL CONTROLLER CLEAR STATUS CHECK SUBROUTINE 



THJS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON 
STATUS STORED IN THE GET BUFFER. THIS SUBROUTINE SHOULD ONLY BE 
USED FOLLOWING A CONTROLLER CLEAR OPERATION, I.E.. WRITING A 1 IN BH 
5 OF RMCS2. BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION. 



STATUS PERTINENT "0 THE DEVICE IS NOT CHECKED, 
FOLLOWING STATUS BITS ARE NOT CHECKED: 



IN PARTICULAR, THf 



ATA. ERR. PIP. MOL.WRLABT, PGM, VV,OM,UNS, SKI, DVC 



CALL: 
(1) 



JSR 

BR 

NOP 

ERROR 

JSR 



PC.CLRSTS 

Iff 



pc,a(sp)+ 



RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NLMBER DEFINED BY SLfi 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



CLRSTS: 



; CLEAR USER'S 
ADD 
CLR8 
SUB 

.REPORT ERROR 
4$: MOV 
BIC 
MOV 
CMP 
BEQ 
ADD 
M0V8 
SUB 
JSR 
SUB 
NOP 

; REPORT ERROR 
5$: CLR 
MOV 
BEQ 
ADD 
M0V8 
SUB 
JSR 
SUB 
NOP 

; REPORT ERROR 
7$: MOV 
MOV 
CLR 
MOV 
M0V8 



ERROR CALL 
*4.(SP) 

a(sp; 

*4,(SP) 
IF RMCS1 NOT INIT 
RMCSII.SBDDAT 
*SC.$8DDAT 
#DVA!RDY,$GDDAT 
SGDDAT.IBDDAT 
5$ 

#4.(SP) 

*126,a(SP) 

*2,(SP) 

PC,a(SP)+ 

*10.(SP) 

IF RM8A NOT RESET 
SGDDAT 

RMBAI.SBDDAT 
7$ 

#4.(SP) 

*127,a(SP) 

*2.(SP) 

PC.a(SP)+ 

*10,(SP) 



MOVE SP TO ERROR 
CLEAR ERROR NUMBER 
MOVE SP BACK TO NO ERROR 
lALIZFD 

VERIFY RMCS1 

IGNORE SPECIAL CONDITION 
EXPECT DVA I RDY 
COMPARE EXPECTED. RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO USER'S ERROR CA.l 
WITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 



; VERIFY RMBA IS ZERO 

.•BRANCH IF ZERO 
.•MOVE SP TO USER'S ERROR CALL 
;WITE ERROR NUMBER IN CAiL 
.■MOVE SP TO RETURN FOR ERROR 
.•REPORT ERROR VIA USER 
;MOVE SP BACK TO NO ERROR 



IF RMCS2 NOT INITIALIZED 



RMCS2I,$BDDAT 
RI.-(SP) 
-(SP) 
TSTQUE.R1 
(RI).(SP) 



VERIFY RMCS2 
;PUSH R1 ON STACK 
EXPECT IR I UNIT NUMBER 
R1 = ADDRESS OF TEST QUE 



:^^c rmos/^/^ ktnl tst 1 mac«c v04.00 
:\'«ol.er clear status check subroutine 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
o9 
70 

71 

72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
c7 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
TOO 
101 
102 
103 
104 
105 
106 
107 
108 
109 
MO 
111 
112 

•'4 



052560 
052564 
052570 
052572 
052600 
052602 
052606 
052614 
052620 
052622 
052626 

052630 
052634 
052642 
052o50 
052652 
052656 
052664 
C52670 
052672 
052676 

052700 
052706 
052714 
052722 
052730 
052732 
052736 
052744 
052750 
0527b^ 
052756 

052760 
052764 
052772 
052774 
053000 
053006 
053012 
053014 
053020 

053022 
053030 
053036 
053044 
053052 
053054 
053060 
053066 
055072 
053074 
053100 



0527^6 
012637 
012601 
023737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 

005037 
013757 
042737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 

015737 
042757 
012757 
023757 
001415 
062716 
112776 
1627^6 
004756 
162716 
000240 

005057 
015757 
001415 
062716 
112776 
162716 
004756 
162716 
000240 

015757 
042757 
012757 
025757 
001415 
062716 
112776 
162716 
004756 
162716 
000240 



000100 
C01140 

00M40 

000004 
0001 50 
000002 

000010 



001140 
001550 
040000 

000004 
000151 
000002 

000010 



001560 
000046 
000010 
001140 

000004 
000153 
000002 

000010 



001140 
001402 

000004 
000155 
000002 

000010 



001574 
140000 
011777 
001140 

000004 
0001 56 
000002 

000010 



001142 
000000 



001142 
001142 



000000 



001142 
001142 
00*140 
001142 



000000 



001142 
000000 



001142 
001142 
001140 
001142 



000000 



.•REPORT 
9$: 



.•REPORT 
15S: 



.•REPORT 
17$: 



.•REPORT 
19$: 



#JR.(SPJ 

(SP)*.$GDDAT 

(SP)*.R1 

$GDDAT,$eDDAT 

9$ 

#4,(SP) 

*l50,a(SP) 

*2.(SP) 

pc.acsp)* 
»^OASP) 



BIS 
MOV 
MOV 
CMP 
BEO 
ADD 
M0V8 
SUB 
JSR 
SUB 
NOP 

ERROR IF RMER1 NOT RESET-IGNORE UNS 
$6DDAT 

RMER1I .$BDDAT 
*UNS,$BDDAT 
15$ 

*4.(SP) 
*151 .a(SP) 
*2.(SP) 

pc.a(sp)* 

*10,(SP) 



;P0P STACK IN^O Rl 
COMPARE EXPECTED K RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO USER'S ERROR fALl 
WITE ERROR NUTBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA JSER 
MOVE SP BACK TO NO ERROR 



VERIFY RMER1 



CLR 
MOV 
BIC 
BEO 
ADD 
M0V8 
SUB 
JSR 

sue 

NOP 

ERROR IF RiTWI NOT INI TIALIZED-IGNORE WC,LS,LST 
RMMR1I.$BDDAT 
*WC.'LS.LST.$8DDAT 
«nWD,$GDDAT 



IGNORE UNSAFE 
BRANCH IF ZERO 
MOVE SP TO USER'S ERROR CALL 
WITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 



MOV 
BIC 
MOV 
CMP 
BEO 
ADD 
MOVB 

sue 

JSR 

sue 

NOP 

AN ERROR IF RMEC2 IS NOT RESET 



$GDDAT,$BDDAT 
17$ 

#4,(SP) 
*l35.a(SP) 
#2.(SP) 
PC,a(SP)* 
#10. (SP) 



VERIFY RMMR 

.•IGNORE WORD CLOCK. SCT, trk 
EXPECT WRITE DATA BIT 
COMPARE EXPECTED AND RECEIVED 
BRANCH IF 0 

MOVE SP TO USER'S ERROR CALL 
WITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 



$GDDAT 
RMEC2I,$BDDAT 
19$ 

<f4,(SP) 

*135.a(SP) 

#2,(SP) 

PC,a(SP)+ 

*10.(SP) 



CLR 
MOV 
BEQ 
ADD 
MOVB 

sue 

JSR 

sue 

NOP 

ERROR IF R/nR2 NOT INI TIALIZED-IGNORE ROA.RQB 
RMMR2l.$8DDAT .-VERIFY RMMR2 
#R0AIRQB,$BDDAT 
#TST 1 1 777, $GDDAT 
$GDDAT.$BDDAT 



.-REPORT 



MOV 
BIC 
MOV 
CMP 
BEQ 
ADD 
MOVB 
SUB 
JSR 

sue 

NOP 
ERROR 



.•EXPECT ZEROS 
.•VERIFY RMEC2 " 0 

.-MOVE SP TO USER'S ERROR CALL 
;WITE ERROR NUMBER IN CALL 
.-MOVE SP TO RETURN FOR ERROR 
.-REPORT ERROR VIA USER 
.-MOVE SP BACK TO NO ERROR 



.•EXPECT TEST BIT ON 



21$ 
*4.(SP) 
*136,a(SP) 
*2.(SP) 

pc.a(SP)* 

#10, (SP) 



MOVE SP TO USER'S ERROR CALl 
WITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 



IF RMER2 NOT RESEl -IGNORE SKl.D,^C 



t-^Ab^ f<M0S/^/2 FCTNL TST 1 MACRO V04 
. f'JL.ER CLEAR STATUS CHECK SUBROUTINE 



,00 4-APR-81 



"IS 
1 ■ (t 
'1, 

119 
1^0 
121 
'22 
'25 
'2A 
125 
V6 
'27 
'28 
129 
i"50 
i?1 
'32 
133 
134 
155 
136 
^57 
158 
139 
UO 
'41 
K2 
'45 
'44 



055102 
055106 
3551H 
055122 
055124 
055150 
055156 
055142 
055144 
055150 

055152 
055160 
055166 
055174 
055202 
055204 
055210 
055216 
C53222 
053224 
055250 
055252 
053256 
053242 
055244 
053250 
055252 
053256 
055260 



005057 
015757 
042737 
001415 
062716 
112776 
162716 
004756 
162716 
000240 

015757 
042757 
012757 
023757 
001415 
062716 
112776 
162716 
004736 
162716 
000240 
062716 
105776 
001405 
062716 
000402 
162716 
000240 
000207 



001140 
001576 
040200 

000004 
000174 
000002 

000010 



001546 
177177 
000600 
001140 

000004 
000134 
000002 

000010 

000004 
000000 

000004 

000004 



001142 
001142 



000000 



001142 
001142 
001140 
001142 



000000 



21$: 



.•REPORT 
215$: 



22$: 



23$: 
24$: 



CLR 

MOV 

BIC 

BEQ 

ADD 

MOVE 

SUB 

JSR 

SUB 

NOP 

ERROR 

MOV 

BJC 

MOV 

CMP 

BFQ 

ADD 

M0V8 

sue 

JSR 

SUB 

NOP 

ADD 

TST8 

BEQ 

ADD 

BR 

SUB 

NOP 

RTS 
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SCO 0?1i 



$GDDAT 

RMER2I.$8DDAT 

*SK].DVC,$BDDAT 

215$ 

*4,(SP) 

*174,a(SP) 

*2,(SP) 

pc.a(SP)« 

*10.(SP) 



EXPECT ALL ZEROS 

VERIFY PMER2 

IGNORE DEVICE ERRORS 

BRANCH IF OTHER BITS 0 

MOVE SP TO USER'S ERROR CALL 

WITE ERROR NUMBER IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP BACK TO NO ERROR 



IF RMDS NOT INITIALIZED 

RMDSI.$BDDAT ;TEST DRIVE STATUS REGISTER 
**C<DRY.DPR>.$8DDAT 

*DPR.DRY.$GDDAT ;EXPECTED DRIVE STATUS 
$GDDAT.$BDDAT ; COMPARE EXPECTED t RECEIVED 
22$ ; BRANCH IF EQUAL 

*4,(SP) .-MOVE SP TO USER'S ERROR CALL 

*154,a(SP) .-WRITE ERROR NUMBER 

*2.(SP) .-MOVE SP TO RETURN FOR ERROR 

PC.a(SP)+ .-REPORT ERROR TO USER 

*10.(SP) .-MOVE SP BACK TO NO ERROR 



#4,(SP) 

a(SP) 

23$ 

*4.(SP) 
24$ 

#4.(SP) 



.-MOVE SP TO ERROR CALL 
;WAS AN ERROE DETECTED?? 
;N0i I 

;yES - MOVE TO ERROR RETURN 
.-MOVE SP TO NO ERROR RETURN 



PC 



• i knq-wlED&e status check 
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7 
i. 

r 

J 



10 

1 1 

'2 
13 
U 

15 OS 3262 

16 

17 

18 053262 062716 

19 053266 105076 

20 053272 162716 
21 

22 

23 053276 032^37 

2A 05330A 001 02A 

25 053306 013737 

26 0533U 052737 

27 053322 0^3737 

28 053330 062716 

29 05333A 112776 

30 0533A2 162716 

31 0533A6 00A736 

32 053350 162716 

33 05335A 000240 

34 053356 
35 

36 

37 053356 032737 

38 053364 001 02A 

39 053366 013737 
AO 05337A 052737 

41 053402 013737 

42 C53410 062716 

43 053414 112776 

44 053422 162716 

45 053426 004736 

46 053430 162716 
4' 053434 000240 
48 053436 

49 
50 

51 053436 032737 

52 053444 001570 
53 

54 

55 053446 032737 

56 053454 001424 
57.053456 013737 



000004 
000000 
0C0004 



000100 001346 



001346 
000100 
001346 
000004 
000155 
000002 

000010 



001346 
010000 
001346 
000004 
0C0041 
000002 

000010 



040000 
001350 



001140 
001140 
001142 

000000 



010000 001346 



001140 
001140 
001142 

000000 



060007 001350 



001350 
001142 



,S8TTL PACK ACKNOWLEDGE STATUS CHECK 

THIS SLflROJTJNE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE 
COMMAND USING THE STATUS STORED IN THE GET BUFFER. ERRORS ARf 
REPORTED TO THE USER VIA THE USER'S ERROR CALL. 



CALL: 
(1) 



JSR 

BR 

NOP 

ERROR 

JSR 
■?•>■> 



PC.ACKSTS 



PC.5)(SP)* 



RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TP Smij FOR MORE ERROR CHECKS 

RETURN HERE JF NO MORE ERRORS 



ACKSTS: 



;C.EAR USER '5 ERROR CALL 



ADD 


*4.^SP) 


MOVE SP TO ERROR CALL 


CLR8 


a(SP) 


CLEAR LOW ORDER BYTE 


SUB 


*4,(5P) 


MOVE SP BACK 


AN ERROR IF "VV" IS 0 




BIT 


*VV.RMDSI 


•IS VOLUME VALID SET?? 


BNE 


1$ 


■YES! I 


MOV 


RMDSI.SGDDAT 


•EXPECTED STATUS 


BIS 


*VV.$GDDAT 




MOV 


RMDSI.JBDDAT 


•RECEIVED STATUS 


ADD 


*4.(SP) 


•MOVE SP ro ERROR CALL 


M0V8 


*155.a(SP) 


•WRITE NUMBER IN ERROR CALL 


SUB 


*2.(SP) 


•MOVE SP TO RETURN FOR ERROR 


JSR 


PC,a(SP)* 


•REPORT THE ERROR 


SUB 


#10, (SP) 


;MOVE SP BACK TO BRANCH 


NOP 





1$: 

.•REPORT AN ERROR IF 'WOL" IS 0 



BIT 


*MOL.RMDSI 


•IS MOL SET?? 




BNE 


2$ 


•YES! : 




MOV 


RMDSI.SGDDAT 


■EXPECTED STATUS 




BIS 


*MOL.$GDDAT 






MOV 


RMDSI.SBDDAT 


■RECEIVED STATUS 




ADD 


*4,(SP) 


•MOVE SP TO ERROR CALL 




M0V8 


*41,a(SP) 


■WRITE NUMBER OF ERROR 


IN TA 


sue 


*2,(SP) 


•MOVE SP TO RETURN FOR 


ERROR 


JSR 


PC.a(SP)+ 


■REPORT TH ERROR 




SUB 


*10,(SP) 


■MOVE SP TO BRANCH 




NOP 









2$; 



;SEE IF '\JNS".'10PI"/*RMR","ILR'". 

BIT *UNS!0P1 'RMR. ILR, 
BEO 7$ 

.•REPORT AN ERROR IF "UNS" IS SET 
BIT *UNS.RMER1I 
BEQ 3$ 

MOV RMER1 I.SBDDAT 



OR "ILF" IS SET 
1LF.RMER1I 



WAS UNS SET?-' 
NO. . 

RECEIVED STATUS 



srMbu RM05/?/a FCTNL TST 1 

' a:k«\owledge status check. 



58 

59 

60 

6^ 

62 

63 

64 

65 

66 

67 

68 

o9 

70 

71 

72 

73 

7(, 

75 

76 

77 

78 

79 
80 
81 



053^.64 
053A72 

053500 
053504 
053512 
053516 
053520 
053524 
053526 



053526 
053534 
053536 
053544 
053552 
053560 
053564 
053572 
053576 
053600 
053604 
053606 



013737 
042737 
062716 
112776 
162716 
004736 
162716 
000240 



001350 
C40000 
000004 
000042 
000002 

000010 



fVKCRO V04.00 



001140 
001140 
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000000 



3$: 



MOV 'i.^ERII.SGDDAT 

BIG tfUNS.SGDDAT 

ADD #4,(SP) 

M0V8 #42.a(SP) 

sue *2,(SP) 

jsR PC.a(SP)* 

sue *io,(SP) 

NOP 



.•EXPECTED STATUS 

.-MOVE SP TO ERROR CALL 
.•WRITE NUMBER OF ERROR IN CALL 
;MOVE SP TO RETURN FOR ERROR 
.•REPORT THE ERROR VIA USER 
.-MOVE SP TO NO ERROR RETURN 



.•REPORT ANY DPI ERROR 



032737 


020000 


001350 


BIT 


*0PI.RMER11 


;WAS OPI SET ?? 


001424 






BEO 


4$ 


;N0: . 


013737 


001350 


001142 


MOV 


RMERII.SBDDAT 


.-RECEIVED STATUS 


013737 


001350 


001140 


MOV 


RMERII.SGDDAT 


.•EXPECTED STATUS 


042737 


020000 


001140 


BIf 


#OPJ.$GDDAT 




062716 


000004 




ADD 


*4. (SP) 
*43.a(SP) 


;MOVE SP TO ERROR CALL 


112776 


000043 


000000 


M0V8 


.•WRITE NUMBER OF ERROR IN CALL 


162716 


000002 




SUB 


*2.(SP) 


;MOVE SP TO RETURN FOR ERROR 


004736 






JSR 


PC.ii(SP)* 


.•REPORT THE ERROR VIA USER 


162716 


000010 




SUB 


#10. (SP) 


.•MOVE SP TO NO ERROR RETURN 


000240 






NOP 







4$: 



82 










.•REPORT 


ANY RMR 


ERROR 




83 


053606 


032737 


000004 


001350 


BIT 


*RMR.RMER1I 


.WAS RMR SET?? 


84 


053614 


001424 








BEQ 


5$ 


;N0. ! 


85 


053616 


013737 


001350 


001142 




MOV 


RMERII.SBDDAT 


.•RECEIVED STATUS 


86 


053624 


013737 


001350 


001140 




MOV 


RMERlI.tGDDAT 


.•EXPECTED STATUS 


87 


055632 


042737 


000004 


001140 




6IC 


#RMR,$GDDAT 




88 


053640 


062716 


000004 






ADD 


*4.(SP) 


.•MOVE SP TO ERROR CALL 


89 


053644 


112776 


000044 


000000 




M0V8 


#44,a(SP) 


; WRITE NUMBER CF ERROR IN CALL 


90 


053652 


162716 


000002 






SUB 


#2.(SP) 


.•MOVE SP TO RETURN FOR ERROR 


91 


053656 


004736 








JSR 


pc.a{sp)+ 


.•REPORT THE ERROR VIA USER 


92 


053660 


162716 


000010 






SUB 


*10.(SP) 


;MOVE SP TO NO ERROR RETURN 


93 


053664 


000240 








NOP 




94 
95 


053666 








5$: 









96 

97 

98 

99 
100 
^01 
102 
103 
104 
105 
106 
107 
108 
109 

no 

111 053746 

112 053754 

113 053756 
"4 053764 



053666 
053674 
053676 
053704 
053712 
053720 
053724 
053732 
053736 
053740 
053744 
053746 



032737 
001424 
013737 
013737 
042737 
062716 
112776 
162716 
004736 
162716 
000240 



032737 
001424 
013737 
013737 



000002 001350 



.•REPORT 



001350 
001350 
000002 
000004 
000045 
000002 

000010 



001142 
001140 
001140 

000000 



000001 001350 



6$: 

.•REPORT 



001350 
001350 



001142 
001140 



ANY ILR ERROR 

BIT #ILR.RMER1I 

BEQ 61 

MOV RMEftll.SBDDAT 

MOV RMERl I .SGDDAT 

BIG #ILR. SGDDAT 

ADD #4.(SP) 

MOVB *45,a(SP) 

sue *2. (^P) 

JSR Pc.a(SP)+ 

SUB *10.(SP) 
NOP 



ANY ILF ERROR 

BIT #ILF.RMER1I 

BEQ 7$ 

MOV RMERII.SBDDAT 

MOV RMERl I. SGDDAT 



WAS ILR SET?? 

no: . 

received status 

EXPECTED STATUS 

MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CAlI 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 



WAS ILF SET?? 
NO. . 

RECEIVED STATUS 
EXPECTED STATUS 



-i ^ al'NculEDGF status check 



'15 05377? 


042737 


000001 

%r W W 


M6 05A000 


062716 


C00004 


• 1 7 054004 


1''2776 


000046 




162716 


OOOOOP 
wvwc 


''9 054016 


004756 




\'C 054020 


162716 


000010 


V"1 054024 


000240 




'2? "^54026 






'2? 






'24 

■•25 054026 
'26 054032 






C62716 
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105776 


000000 
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001403 
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000402 
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000207 









G 


1 


MAC CO 


v04 00 4*APR-81 


11 ; 4 3 : <?8 PAGE 


29-2 


0C1 140 


81C 


*IlF ,SGDDAT 






ADD 


#4. (SP) 


.•MOVE SP TO ERROR CALL 


000000 


novB 


#46.a(SP} 


.'WRITE NUMBER OF ERROR IN '^A<i 




SUB 


#2, (SP) 


.'MOVE SP TO RETURN FOR ERRO^ 




JSR 


pca^sp)* 


.•REPORT THE ERROR VIA USER 




S'J8 


#10. (SP) 


:M0VE SP TO NO ERROR RETURN 




NOP 








7$: 








.•AUGMENT RETURN 


ADDRESS IF ERROR WAS FOUND 




ADD 


*4.(SP) 


;M0VE SP TO ERROR CALL 




TST8 


a(SP) 


;WAS ERROR FOUND?? 




BEO 


8S 


;N0. . 




ADD 


*4. (SP) 


;yES - MOVE TO ERROR RETURN 




BR 


9$ 






8$: Sl6 


#4. (SP) 


.•MOVE SP TO NO ERROR RETURN 




9$ : NOP 








RTS 


PC 
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7 

u 

5 
t 
7 
3 
9 
'0 
V 

It 

17 
18 
■■9 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
II 
33 
5A 
35 
36 
37 
38 
39 
40 
41 
U2 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



054056 



054056 
054062 
C54066 



054072 
054100 



054102 
054110 
054112 
054120 
054122 
054130 
054136 
054 144 
054150 
054156 
054162 
054164 
054170 
054172 



054172 
054200 
054202 
054210 
054216 
054224 
054230 
054236 
054242 
CS4244 
054250 
054252 



062716 
105076 
162716 



032737 
001553 



032^37 
001430 
032737 
001024 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



032737 
001424 
013737 
042737 
013737 
062716 
112776 
162716 
004730 
162716 
00C240 



000004 
000000 
000004 



022011 001350 



000010 001350 

000010 001376 

0013*^0 001140 

000010 001140 

001350 001142 
000004 

000050 000000 
000002 

000010 



000001 001350 



001350 
000001 
001350 
000004 
000071 
000002 

000010 



001140 
001140 
001142 

000000 



.S8TTL RECALJ8RATE STATUS CHECK SUBROUTINE 

.•THIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE 0PERATIo\ 
;USING THE STATLS STORED IN THE GET BUFFER. 



CALL; 
(1) 



JSR 

BR 

NOP 

ERROR 

JSR 



PC.RCLSTS 



PC,5l(SP)* 



RCLSTS: 

.■CLEAR USER'S ERROR NUMBER 
ADD *4.{SP) 
CLRB a(SP) 
SJB #4.(SP) 



.•CALL SUBROUTINE 

RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN E^ROR 

ERROR NUMBER DEFINED BV SUB 

GO BACK TO SUB FOR 10RE ERROR CHEC»f 

RETURN HERE IF NO MORE ERRORS 



.•CLEAR USER'S ERROf< CALL 
.-MOVE SP BACK TO BRANCH 



;SEE IF 'T>AR" OR "ILF" OR "TOPI" OR "lAE" IS SET 
BIT tfOPI.'PAR.ILF 1IAE.RMER1I 

BEQ 4$ ;NONE ARE SET - GO TO NEXT CHECK 



.•REPORT 
.•■■PAR" 



ANY MASS8US 
1 AND "DPE 
BIT 



1$: 



CONTROL 
- 0 
*PAR.RMER1I 
BEQ 1$ 
BIT #DPE.R«ER2I 
8NE 1$ 
MOV RMERIi.JGDDAT 
BIC <rPAR.$GDDAT 
MOV RMERII.SBDDAT 
ADD #4.(SP> .-MOVE 
M0V8 #50.a(SP) 
SUB *2,(SP) 
JSR PC.a(SP)* 
SUB *10.(SP) 
NOP 



BUS PARITY ERROR. I.E. 



SP 



.•REPORT ANY ' 
BIT 
BEQ 
MOV 
BiC 
M0>/ 
ADD 
M0V8 

sue 

JSR 
SUB 
NOP 

2$: 



'ILF" ERROR 
*ILF.RMER1I 
2$ 

RMERII.SGDDAT 
*ILF,$GDDAT 
RMERII.SBDDAT 
#'.(SP) 

#7i.a(SP) 

*2.(SP) 

pc.a(sp)* 

#10. (SP) 



WAS •T'AR" SET?? 
NO! ! 

WAS "DPE" SET?? 

YES - NOT A REGISTER ERROR 

EXPECTED STATUS 

RECEIVED STATUS 

TO USER'S ERROR CALL 

WRITE ERROR Nl^ER IN CALL 

MOVE SP TO RETURN FOR ERROR 

60 REPORT ERROR 

MOVE SP BACK TO BRANCH 



WAS "ILF" SET?? 

no: ! 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALl 
WRITE ERROR NUMBER IN CAL>. 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 
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REPOR' ANY "OPI" ERROR AS 



3$: 



31$: 



OPI DUE TO •not" - 0 

. OPI BECAUSE ON CYLINDE 

BIT #0PI.RMER1I 

BEQ 31$ 

MOV RMER1 1 ,$GDDAT 

BIC #OPi.$GDDAT 

MOV RMER1I .$BDDAT 

ADD #4.(SP) 

M0V8 *72.a(SP) 

BIT *MOL.RMDSI 

BEO 3$ 

M0V6 *73.a(SP) 

SUB *2.(SP) 

JSR PC,Sl(SP) + 

SUB *10,(SP) 

NOP 



R LATCH DIDN'T RESET 

WAS OPI SET?? 
NO! : 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CA. l 
WRITE ERROR NUMBER IN USER'S f a, 
WAS 'MOL" = 07? 

VES! I 

NO - CHANGE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 



.•REPORT AN ERROR IF "lAE" IS SET 



4$: 

;SEE IF 



BIT 

BEO 
MOV 
BIC 
MOV 
ADD 
M0V8 

sue 

JSR 

sue 

NOP 



"SKI" 

BIT 

BEO 



*IAE.RMER1I 
4$ 

RMERII.SGDDAT 

*IAE.$GDDAT 

RMER1I.$BDDAT 

*4.(SP) 

*70.a(SP) 

*2.(SP) 

pcacsp)* 

*10,(SP) 



IS "lAE" SET?? 
NO. ! 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO ERROR CALL 

WRITE ERROR NUMBER IN USER'S CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR 

MOVE SP BACK TO NO ERROR RETURN 



OR "IVC" OR 'DVC" IS SET 
*SKI!IVC!DVC.RMER2I 
8$ ;NONE OF 



THE BITS ARE SET 



REPORT ANY "IVC" ERROR AS 
,IVC WITH VV - 0 
•ERRONEOUS IVC ERROR 



5$: 



6$: 



BIT 


*IVC.RMER2I 


WAS IVC SET?? 


BEQ 


6$ 


■NO. . 


MOV 


RMER2I.$GDDAT 


•EXPECTED STATLS 


BIC 


#IVC.$GDDAT 




MOV 


RMER2I.$BDDAT 


RECEIVED STATUS 
•MOVE SP TO USER'S ERROR CALL 


ADD 


*4.(SP) 


M0V8 


«74,5(SP) 


WRITE ERROR NUMBER IN CALL 


BIT 


*VV.RMDSI 


•WAS VV = 0?? 


BEQ 


5$ 


•yes: ! 


MO 4^8 


*75.a(SP) 


•NO - CHANGE ERROR NUMBER 


sue 


#2,(SP) 


MOVE SP TO RETURN FOR ERROR 


JSR 


pc.a(sp)* 


REPORT ERROR VIA USER 


SUB 


«10.(SP) 


•MOVE SP BACK TO BRANCH 


NOP 
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.•REPORT ANr 
BIT 
BEO 
MOV 
BJC 
MO^ 
ADD 
M0V8 
SUB 
JSR 

sue 

NOP 

7%: 



'i>Kl" ERROR 
*SKI,RMER2J 
7$ 

RMER2I.$GDDAT 
#SKI.$GDDAT 
RMER2I.$BDDAT 
#A.(SP) 
*76.a(SP) 
#2.(SP) 
PC,5)(SP)* 
#10. (SP) 



WAS SKI SET?' 
NO. . 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CAl L 

WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP TO BRANCH 



; REPORT ANV "DVC" ERROR 



BIT 


*DVC.RMER2I 


;WAS 'DVC" SET?? 


BEO 


8$ 


;N0. I 


MOV 


RMER2I,$GDDAT 


.•EXPECTED STATUS 


BIC 


#DVC.$GDDAT 




MOV 


RMER2I.$BDDAT 


.•RECEIVED STATUS 

;MOVE SP TO USER'S ERROR CALL 


ADD 


*4.(SP) 


M0V8 


#77. a(SP) 


; WRITE ERROR NUMBER 


sue 


#2.(SP) 


;MOVE SP TO RETURN FOR ERROR 


JSR 


PC,a)(SP) + 


.•REPORT ERROR VIA USER 
.•MOVE SP TO USER'S BRANCH 


SUB 


#10. (SP) 


NOP 







8S: 

;SEE IF "PIP" AND 'W ARE 0, AND "ATA",'WOL" AND 'VV" ARE 1 

MOV RMDSI,-(SP) ;PUT RMDS ON STACK 

BIC #*C<PIP.M0L1VV.0M!ATA>.(SP) 

CMP #ATA!MOL!VV.(SP)* 

BNE 85S 

JMP 13$ 



85$: 



.•REPORT AN ERROR If MOL - C AND 
.'LINE AFTER RECALIBRATE WAS INIT 



OPI = 0. I.E. 
lATED 



MEDILW WENT OFF 



BIT 


#MOL.RMDSI 


;DID MOL DROP?"' 




BNE 


9$ 


;N0! ! 




BIT 


#0PI,RMER1I 


.•WAS OPI ERROR REPORTED 




BNE 


9$ 


;YES - DON'T REPORT MOL 


0 


MOV 


RMDSI.$GDDAT 


.•EXPECTED STATUS 




SIS 


#M0L.$GDDAT 






MOV 


RMDSI.$BDDAT 


.•RECEIVED STATUS 
SP TO USER'S ERROR CALL 




ADD 


#4,(SP) ;M0VE 




MOVB 


#100.a(SP) 


.•WRITE ERROR NUMBER 




SUB 


#2.(SP) 


;MOVE SP TO RETURN FOR 


ERROR 


JSR 


pc.a(SP)+ 


.■REPORT ERROR VIA USER 
.•MOVE SP BACK TO USER'S 




SUB 


#10. (SP) 


BRANCH 


NOP 









9$: 

.•REPORT AN ERROR IF ' VV" 
BIT #VV.RMDSI 
BNE 10$ 
BIT #IVC.RMEft2l 



0 AND "IVC" = 0 

DID "VV" DROP?? 
NO. . 

WAS THERE A IVC ERROR?? 
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UUUUUU 




o c ^ 0 0/ 


1 071 ^. 


AAAAA 0 

OOOOUc 




•^AQ 

^^09 


ACC07A 

033i:3'J 


AA/ 7 

UO** r 3o 








AC C OTO 

033<^3<: 


1 iL071 ^ 

16£:^16 


AAAA1 A 
00001 U 




oi 1 

1 


ACC0 7A 

033^36 


AAAO/ A 

OOO^sO 






^1 1: 


ACCO/ A 

033^»»0 








<rl 3 










2U 










ifl 3 










OM. 
dit 


ACCO/ A 

U33i:*»U 


A70777 


AOAAAA 


AA1 7/ A 
UUl JHO 


317 
CI f 


U33c»»6 


U01»»50 






clo 


033^30 


A70777 


A/ AAAA 

U'jUUUU 


AA1 77A 

UUl 5'6 


01 Q 

<: 19 

0"tA 


ACCOCA 

033<:36 


AA1 AO/ 

001 0<:*» 






ACCOilA 

033<:6U 


A1 7777 

Ul 5f Jf 


AA1 7/ 

UUl 3h6 


A A 1 'i y A 

UUl I4U 


101 


ACCOi^iL 

033<:o6 


042737 


AOAAAA 
OifOOOO 


AA 1 1 / A 

UOl 1 hO 




ACC07/ 


A1 7777 

Ul Jf Jf 


AA1 7/ 

UU 1 3»»0 


AA1 1/0 
001 1 




\JJJJ\JC 


\JOC 1 1 O 






22A 


055306 


112776 


000104 


000000 


225 


055314 


162716 


000002 




226 


055320 


004736 
162716 






227 


055322 


000010 




228 


055326 


000240 







10$: 



BNE 10$ 

MOV RMDSJ,$GDDAT 

MOV RMDSJ.$8DDAT 

BIS *VV.$GDDAT 

ADD *4.(SP) 

M0V8 *101.a(SP) 

sue *2.(SP) 

JSR PC.i(SP)+ 

sue *io.(SP) 

NOP 



;VES - DONT REPORT VV 
.•EXPECTED STATUS 
.-RECEIVED STATUS 



= 0 



.•MOVE SP TO USER'S ERROR CALL 
.•WRITE ERROR NUMBER IN CALL 
;M0VE SP TO RETURN FOR ERROR 

.-MOVE SP BACK TO USER'S BRANCH 



.•REPORT AN ERROR IF ATA IS NOT SET 



BIT *ATA.RMDSI 

BNE 1 1 $ 

MOV RMDSI.$GDDAT 

BIS *ATA.$GDDAT 

MOV RMDSI.$BDDAT 

ADD *4,(SP) 

M0V8 *102.a(SP) 

sue *2.(SP) 

JSR Pc,a(SP)* 

sue *io.(SP) 

NOP 



;WAS ATA SET DURING RECALIBRATE 
;YESI : 

.•EXPECTED STATUS 

.-RECEIVED STATUS 

;M0VE SP TO USER'S ERROR CALL 

.-WRITE ERROR NUMBER IN CALL 



.-MOVE SP TO USER'S BRANCH 



11$: 

.•REPORT 
.■ALWAYS 



AN ERROR IF "OM*" IS 
CLEAR OFFSET MODE 



NOT ZERO BECAUSE RECALIBRATE SHOULD 



12$: 



BIT 


*OM.RM0SI 


.-WAS "OM" RESET?? 


BEO 


12$ 


;YES! I 


MOV 


RMDSI,$GDDAT 


.-EXPECTED STATUS 


BIC 


/COM,$GDDAT 




MOV 


RMDSI.$BDDAT 


.-RECEIVED STATUS 


ADD 


*4. (SP) 


.-MOVE SP TO USER'S ERROR CAL. 


M0V8 


*103.a(SP) 


.•WRITE ERROR NUMBER 


sue 


*2.(SP) 


.-MOVE SP TO RETURN FOR ERROR 


JSR 


pc.acsp)* 


.-REPORT ERROR VIA USER 
.-MOVE SP TO USER'S BRANCH 


sue 


*10.(SP) 


NOP 







.-■REPORT AN 

.•CYLINDER 

BIT 
BEO 
BIT 
BNE 
MOV 
BIC 
MOV 
ADD 

Move 
sue 

JSR 

sue 

NOP 



ERROR IF "PIP" IS STIL ON. I.E, 



/CPIP.RMDSI 
13$ 

*SKI,RMER2I 
13$ 

RMDSI.$GDDAT 
*PIP, $GDDAT 
RMDSI.$BDDAT 
*4.(SP) .-MOVE 
*104.a(SP) 
*2.(SP) 
PC.a(SP)+ 
*10.(SP) 



. DRIVE NOT ON 
OFF CYLINDER?? 



.-IS DRIVE 
.-NO I ! 

.-WAS "SKI" DETECTED?? 
;YES-DONT REPORT "PIP" 
.•EXPECTED STATUS 

.•RECEIVED STATUS 
SP TO USER'S ERROR CALL 
; WRITE ERROR NUMBER 
.•MOVE SP TO RETURN FOR ERROR 

.•MOVE SP BACK TO USER'S BRANCH 



ZR-^teO ftM05/3/2 FCTNL TST 1 MACRO 
ftf'A. IBRATE STATUS CHECK SUBROUTINE 



?29 


055330 








230 










?51 










?32 


055330 


"32737 


040006 


001 350 




055336 


001514 






23^ 










235 










236 


055340 


032737 


000002 


001 350 


237 


055346 


001424 






238 


055350 


0''3737 


001 350 


001 140 


259 


055356 


042737 


000002 


UOI 140 


2'«0 


055364 


013737 


001350 


001 142 


2A1 


055372 


062716 


rt rt /\ / 

000004 




2^2 


055376 


1 12776 


AA 1 AC 

000105 


A A AAAA 

000000 




055404 


162716 


rtA A AA 

000002 




244 


055410 


004736 






245 


055412 


162716 


000010 




246 


055416 


000240 






247 


055420 








248 










249 










250 


055420 


032737 


A AA AA y 

000004 


A A i 7 C A 

001 350 


251 


055426 


A A ^ / ^ / 

001424 






252 


055430 


01 3737 


A A 1 7C A 

001350 


A A 1 1 y A 

001 140 


253 


055436 


A/ "^77 7 

042737 


A AAA A / 

000004 


AA 1 i y A 

001 140 


254 


055444 


Ai 7 777 

013737 


AAi 7CA 

001350 


AAi i y 

001 142 


255 


055452 


062716 


AAAAAV 

000004 




256 


055456 


1 12776 


AAAi AZ 

000106 


000000 


257 


055464 


162716 


AAAAAI 

000002 




258 


0554 


AA/ 77Z. 

004 736 






259 


055472 


i Z '57i Z 

162716 


AAAA1 A 

000010 




260 


055476 


000240 






261 


f\C CC Art 

055500 








262 










265 










264 


/\ C C C f\f\ 

055500 


A'y^ 77 7 

032737 


A / AAA A 

040000 


A A 1 7 C A 

001350 


265 


055506 


AA^ y 7A 

001430 






266 


055510 


032737 


AAA "\ A 

000200 


AA ■! 7 7Z 

001376 


267 


055516 


A A ^ A / 

001024 






268 


055520 


013737 


AAI T C A 

001 350 


A A 1 1 / A 

001 140 


269 


t\C CC "Si 

055526 


A / T7 7 7 

042737 


A / AAAA 

040000 


AAI ^ i fx 

001 140 


270 


C55534 


013737 


rt A 1 7 C A 

001350 


A A 1 1 / "» 

001 142 


271 


055542 


062716 


000004 




272 


055546 


1 12776 


000107 


AAA AAA 

000000 


273 


AC C C C / 

055554 


162716 


AAAAA 

000002 




274 


055560 


AA/ 77Z 

004 736 






27'i 


055562 


1 Z 71 Z 

162716 


A AAA 1 A 

000010 




276 


055566 


AAA*>y A 

000240 






277 


055570 








278 










279 














UO£^ ^ 1 0 


(JUOUU** 




28^ 


055574 


105776 


000000 




282 


055600 


001403 






283 


055602 


062716 


000004 




284 


055606 


000402 






/85 


055610 


162716 


000004 
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13$: 



L 

PAGE 



1 

50-4 



SCO o^1<> 



;SEE IF "ILR" OR "RMR" OR "UNS" IS SET 
BIT *ILR.RMR.UNS.RMER1I 
BEO 16$ 

.•REPORT AN ERROR IF "ILR" IS'SET 



BIT 


*ILR.RMER1I 


;WAS ILR SET DURING RECALIBRATE.'? 


BEO 


14$ 


;N0! . 


MOV 


rm:rii,$gddat 


.•EXPECTED STATUS 


BIG 


*ILR.$GDDAT 




MOV 


RMER1I.$BDDAT 


.•RECEIVED STATUS 
SP TO USER'S ERROR CALL 


ADD 


*4,(SP) .-MOVE 


M0V8 


*105.a(SP) 


.•WRITE ERROR NUMBER IN CALL 


sue 




;MOVE SP TO RETURN FOR ERROR 


JSR 


PC,a(SP)* 




sue 




;MOVE SP TO USER'S BRANCH 


NOP 







14$: 

.•REPORT AN ERROR IF "RMR" ib SET 



BIT 


*RMR,RMtRlI 


.•WAS RMR SET?? 


BEO 


15$ 


;N0; .' 


MOV 


RMER1I.$GDDAT 


.•EXPECTED STATUS 


BIC 


*RW<.$GDDAT 




MOV 


RMER1I.$BDDAT 


.•RECEIVED STATUS 

;MOVE SP TO USER'S ERROR TALL 

.-WRITE ERROR NUMBER IN USER'S CALL 


ADD 


*4,(SP) 


M0V8 


*106.(J(SP) 


sue 


*2.(SP) 


.•MOVE SP TO RETURN FOR ERROR 


JSR 


PC.a(SP)+ 


.•REPORT ERROR VIA USER 
.•MOVE SP TO USER'S BRANCH 


sue 


*10.(SP) 


NOP 







15$: 

.•REPORT AN ERROR IF "DNS" IS SET 

BIT *UNS,RMER1I 

BEO 16$ 

BIT *DVC.RMER2I 

BNE 16$ 

MOV RMER1I.$GDDAT 

BJC *UNS.$GDDAT 

MOV RMER1I,$BDDAT 

ADD *4.(SP) 

Move *io7.a(SP) 

SUB *2,(SP) 

JSR pc.a(sp)+ 

sue *io.(SP) 

NOP 

16$: 



AND 't)VC" IS 0 
WAS UNSAFE ON?? 
NO! I 

WAS THERE A DEVICE CHECK?' 
VES - DON'T REPORT UNSAFE 
EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP BACK TO USER'S BRANCH 



.■AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 



17$: 



ADD 

TST8 

BEO 

ADD 
BR 

sue 



*4.(SP) 

a(sp) 

17$ 

*4.(SP) 
1 8$ 

*4.(SP) ;N0 



MOVE SP TO USER'S ERROR 
WAS AN ERROR REPORTED?? 
NOI ! 

YES - AUGMENT SP RETURN 



ERROR - RETURN SP TO BRANCH 



CALL 



H 1 

•♦BO FCTML TST 1 fWCRO vOA.OO 4-APR-81 n;A3:i'8 PAGE 50-5 

A. IBRATE STATUS CHECK SUBROUTINE 

,^86 0S56U 000^'.0 18S: NOP .status fFfK is lOMPLFTl 

^8/" 0556"' 6 000207 RTS PC .-STATUS CfcCK IS u^iplhi 



/«»«Bx; «M05/?/2 fCTNL TST 1 ^WCRO VOA.OO 
'.f'lA \fAR STATUS CHECIC SUBROUTINE 



N 1 

A-APR-81 11:43:i'8 PAGE 31 



c 

5 
<. 

5 
6 

8 
9 

10 

n 

15 
K 
IS 

16 
■ 7 

^8 

19 

?0 

?1 

?? 

^3 

?4 

?5 

26 

P-' 

?8 

?9 

30 

51 

l^ 

55 

54 

5S 

36 

37 

38 

59 

AO 

A1 

4? 

a5 

AA 

AS 

A6 

A7 

A8 

A9 

SO 

M 

Sc-> 

S3 

•^A 

• S 



0S56P0 



005620 
0S562A 
055630 

0S563A 
0S56A2 
055650 
055656 
C5566A 
055666 
055672 
055700 
05570A 
055706 
055712 

05571A 
055722 
055730 
055736 
055 7AA 
0557A6 
0557S2 
055760 
055 76A 
055766 
055772 

05577A 
056000 
C56006 
056010 
0560K 
0560. 2 
056026 
0S('U30 
0S6O3A 

056036 
0S60AA 
0560A6 
056050 
0560SA 
0S6060 
JS606A 
"'*>066 



062716 
10S076 
162716 

013737 
0A2737 
012737 
023737 
001AA3 
062716 
112776 
162716 
00A736 
162716 
000240 

013737 
0A2757 
012737 
023737 
001A13 
062716 
112776 
162716 
00A736 
162716 
0002A0 

005037 
015737 
001A13 
062716 
112776 
162716 
00A736 
162716 
0002A0 

013737 
0101A6 
0102A6 
013701 
116102 
0A2702 
O0S102 
0A0237 



OOOOOA 
000000 
OOOOOA 

001 33A 
1 73700 
00A010 
OOHAO 

OOOOOA 
0001 A 1 
000002 

000010 



001 3A6 
021101 
010600 
OOHAO 

OOOOOA 
0001 A2 
000002 

000010 



OOHAO 

001 350 

OOOOOA 
0001A3 
000002 

000010 



001 1A2 
001 1A2 
001 1A0 
001 1A2 



000000 



001 1A2 
001 1A2 
001 1A0 
001 1A2 



000000 



.S8TTL DRIVE CLEAR STATUS CHECK SUBROUTINE 



BR 
NOP 
ERROR 
JSR 



DRVSTS: 



001 1A2 
000000 



001352 001 U2 



001 A6A 
000001 
1 77400 



0011 A2 



.■CLEAR USER'S 
ADD 
CLR8 

sue 

.•REPORT ERROR 
A$: MOV 
BIC 
MOV 
CMP 
BEO 
ADD 
MOVB 

sue 

JSR 

sue 

NOP 

.•REPORT ERROR 
5$: MOV 
BIC 
MOV 
CMP 
BEQ 
ADD 

Move 

SUB 
JSR 
SUB 
NOP 

; REPORT ERROR 
bi: CLR 
MOV 
BEO 
ADP 
MOVB 

sue 

JSR 
SUB 
NOP 

.•REPORT ERROR 
8t: MOV 
MOV 
MOV 
MOV 
M0V8 
BIC 
COM 
8K 



pc.a(SP>* 



RETURN HERE If NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED Br SUB 

GO BACK TO SUB FOR MORE ERROR ChKKS 

RETURN HERE IF NO MORE ERRORS 



ERROR CALL 

*A.(SP) .-MOVE SP TO ERROR CALL 

a(SP) ; CLEAR ERROR CALL 

*A.(SP) ;MOVE SP TO USER'S BRANCH 

IF RMCS1 NOT INITIALIZED 
RMCS1I,$8DDAT ; CHECK RMCS1 
**C<DVA.FNCMSK>.$8DDAT ;CLEAR DONT CARES 
#DVA.'DRVCLR.$GDDAT ;EXPECT DVA 



SGDDAT.SBDDAT 
6$ 

*A.(SP) 

*1A1.a(SP) 

*2,(SP) 

PC.a(SP)* 

*10.(SP) 

IF RMDS NOT INI 
RMDSI.SBDDAT 
*PGM!OM!VV!PI 
*MOLIDPR.DRY. 
SGDDAT.SBDDAT 
6$ 

*A.(SP) 

*1A2.a(SP) 

#2.(SP) 

PC,a(SP)* 

*10.(SP) 



COMPARE EXPECTED t RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 



TIALIZED 

.•CHECK RMDS 
P.$8DDAT ; CLEAR DONT CARES 
SGDDAT .-EXPECT DRV & DPR 
COMPARE EXPECTED & RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 



IF RMER1 NOT INITIALIZED 



SGPnAT 
RMERIl.SBDDAT 
8$ 

#H.(SP) 

*lA3.a(SP) 
*2.(SP) 
PC,a(SP)* 
*10.(SP) 



EXPECT O'S 
CHECK RMER1 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CAU 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 



IF ATA NOT INITIALIZED 



RMASI.SBDDAT 

RI.-(SP) 

R2.-(SP) 

TSTQUE.R1 

1 (RD.R? 

**CATNMS»(.R2 

P2 

R2.$8DDAT 



CHECK ATTENTION BIT 
.-PUSH R1 ON STACK 
.-PUSH R2 ON STACK 



:o«f«0 F*105/^/^ FCTNL TST ' "nA-RO 1/04.00 
DRUE :lEAR status CHECH SJ8ft0fMNE 



58 
59 
60 
61 

^ 

6A 
65 
66 
67 
68 
o9 
^0 

7^ 

72 
73 
74 
75 
76 
77 
78 
79 
80 
SI 
32 
85 
84 
85 
86 
87 
88 
89 
90 
91 

92 
9^ 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
'06 
107 
108 
109 

no 
in 



056072 
056074 
056076 
C56102 
056104 
056110 
056116 
056122 
056124 
056130 

056132 
056140 
056146 
056154 
056162 
056164 
0561 70 
0561 76 
C56202 
056204 
U56210 

056212 
056220 
056226 
056234 
056242 
056244 
056250 
056256 
056262 
056264 
056270 
056272 

056276 
056304 
056306 
056312 
056320 
C56324 
056326 
056332 

056334 
056342 
056344 
056350 
056356 
056362 
C56364 
056370 
056372 

QS6372 



012602 
012601 
005737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 

013737 
042737 
012737 
023737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 

013737 
C42737 
012737 
023737 
001413 
0627''6 
112776 
162716 
004736 
162716 
000240 
005037 

013737 
001413 
062716 
112776 
162^16 
004736 
162716 
000240 

013737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 



00M42 

000004 
000144 
000002 

000010 



001360 
000046 
000010 
001140 

000004 
000145 
000002 

000010 



001374 
140000 
011777 
001140 

000004 
000146 
000002 

000010 

001140 

001402 

000004 
000150 
000002 

000010 



001376 

000004 
000147 
000002 

000010 



000000 



001142 
001142 
001140 
001142 



000000 



001142 
001142 
001140 
001142 



000000 



001142 
000000 

001142 
000000 



.•REPORT 
9$: 



.•REPORT 
11$: 



15$: 
.•REPORT 



.•REPORT 
17$: 



18$: 
19$; 



i-APR-81 



MOV 

MOV 

TST 

BEQ 

ADD 

M0;8 

Si* 

jSR 

Si* 

NOP 

ERROR 

MOV 

8IC 

MOV 

CMP 

BEQ 

ADD 

M0V8 

Si* 

JSR 

SlC 

NOP 

ERROR 

MOV 

BK 

MOV 

CMP 

BEQ 

ADD 

M0V8 

Sl* 

JSR 

SI* 

NOP 

CLR 

ERROR 

MOV 

BEQ 

ADD 

M0V8 

sue 

JSR 

sue 

NOP 

ERROR 

MOV 

BEO 

ADD 

M0V8 

sue 

JSR 

sue 

NOP 



:43:i'8 



B 

PAGE 



2 

51-- 



(SP)*.R2 
(SPJ^.R"" 
$8DDAT 
9$ 

#4. (SP) 
#144.a(SP^ 
#2. 'SP) 
PC-i(5P)» 
#10. (SP) 



;P0P STACK :NT0 R2 

;P0P STACK INTO Rl 

IS ATTENTION CLEARED?? 

BRANCH IF ATTENTION CLEARED 

MOVE SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CAl 

MOVE SP TO RETURN FOR ERROR 

REPORT THE ERROR VIA USER 

MOVE SP TO NO ERROR KrTuRN 



IF RMMR1 NOT INITIALIZED 



RMMR1I.$8DDAT 
*WC.'LS.LST.$8DDAT 
*MWD.$GDDAT 
$GDDAT.$6DDAT 
11$ 

#4. (SP) 
#145.a(SP) 
#2. (SP) 

pc.a(SP)* 

#10. (SP) 



CHECK RMMR 

.•CLEAR DONT CARES 
EX-»ECT WRITE DATA ON 
COMPARE EXPECTED AND RECEIVED 
BRANCH IF ZERO 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CA l 
MOVE SP rO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 



IF RMW2 NOT INITIALIZED 



RMMR2I.$8DDAT 
#R0A:R08.$8DDAT 
#TST 11 777, $GDDAT 
$GDDAT.$8DDAT 
15$ 

#4.(SP) 

#146.a(SP) 

#2.(SP) 

pc.a(sp)* 

#10, (SP) 

$GDDAT 
IF RMEC2 NOT RESET 
RMEC2I.$8DDAT 
17$ 

#4.(SP; 

#i50.a(SP) 

#2.^SP) 

PC,a(SP)* 

#10, (SP) 

IF RMER2 NOT RESET 
RMER2I.$BDDAT 
18$ 

#4.{SP) 
#147.a(SP) 
#2.{SP) 

pc.a{SP)* 

#10, (SP) 



CHECK RMMR2 
CLEAR REOA. REOe 

.•EXPECT TEST BIT ON 
COMPARE EXPECTED I RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 

EXPECT ZEROS 

CHECK RMEC2 

BRANCH IF 0 

MOVE SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT THE ERROR VIA USER 

MOVE SP TO NO ERROR RETURN 



CHECK RMER2 

BRANCH IF NO ERROR 

MOVE SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT THE ERROR VIA USER 

MOVE SP TO NO ERROR RETURN 



.r ST*'jS CHf'n SuBROlTINE 



C 2 

i-APR-81 '^:<.?:^8 PAGE 51-? 



' 1 7 

•2? 



0565/2 062716 C00004 

056576 105776 000000 

056402 0OU05 

056404 062716 000004 

056410 000402 

056412 162716 000004 

056416 000240 

056420 000207 



.■AUGMENT RETURN 
ADO 
TST8 
BEO 
ADO 
BR 

?1l: SJ3 
251: NOP 
RTS 



ADDRESS 
#4,(SP) 
i(SP) 
21$ 

25i 

#4. (SP) 
PC 



If ANV ERROR WAS FOUND 

WOVE SP TO ERROR CALL 
WAS AN ERROR DETECTED?? 
NO. . 

VES - MOVE SP TO ERROR R£Tu*<N 
;MOVE SP BACK TO NO ERROR RFTuRN 
.•RETURN TC USER 



1 ^ 

. J 

15 
't 
•7 

'8 

19 
?0 
21 
2i 
25 
2A 
25 
26 
27 
28 
29 
50 
31 
3^ 
35 
34 
35 
36 
17 
38 
39 

'.0 056422 

41 

42 

43 056422 

44 056426 

45 056432 

46 056436 
4/ 

48 
49 

50 056442 

51 056450 

52 056452 

53 056460 
54 

55 

56 056462 

57 C56470 



062^16 
105076 
162716 
005037 



032737 
00U31 
032737 
001025 



013737 
0*2757 



000004 
000000 
000004 
057764 



000010 
000010 



001550 
000010 



001550 
001576 



001140 
001 uo 



»WCR0 V04.00 4-APR-8^ 1l:43.v8PAGf 5 



.SeilL SEARCH STATUS CHhCK SJ3R0UTIME 

THIS SUBROUTINF. VERIFIES THE RESULTS OF SEARCH OPERATIONS USI(% 
STATUS STORED IN THE GET BuFFCR TEST COfiiOlTIONS STORED \U ^nf 
PUT BUFFER. 

THE SUSROUTIME RETURNS TO THE CALLING ROUTINE IF AN ERROR IS 
DETECTED AFTER HAVING LOADED THE APPROPRIATE ERROR NU^R IN 
THE USER'S "ERROR" TRAP. 

THE FOLLOWING CONDITIONS ARE CHECKED: 

.ANY ERROR WHICH OCCURRED WHILE READING OR WRITl^ REMOTE 
REGISTERS IS REPORTED. I.E., 'MCPE" = 1 OR 'PAR" = 1 

."lAE" STATUS IS CHECKED IN ACCORDANCE WITH THE VALUE DETERMINED 
BY THE PROGRAM. WHICH IS BASED ON FORMAT AND ADDRESS. 

."OPJ", JF SET, IS REPORTED AS 1) "OPI" DUE TO MOL = 0. OR 2) 
"OPJ" DUE TO ON CYLINDER LATCH. 

."IVC". IF SET. IS REPORTED AS D "IVC" ERROR WITH VOLUME 
VALID ZERO. OR 2) ERRONEOUS "IVC" ERROR WITH VOLUME VALID SET. 

."SKI" IS REPORTED IF SET 

."DVC" IS REPORTED IF SET 



.AN ERROR IS REPORTED IF "liOL" 
OR "W" - 0. 



call: 
(1) 
(2) 
(5) 

<4) 
(5) 
(6) 

SCHSTS: 



JSR 
BR 

NOP 

ERROR 

JSR 



PC. SCHSTS 



pc.a(sp)* 



.•clear USER'S ERROR CALL 
ADD *4,(SP) 
CLR8 a(SP) 
SUB #4.(SP) 
CLR 200$ 



0, OR 'T^IP" = 1. OR "ATA" 0, 



RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT ERROR 
SUBROUTINE WILL LOAD ERROR • 
GO BACK FOR MORE CHECKS 
RETURN AFTER ALL ERRORS REPORTED 



.MOVE SP TO USER'S ERROR TALu 
.CLEAR ERROR NUMBER 
.MOVE SP BACK TO NO ERROR BR 
.•CLEAR STATUS FLAGS 



;TEST FOR MASS8US CONTROL BUS PARITY ERROR WHEN WRITING REMOTE 
.REGISTERS. I.E., 'T'AR" = 1 AND "DPE" - 0. 

BIT *PAR,RMER1I ;WAS PARITY ERRCW DETECTED?? 

BEQ 10$ ;N0:! 

BIT #DPE,RMER2I ;WAS IT CONTROL BUS ERROR?? 
BNE 10$ .-PROBABLY NOT ! : 

;REPORT CONTROL BUS PARITY ERROR VIA USfR'S ERROR CALL 
MOV RMER1I,$GDDAT .-EXPECTED STATUS 
BJC #PAR,$GODAT 



;-rwbv nwos/^/? »ctnl tst • 

(■At< 1 SU'uS ChEC< SUBfiOUTINf 
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5** 
6C 
6^ 

t:> 

6? 
64 
65 
66 
67 
60 
69 
^ 
/I 
72 
^3 
74 
75 
76 
77 
^8 

80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
9t 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
'09 
MO 
Ml 
M? 
"3 



056476 
056504 
056510 
056516 
056522 
056524 
056530 
056532 
056534 



056534 
056542 



056544 
056552 
0^6560 
C56566 
056572 
056600 
056604 
056606 
056612 
056614 
056620 



056620 
056626 
056634 
056642 
056644 

056652 
056660 

056662 
056670 
C56672 
056700 
056702 
056710 



056716 
056724 
056732 
056740 
056742 
056750 
056752 



013737 
062716 
112^76 
162716 
004736 
162716 
000240 
000430 



0327^7 
001426 



013737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 
000240 
000137 



012737 
052737 
023727 
101025 
042737 

123737 
101016 

123727 
101410 
032737 
001406 
123727 
101002 



001 350 
C00004 
000050 
000002 

0O0010 



013737 
042737 
023737 
001004 
042737 
000413 



001334 
020000 
001334 
0C0004 
000013 
000002 

000010 

057736 



002000 
040000 
001444 

040000 
001417 

001416 
010000 
001416 



056712 005037 001140 



001350 
175777 
001140 



001142 
000000 



020000 001334 



001140 
001140 
001142 

000000 



001140 
057764 
001466 

057764 
001333 

000035 
001442 
000037 



001142 
001142 
001142 



040000 057764 



10$: 



MOV RMERII.SeODAT 

ADD »4,(SP) 

M0V8 #50.a(SP) 

sue #2.(SP) 

jsR Pc.afSP)* 

SlB »10.(SP) 
NOP 

BR 15$ 



.•TEST FOR MAS58US CONTROL BUS 
.•REGISTERS. I.E. . 'MCPE" = 1. 

BIT #MCPE,RMCS1I 

BEQ 20$ 



.•RECEIVED STATUS 

;f»WVE SP TO USER'S ERROR fAi 

.•WRITE ERROR Nl^ER IN CAL. 

;«OVE SP TO RETURN If ERROR 

.•REPORT ERROR 

.•RESTORE SP TO NO ERROR 

.•SKIP FURTHER ERROR CHECKS 



PARITY ERROR WHEN READING RE^tuTE 

;WAS PARITr ERROR DETFCTSD'? 
;N0. . 



.•REPORT CONTROL BUS PARITY ERROR VIA USER'S ERROR CALL 



MOV 


RMCS1I.$GDDAT 


.•EXPECTED STATUS 


BIC 


*MCPE.$GDDAI 




MOV 


RMCS1I,$8DDAT 


.•RECEIVED STATUS 

;M0VE SP TO USER'S ERROR CAll 


ADD 


»4,(SP) 
#13.a(SP) 


MQVR 


.-WRITE ERROR NUMBER 


SU8 


#2.(SP) 


.•MOVE SP TO RETURN If ERROR 


JSR 


PC.a(SP)* 


.REPORT ERROR AND RETURN 


sue 


#10. (SP) 


.•RESTORE SP TO NO ERROR 


NOP 






JMP 


150$ 


;OMIT STATUS CHECKING 



15$: 
20$: 



.•DETERMINE THE VALUE 
.•ALSO SET "SKI" FLAG 



OF "lAE" STATUS BASED ON TRACK, SECTOR AND 
IF CYLINDER ADDRESS IS TOO LARGE. 



MOV 


»IAE.$GDDAT 


.•SETUP FOR lAE - 1 


BIS 


#SKI.200$ 


; SETUP FOR SKI 1 


CMP 


RMCC0,#822. 


.•GREATER THAN LAST CYLINDER ? 


8h; 


30$ 


;VES - CYLINDER IS INVALID 


BIC 


#SKI,200$ 


;"SKI" SHOULD BE ZERO 


cMPe 


RMDA0*1 .LSTRK*! 


.GREATER THAN LAST TRACK ? 


BHI 


30$ 


;YES - TRACK IS INVALID 


CMP8 


RWA0.#29. 


.•SECTOR > 29. ? 


8L0S 


25$ 


;N0; . 


BIT 


#FMT16.RMOF0 


;18 BIT FORMAT ? 


BEO 


30$ 


.YES - SECTOR IS INVALID FOR 18 BIT «^ODE 


CW« 


RMDAC,#31. 


.•SECTOR > 31. ? 


BHI 


30$ 


;YES - SECTOR IS INVALID 


ClR 


$GDDAT 


;"IAE" SHOULD " 0 



25$: 



COMPARE EXPECTED AAJD RECIVED 



40$: 



MOV 
BIC 
CMP 
BNE 
BIC 
BR 



RMCfi1I.$8DDAT 
#''CIAE,$8DDAT 
$GDDAT.$8DDAT 
40$ 

#SKI.200$ 
50$ 



•lAE" STATUS 
.-GET RECEIVED lAE 

;IS lAE CORRECT?? 
;NC: . 

;SKI SHOULD BE 7ER0 



'.FAfir.M STATUS ChEC< Su8P0UMNE 



•OACHO VOA.OO 



F 2 
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MS 
M6 
117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

'29 

•50 

^31 

'12 

133 

154 

^35 

'36 

'37 

138 

'39 

UO 

UT 

U2 

H5 

'44 

'45 

147 

U8 

149 

150 

'51 

152 

155 

154 

155 

156 

157 

'58 

159 

loO 

161 

162 

163 

T64 

165 

166 

'67 

168 

169 

171 



C56752 
056756 
056764 
056770 
056772 
056776 
057000 



057000 
057006 



057010 
057016 
057024 
057032 
057040 
C57046 
057050 
057054 
057062 
057070 
057072 
057100 
057104 
057106 
057112 
057114 



057114 
057122 
057124 
057132 
057140 
057146 
057152 
C57160 
057166 
057170 
057176 
057202 
057204 
057210 
057212 



057212 
057220 
057222 
057250 
C57236 
057244 



062716 
"'2776 
162716 
004756 
162716 
000240 



032737 
001424 
013737 
C42737 
013737 
062716 



C00004 
000257 
000002 

000010 



.'REPORT INCORRECT JAE STATUS VIA 



000000 



C32/57 


050200 


00 1 5it 


001551 






013757 


001376 


001142 


042757 


137777 


001142 


013737 


C57764 


001 UO 


042737 


137777 


001140 


023737 


001140 


001142 


001422 






062716 


000004 




112776 


000263 


000000 


032737 


04000C 


001140 


001403 






112776 


000267 


000000 


162716 


000002 




004736 






162716 


000010 




000240 







50$: 
.•SEE IF 



ADD 
M0V8 

sue 

JSR 

sue 

NOP 



••SKI' 

BIT 

BEO 



#4.(SP) 
#257, a(SP) 
#2.(SP) 
PC,(i(bP)» 
#10. (SP) 



USER'S ERROR CALL 
MOVE SP TO USER'S ERROR CAi i 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RETURN SP TO NO ERROR 



OR '"^VC" OR "IVC" IS SET 

#s»ci :dvc.ivc,rmer2i 
90$ ;No:: 



;ARE ANV BITS SET' 



.■REPORT 



55$: 



60$: 



ERROR 


IF "SKI" IS SET 


AND "SKI" FLAG IS NOT SET 
.•RECEIVED "SKI" STATUS 


MOV 


RMER2I.$BDDAT 
#*CSKI.$BDDAT 


BIC 




MOV 


200$,$GDDAT 


.•EXPECTED "SKI" STATUS 


81 C 


#*CSKI,$GDDAT 




CMP 


$GDDAT.$8DDAT 


;IS "SKI" OK?? 


BEO 


60$ 


; YES-CHANGE ERROR NUMBER 


ADD 


#4.(SP) 


.-MOVE SP TO USER'S ERROR CAi L 


M0V8 


#263. a (SP) 


; WRITE ERROR NUMBER 
.•SHOULD "SKI" BE SET?? 


BIT 


#SKI.$6DDAT 


BEO 


55$ 


;N0! I 


Move 


#267.a(SP) 


; YES-CHANGE ERROR NUMBER 


sue 


#2.(SP) 


.•MOVE SP TO RETURN IF ERROR 


JSR 


pf .a(SP)+ 


.•REPORT ERROR AND RETURN 


SUB 


#10, (SP) 


.•RESTORE SP TO NO ERROR 


NOP 







REPORT 



■IVC" ERROR AS 

.IVC DUE TO LOSS OF VOLLWE VALID 
.ERRONEOUS IVC WITH VOLUME VALID SET 



032737 


010000 


001 376 


BIT 


#IVC,RMER2i 


IS IVC SET?-' 


001433 






BEO 


80$ 


■NO. ; 


013737 


001376 


001140 


MOV 


RMER2I,$GDDAT 


■EXPECTED STATUS 


042757 


010000 


001140 


BIC 


#IVC.$GDDAT 




013757 


001376 


001142 


MOV 


RMER2I,$BDDAT 


•RECEIVED STATUS 


062716 


000004 




ADD 


#4,(SP) 


•MOVE SP TO USER'S ERROR '^ALL 


112776 


000264 


000000 


Move 


#264, a (SP) 


•WRITE ERROR t^AJMBER IN CALl 


032737 


000100 


001 346 


BIT 


#VV,RMOSI 


•WAS VOLUME VALID'''' 


001403 






BEO 


70$ 


•no: J 


112776 


000265 


000000 


Move 


#265,a(SP) 


•YES - CHANGE ERROR NUMBER 


162716 


000002 


70$: 


sue 


#2,(SP) 


•MOVE SP TO RETURN IF ERROR 


004736 






JSR 


pc.a(SP)* 


REPORT ERROR AND RETURN 


162716 


000010 






#10, (SP) 


; RE STORE SP TO NO ERROR 


000240 






NOP 







000200 001376 



80$: 
.•REPORT 



001376 
000200 
001 376 
000004 



001 1 40 
001140 
00? 142 



ANY DEVICE FAULT, I.E. 

BIT #DVC.RMfR2I 

BEO 90$ 

MOV RMER2I,$G0DAT 

BIC #DVC.$GPDAT 

MOV RMER2I.$8DDAT 

ADD #4.{SP) 



"DVC 
;WAS 
•NO ' 
•EXPECTED 



= 1 
THERE 



A DEVICE FAULT?? 



STATUS 



.•RECEIVED STATUS 
.-MOVE SP TO USER'S 



ERROR fAL^ 



K M iMTi S CHEC^ SueWUTINI 



•UCRO VC4.0C 4-AP0-81 '1:<,3:i'8 



G 

PACf 



2 

52-3 



' 057250 
'73 057256 


112776 


000266 


000000 


162716 


000002 




'74 057262 


004756 






'75 057264 


162716 


0000^0 




'76 057270 
'"'7 C5''27? 


000240 












' ="8 








1 79 








'80 
















182 057272 


032737 


02C000 


001350 


'33 057300 


001435 






184 057302 


0'3737 


001550 


001 140 


165 057310 


042757 


020000 


001140 


'86 057316 


015757 


001 550 


0011«.2 


187 057324 


062716 


000004 




188 C57350 
'89 057336 


112776 


000270 


000000 


052757 


010000 


001 346 


190 057344 


001405 






191 C57546 


11 2776 


0C0271 


000000 


192 057354 


162716 


000002 




193 057360 


004^56 






194 0573t)2 


162716 


000010 




95 057366 


000240 






196 057570 








197 








*98 








199 057370 


015746 


001 546 




200 057374 


042716 


047677 




201 057400 


022726 


1 10100 




202 057404 


001554 






205 








204 








205 057406 


052757 


010000 


001346 


206 057414 


001050 






207 057416 


015757 


001 546 


001 140 


208 057424 


052757 


010000 


001 140 


209 057432 


01 5757 


001546 


001 142 


210 057440 


052757 


020000 


001550 


211 057446 


001015 






2\2 057450 


0627] t 
11 27^6 


000004 




213 C57454 


000272 


00000 J 


2H 05^462 


162^16 


000002 




215 057466 


004756 






216 057470 


162716 


00001 0 




217 0^7U7t, 


000240 






218 0->7W6 








219 








220 

22 > 057476 
2?? 057504 








052737 


020000 


001 346 


001430 






^^5 057506 


C52f5f 


U40000 


001 5^6 


?24 057514 


001024 






225 057516 


015737 


001546 


001140 


?26 057524 


042757 
013^37 


020000 


001140 


227 057552 


001346 


001142 


r.'f 05 7540 


062716 


000004 





•<0V8 

sua 

SUB 
NOP 



t266-a(SP) 
#2.(SP) 

pc-a(SP)* 

•10. (SP) 



«EO0^.' ANr "Of>l" EMROR AS 



105$: 



10$: 



.•lopr 

BIT 

BEO 

'lOV 

BIC 

MOV 

ADD 

M0V8 

BIT 

BEQ 

M0V8 

SLJ3 

^SP 

SUS 

NOP 



BECAUSE "^EDIlfl 
BEiAUSE "ION CVL 

#0PI.RHER1I 

110$ 

PMER1K$GD0AT 

#0PI.$GDDAT 

RMER1I,$8D0AT 

#4,(SP) 

#270.a(SP) 

#MOL.RM0SJ 

105$ 

*271.a(SP) 
*2.(5P) 
PC,a(5P)» 
#10. (SP) 



WRITE ERROR NU»«ER IN r A. . 
MOVE SP TO RFTURN If ERPQR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 



IS NOT ONLINE 
INDER" DIDN'T DROP 
WAS OPI SET-*? 

no: . 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CAa 
SETUP ERROR FOR MOL - 0 
WAS MOL 0?? 

rESi . 

MOL WAS 1 - CHANGE ERROR 
MOVE SP TO RETURN If ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 



.•SEE IF "ATA* 
MOV 
BIC 
CMP 
BEO 



"m" = "VV" - 1 AND 'T>IP" - 0 
RMPSI.-(SP) .-GET DRIVE STATUS 

#*c<ata.pip:mol :vv>.(SP) 

#ATA!MOL:VV,fSP)* ;IS DRIVE STATUS CORREf 

150$ ;rES.': 



.•rtEPORT AN ERROR IF MOL ^ Q AND 

BIT *M0L.RM0SI 

BNE 120$ 

MOV RMDSI.$GDDAT 

BIS #MOL.$GODAT 

MOV RMDSI.$8DDAT 

BIT 4fOPI.RMER1I 

BNE 120$ 

ADD 4r4,(SP) 

M0V8 #272. 8 (SP) 

SUB #2.(SP) 

jSR pc.a(sp)» 

SUB #10.fSP) 
NOP 

■'20$: 

.•REPORT AN ERROR IF PIP IS STIL 

BIT #PIP. RMDSI 

BEO 130$ 

BIT #SKI.RM£R2I 

BNE 150$ 

MOV RMDSI,$GODAT 

BIC #PIP.$GDDAT 

MOV RMDSI.$BDPAT 

ADD #4.(SP) 



opi error was not reported. i.e 
was medilw off line?? 
no; : 

expected status 

received status 

was opi reported before?? 

yes - don't report mol 0 

MOVE SP TO USER'S ERROR CAl. 
WRITE ERROR Nl/BER IN CALL 
MOVE SP TO RETUfVJ IF ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 



SET AND SKI IS RESET 
;IS POSITIONING IN PROGRESS 
;N0: 



.-WAS "SKI' 
;rES-DONT 
.EXPECTED 

.•RECEIVED 
.•MOVE S«» 



• DETECTED?? 
REPORT PIP 
STATUS 



STATUS 
TO USER'S 



ERfiCR 



MA ti. 



4,Apt*-8l 1':4 5:4'8 PAGE 



2 



057544 
250 057552 
25' 057556 
252 057560 


1127^6 


00U2"5 


cooooc 




M0V8 


#275,a(SP) 


162716 


000002 






sue 


#2.(SP) 


004736 








jSR 


pc,a(SP)» 

#10. (SP) 


162716 


000010 






sue 


255 057564 


000240 








MOP 




254 057S66 








130$: 






255 














256 








.•REPORT 


AN ERROR IF VOLUME IS 


257 057S66 


032737 


000100 


0013'.6 


BIT 


#VV,RMDSI 


238 057574 


001030 








BNE 


140$ 


239 057576 


032737 


010000 


001376 




BIT 


#IVC.RMER2I 


2-0 057604 


001024 
013737 








BNE 


140$ 


241 057606 


00 "1 546 


001140 




MOV 


RMDSI,$GDDAT 


242 05 7614 


052737 


000100 


001140 




BIS 


*VV.$GDDAT 


245 057622 


013737 


001346 


001142 




MOV 


RMDSI.$BDDAI 


244 057630 


062716 


000004 






ADD 


*4,(SP) 
*350.a(SP) 


245 057654 


112776 


000350 


000000 




M0V8 


246 057642 


162716 
004756 


00000? 






sue 


»2. (SP) 


247 057646 








JSR 


pc.a(SP)* 


248 C57650 


162716 


000010 






sue 


*10.(SP) 


249 057654 


000240 








NOP 




250 057656 








140$: 






251 














252 








.•REPORT 


AN ERROR IF ATTENTION 


253 057656 


032737 


100000 


001346 


BIT 


#ATA.RMDSI 


254 057664 


001024 








BNE 


150$ 


255 057666 


013737 


001 346 


001140 




MOV 


RMDSI,$GDDAT 


256 057674 


052737 


100000 


001140 




BIS 


*ATA,$GDDAT 


257 057702 


013737 


001 346 


001142 




MOV 


RMDSI,$8DDAT 


258 057710 


062716 


000004 






ADD 


#4,(SP) 


259 057714 


112776 


000351 


000000 




M0V8 


#351.a(SP) 


260 057722 


162716 


000002 






sue 


#2.(SP) 


261 057726 


004736 








JSR 


PC.a(SP)* 


262 057750 


162716 


000010 






sue 


*10.(SP) 


265 057734 
264 057756 


000240 








NOP 










150$: 






265 














266 








.-ARGUMENT THE 


RETURN ADDRESS 


267 057736 


062716 


000004 






ADD 


*4.(SP> 


268 057742 


105776 


000000 






TSTe 


a(SP) 


269 057746 


001403 








BEQ 


160$ 


270 C57750 


062716 


000004 






ADD 


*4,(SP) 


271 057754 


000402 








BR 


170$ 


272 057756 


162716 


000004 




160$: 


sue 


*4.(SP) 


275 057762 


000207 






V0$: 


RTS 


PC 


274 














275 C=i7/V,. 


000000 






?00$: 


.WORD 





WRITE ERROR NUMBJR IN i A_ 
MOVE SP TO RETURN If £R(,OR 
REPURT ERROR AND RETURN 
RESTORE SP TO NO ERROR 



NOT VAlID and IVC - 0 
IS VOLlflE VALly?? 

YES! ! 

WAS IVC DETECTED?? 
YES - DON'T REPORT VV = 0 
EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RtTURN 
RESTORE SP TO NO ERROR 



IS NOT SET 

IS ATA ON?? 
YESl ; 

;EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CAi l 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 



.-MOVE SP TO USER'S ERROR CALi 
.-WAS ERROR FOUND?? 
;N0. . 

;YES - CHANGE RETURN 

;N0 ERROR FOUND 
.•RETURN TO USER 

.•STORAGE FOR ^lAGS 



I 2 

' < c Kin*. ' '»<A.'< .Gh.^<^ 4-APfii-8^ '':<.^.V8 PAGE 5^ 

.sbttl static drive status check SJWOUMNE 



18 
19 
?0 
21 

11 

?A 
2S 
?6 

27 057766 

28 

29 

50 057766 

31 057772 

32 057776 
33 

3A C60002 

35 060006 

36 060012 

37 060016 
38 

39 

AO 060020 
0^0026 
C.0030 

45 060036 
0600A0 

A 5 060046 

46 060054 

47 060062 

48 060066 

49 060074 

50 060100 

51 060102 

52 060106 

53 060110 
5A 

55 

56 060110 

57 060116 



41 
42 



062716 
105076 
162716 

013746 
042716 
022726 
001 524 



052757 
001030 
032737 
001024 
013737 
052737 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



032737 
001C30 



THIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRNE 
STATUS. SUCH AS THE DRIVE LOSING VOLUME VALID. ThE SUBROuHV 
CAN BE USED BY HOUSEKEEPING AND OTHER COWANOS DURING WNKh 'M{t*t 
SHOULD NOT BE ANY DRWE ERRORS OR CHANGES IN STATE. 



THE FOLLOWING 
IF TRJE: 



CONDITIONS ARE TESTED AND REPORTED AS ERRORS 



.WOL = 0. INDICATES DRIVE WEN^ OFFLINE. NOTE 
THAT MOL IS ASSUMED TO HAVE BEEN SET 

.VV - 0. INDICATES THE DRIVE LOST VOLUME VALID 
.PIP = 1. INDICATES THAT THE DRIVE IS OFF CYLINDER 
.SKI = 1. INDICATES THE DRIVE HAS AN UNEXPEfTED SKI ERROR 
.DVC 1. INDICATES AN UNEXPECTED DEVICE fAi^T 

THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THf GET BUfFFM. 



JSR 

BR 

NOP 

ERROR 

JSR 
•>'>•> 



PC.STCDRVSTS 



PC.S(SP)* 



RETURN HERE IF NO ERROR 

RETiJRN HERE TO REPORT AN ERROR 

ERROR NlMBER DEFINED Br SUB 

GO BACK TO sue FOR MORE ERROR CHfCK<^ 

RETURN HERE IF NO MORE ERRORS 



C00004 
000000 
000004 

001 346 
147677 
010100 



010000 

020000 

001 346 
010000 
001346 
000004 
000207 
000002 

000010 



STCDRVSTS: 
.•CLEAR USER'S ERROR CALL 



ADD *4.(SP) ;»10VE SP 

CLRB a(^P) 

SUB *4.(SP) 
SEE IF "MOL" = 'VV* - 1 , AND 

MOV RMDSI,-(SP) 

Bic #*c<pip:mol . vv>.(SP) 

CMP #MOL ;VV.(SP)* .-ARE MOL.VV AND PIP U.K. 

BECJ 30$ ;YES: ; 



TO USER'S ERROR CALL 
CLEAR ERROR NJ^ER 
.•MOVE SP BACK TO NO ERROR RET.jRN 
"PIP" 0 

;PUT DRIVE STATUS ON STACK 



001346 

001350 

001140 
001140 
001142 

000000 



.-REPORT AN ERROR IF MOL = 0 AND 

BIT #«OL,RMDSI 

BNE 10$ 

BIT *0P1,RMER1I 

BNE 10$ 

MOV RMDSI.$GDDA^ 

BIS #«OL.$GDDAT 

MOV RMDSI.$8DDAT 

ADD *4.(SP) 

MCV8 #207. a (SP) 

sue *2.CSP) 

JSR Pc.a(SP)> 

sue #10. (SP) 

NOP 

10$: 



"OPl" = 0 
;IS MOL ON ?? 
•YES' ' 

•WAS "'DPI" SET?? 
;YES-DONT REPORT 'MOL" C 
.•EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR fAL. 

WRITE ERROR NUMBER IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP BACK TO NO ERROR RETURN 



000100 001346 



.REPORT AN ERROR IF VOLUME VALID IS 
BIT fVV.RMDSI ;JS 
BNE 20$ ;N0. 



NOW ZERO AND 

"VV" = 0?'' 



maC j<Mcs/<''' *:tnc 'ST ' macro 

DRWE STA»JS fHECf SUBROC'iNE 



V04.00 4-APR-81 



J 

PAGE 



2 

53-1 





"60120 


032737 


OTOOOO 


001 376 


59 


060126 


001024 






60 


060130 


013737 


001 346 


OC 1 40 


61 


060136 


052737 


000100 


001346 




060U4 


013737 


001346 


001142 


65 


06015? 


062716 


000004 




64 


060156 


1 12''76 


000210 


Art rtrtrtrt 

000000 




060164 


162716 


000002 






060170 


004736 






67 


060172 


162716 


000010 




68 


060176 


000240 






o9 


060200 








70 
71 










72 


060200 


032737 


/\ *^/\ A/\y\ 

020000 


001346 


73 


060206 


001430 






7i, 


060210 


032737 


C^OOOO 


001 376 


75 


060216 


001024 






76 


060220 


01 3757 


001 346 


001140 


77 


060226 


042757 


Oi^OOOO 


AA 1 1 y A 


78 


060234 


01 3757 


001 546 


AA 11/*^ 

001 K2 


79 


060242 


062716 


Art A A/\ / 

000004 




80 


060246 


112776 


/\ A A 111 

00021 1 


AAAAA A 

000000 


81 


060254 


162716 


A A A A A 1 

000002 




S? 


060260 


004756 






83 


060262 


162716 


rtrtrtrt 1 rt 

000010 




84 


060266 


000240 






85 


060^70 








86 










87 










88 


060270 


01 5746 


rtrt ^ T 7^ 

001 576 




89 


06027^ 


U42726 


1 57577 




90 


/\A 'Nrt 

060300 


001460 






91 


060302 








92 










93 










94 


060302 


052757 


rt Art AA 

000200 


A A 4 "7 "yd. 

001 576 


95 


060310 


001424 






96 


060312 


01 3757 


Art 1 y *>Z 

001576 


001 140 


97 


060520 


r\ y 7T "» 

042757 


A Art T A A 

000200 


AA 1 1 y A 

00 1 140 


98 


060326 


01 3757 


A A 1 T 7^ 

001 576 


AA4 4 y T 

001142 


99 


060334 


062716 


AAAAA / 

00000<* 




lOO 


060340 


1 \ 277b 


AAA^ 1 ^ 

000212 


AAAAAA 

000000 


10' 


060346 


1627'6 


AAAAA "i 

000002 




10? 


060552 


004736 






T03 


060554 


162716 


A AAA 4 A 

000010 




104 


U60560 


000240 






'05 


060562 








106 










107 










108 


060562 


052757 


A / A A A A 

040000 


A A 1 T ~?l 

001 576 


7UV 










no 


060372 


015737 


001576 


001140 


"'1 


060400 


042737 


040000 


001 KG 


M? 


)60406 


015737 


001 376 


001142 


'M 


060414 


062^16 


000004 






060420 


112776 


000213 


000000 



BI T 


*I VC,RMER2I 


;WAS IVC SET?? 




BNE 


A# 

20$ 


;VES-DONT REPORT VV 


{' 


MOV 


RMDSJ .sgddat 


."EXPECTED STATUS 




BIS 


rtUf\^ T 

#VV,RMDSJ 






MOV 


RMDSI .IBDDAT 


.•RECEIVED STATUS 
SP TO USER'S ERROR CALL 




ADD 


*4,(5P) ;MQVc 




M0V8 


*210.5)(SP) 


.•WRITE ERROR NUMBER IN 


CALL 


SUB 


*2.{SP) 


.•MOVE SP TO RETURN FOR 


ERROR 


JSR 


PC.a(SP)* 


.•REPORT ERROR VIA USER 




^ 8 


#10. (SP) 


:M0VE SP BACK TO NO ERROR 











20s : 

.•REPORT AN ERROR IF DRIVE IS OFF 



BIT 


*PIP. RMDSI 


BEQ 


30$ 


BIT 


#SKI.RMER2I 


BNE 


30$ 


MOV 


RMDSI.$GDDAT 


BIG 


#PIP. $6DDAT 


MOV 


RMDSI .$BDDAT 


ADD 


#4.(SP) 


M0V8 


#211.a(SP) 


sue 


#2.(SP) 


jSR 


pr,a(SP)* 


SUB 


#10. (SP) 


NOP 




"SKT" 


= "DVC" = 0 


MOV 


RMER2I.-{SP) 


BIC 


#*c<SKi :dvc> 


SEQ 


6CS 



30$: 
'.SEE IF 



40$ • 

;f<EPC.'^T AN ERROR IF THERE IS A 

BIT #DVC.R«ER2I 

BEO 50$ 

MOV R«ER2I,$GDDAT 

BIC #DVC.$GDDAT 

MOV RMER21,$BDDAT 

ADD #4.(SP) 

M0V8 #212.a(SP) 

SUB #2,(SP) 

JSR PC.a(SP)* 

SU8 #10. (SP) 
NOP 

50$: 

.•REPORT AN ERROR IF "SiCl" = 1 

BIT #SKJ,RMER2I 

BEQ 60$ 

MOV RMER2I.$GDDAT 

BIf #SKI,$GDDAT 

MOV RMER2I.$BDDAT 

ADD #4.($P) 

MOvB #215.a(SP^ 



CYLINDER AND "SKI'" = 0 
IS DRIVE OFF CYLINDER''? 
NO! ! 

WAS "SKI" SET'? 

VES-DONT REPORT 'T>1P" - 1 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CAU 

WRITE ERROR NLMBER IN USER'S IAlL 

MOVE SP 10 RETURN FOR ERROR 

REPORT EF-'^Ofi VIA USER 

MOVE SP TO NO ERROR RETURN 



.PUT ERROR REG ti ON STACK 
>)♦ 

.-BRANCH IF NO ERROR 



DEVICE FAULT 

ANY DEVICE FAULT'? 

no: .' 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S CALL 
WRITE NUreER OF ERROR IN CALL 
MOVE SP TC RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 



;IS THERE A SEEK INCOMPLETE ERROR 

;N0! ! 

.•EXPECTED STATUS 

.-RECEIVED STATUS 

;MOVE SP TO USER'S ERROR CALL 

.•WRITE ERROR NLMBER IN USER'S EhROP 



rrbC km^/^/^ KIM 1ST ' MACKO 
DRIV! STATu'^ CHECK SUBWOlMNE 



v(K.OO C-AP«»-81 n:45:4>8 



K 

PAGE 



2 

35-? 



■ 1 ^ rvjv.i>/\ 




vvvvvc 


' 0 vOU*» JC 


UW*t» 30 






1 Ol ' 1 o 


nnofiin 

V Wv 1 V 


-18 060440 












CV 
















000004 


060452 




000000 


001405 




1^5 060454 


062716 


000004 


126 060460 


000402 




127 060462 


162716 


000004 


1^8 060466 


000240 




1?9 060470 


000207 





60$: 



JSR 
SJ3 
NOP 



#2.(SP) 
PC,a(3P)» 
#10. (SP) 



.•WOVE SP TO RETURN fOR ERROR 
.-REPORT ERROR VIA USER 
.•MOVE SP BACK TO NO ERROR 



.•AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 



70$: 
80$: 



ADD 
TST8 
BEO 
ADD 
BR 

sue 

NOP 
RTS 



#4. (SP> 
S(SP) 
70i 

#4, (5P) 
80$ 

#4.{SP) 
PC 



;M0V£ SP TO USER'S ERROfi CAL. 
;WAS AN ERROR DETECTED'? 
;N0.'.' 

;VES - MOVE SP TO USER'S ERROR RETURN 
;N0 - MOVE SP TO NO ERROR RETURN 
.-RETURN TO USER 



^CRO m.OO 4-APR-81 PAGE 34 



SCO 02li 



.S8TTL SAVF AND RESTORE RO-RS ROUTINES 



060^,72 

060472 010046 

C6CK74 010U6 

060476 010246 

060500 010346 

060502 010446 

060504 010546 

060506 016646 00C022 

060512 016646 000022 

060516 016646 000022 

060522 016646 000022 

060526 000002 



060530 

060530 012666 000022 

060534 012666 000022 

060540 012666 000022 

060544 012666 000022 

060550 012605 

060552 012604 

060554 012603 

C60556 012602 

060560 012601 

060562 012600 

060564 000002 



•SAVE 
•CALL 

•UPON 

»TOP- 
. 

. +4- 
. ♦6- 

• ♦S- 

• *10- 
.♦12- 

• tU- 



R0-R5 

SAVREG 

RETURN frtOM SSAVREG 'HE STACK WJLL LOOK LJKF: 

-(♦16) 

-(♦18) 

-R5 

-R4 

-R3 

-R2 

-R1 

-RO 



SSAVREG: 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTi 

•RESTORE R0-R5 
•CALL: 



IRESRE6: 



R0.-(5P) 

R1,-(SP) 

R2.-(SP) 

R3,-(SP) 

R4,-(SP) 

R5.-(SP) 

22(SP). -(SP; 

22vSP). -(SP) 

22(SP).-(SP) 

22(SP).'(SP) 



RESREG 




MOV 


{SP)*.22(SP) 


MOV 


(SP)*.22(SP) 


MOV 


(SP)*.22(SP) 


MOV 


(SP)*,22(SP) 


MOV 


(SP)*.R5 


MOV 


(SP)*.R4 


MOV 


(SP)*,R3 


MOV 


(SP)*,R2 


MOV 


(SP)*,R1 


MOV 


(SP)*.RO 


RTJ 



PUSH RO 
PUSH R1 
PUSH R2 
PUSH R3 
PUSH R4 
PUSH R5 
SAVE PS 
SAVE PC 
SAVE PS 
SAVE PC 



ON STACK 
ON STACK 
ON STACK 
ON STACK 
ON STACK 
ON STACK 
OF MAIN FLOW 
OF MAIN FLOW 
OF CALL 
OF CALL 



RESTORE PC OF CALL 
RESTORE PS OF CALL 
RESTORE PC OF MAJN FlOW 
RESTORE PS OF MAJN FLOW 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
OOP STACK INTO R2 
POP STACK INTO R1 
°0P STACK INTO RO 



^M'S,<.V »"M TST 1 MACRO vvA.OO ^i-AP««-81 ".-.'.VS PAGE 55 
Misi., ' 4, :! AND T*PE »»OUTINf 

.S8TTI BIMARV TO ASCII AND TYPE ROUTINE 



0605t>6 

060570 

060574 

060576 

06060A 

060606 

060610 

0606U 

0606P0 

0606P2 

G6062A 

060626 

0606 

0606% 

060640 



•THIS ROUTINE 
•BINAfty-ASCII 
•CALL: 

MOV 
TYPSN 



IS USED TO 
NUMBER AND 



CHANGE A 
TYPE JT. 



16-8jT binary number TO A 't-*i: 



NUMBER. -(SP) 



iv10U6 






tTVPBN: 


MOV 


RI.-(SF) 


016601 


000006 






MOV 


6(SP) .R1 


0OOP61 








SEC 


*'0.$8JN 


1 V7^7 


000060 


060640 


1$: 


M0V8 


006101 








ROL 


R1 


00U06 








BEQ 


2% 


105557 


0'-0640 






ADC8 


SBIN 


104401 


Ct)0640 






TYPE 


,S81N 


000241 








CLC 


1$ 


000765 








BR 


012601 






2S; 


MOV 


(SP)*,R1 


016666 


000002 


000004 




MOV 


2(SP).4(SP) 


012616 








MOV 


(SP)*.(SP) 


000002 








RTI 


0.0 


000 


000 




$BIN: 


.BYTE 



NUMBER TO 
TYPE IT 



BE TYPED 



OF r^E 



SAVE R1 ON THE STACK 
GET THE INPUT NUMBER 
SET "C" SO CAN KEEP ThALK 
SET CHARACTER TO AN ASCII 
GET THIS BIT 
DONE? 

NO— SET THE CHARACTER EOOAL 
GO TYPE THIS BIT 

CLEAR "C" SO CAN KEEP ^RACK 0» BITS 
GO DO THE NEXT BIT 
POP THE STACK INTO R1 
ADJUST THE STACK 



NUMBER Of BITS 



TO THiS BIT 



RETURN TO USER 
STORAGE fOR ASCII 



CHAR, AND 'FRMINATO«< 



^7m%0 FCTNL TST 1 

rONVERT BIIMRV TO DCCI^L AM) 



MACRO VOA.OO 
TYPE ROUTINE 



4-APR-81 n:43:i'8 



N 

PAGE 



36 



,S8TTL CONVERT BIVARY TO DEC]f»WL AND TYPE ROUTlNf 



06064? 
0606A2 
06064A 
060646 
060650 
0606S2 
060654 
C60660 
060664 
060666 
060670 
0606 ?'6 
060700 
060704 
060710 
060712 
060716 
0607P0 
0607?? 
0607?4 
0607?6 
060730 
06073? 
060734 
060736 
060740 
06074? 
060744 
06075? 
C60756 
06076? 
060764 
060766 
06077? 
060774 
060776 
061000 
06100? 
061004 
061006 
0610U 
O6IO16 
06V;?0 

0^>T0?4 



010046 
010146 
010?46 
010346 
010546 
01?746 
016605 
100004 
005405 
11?766 
005000 
01?703 
I1?7?3 
00500? 
016001 
160105 
00?40? 
005?O2 
000774 
060105 
00570? 
00100? 
105716 
100407 
106316 
103003 
116663 
05?70? 
05?70? 

no??3 

005 7?0 
0?00?7 
00?746 
00300? 
01050? 
000764 
1057?6 
100003 
116663 
105013 
01?605 
01?6')3 
01?60? 
0t?601 



0?0?00 
OCOO?0 



000055 000001 



061056 
000040 

061046 



•THIS ROUTINE IS USED TO CHANGE A 16-81 T BINARY NUMBER TO A 5-DIGIT 
•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
•NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
•BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING 7FR0S WILL ALWAYS 8f 
•REPLACED WITH SPACES. 



•CALL: 



MOV NUM.-(SP) ;;PUT THE BINARY NUMBER ON ThF STACK 

TYPDS ;;G0 TO THE ROUTINE 



tTVPDS: 



000001 177777 

000060 

000040 



000010 



1$: 



2%: 
5$: 



At: 



51: 



6S: 
71: 



} 77777 \7777b 



8S: 



HUV 


on •fcp) 


.•PUSH RO ON STACK 




HUV 


D1 - f CD ) 


;PUSH RI ON STACK 




Mnu 




;PUSH R? ON STACK 




Mnu 

HUV 




;PUSH R3 ON STACK 




Mnu 

HUV 




.•PUSH R5 ON STACK 




Mnu 
nuv 




.-SET BLANK SWITCH AND SIGN 




Mnu 

HUV 




;GET THE INPUT NUMBER 






It ; 


;8R IF INPUT IS POS. 






R5 


.•MAKE THE BINARY NUMBER POS. 




Mnun 

HUVO 


#'-J(SP) 


;MAKE THE ASCII NUMBER NEG. 






RO • 


;ZERO THE CONSTANTS INDEX 




Mnu 

nuv 


U' (R^) * • 


.•SETUP THE OUTPUT POINiER 




MnuR 

riuvo 


;SET THE FIRST CHARACTER TO A BLAN^ 




R? 


; CLEAR THE BCD NUMBER 




Mnu 


tDTRI (pn) Ri 


;GET THF CONSTANT 






RI RS 


;FORM THIS BCD DIGIT 




ni T 




;BR IF DONE 




I Air 


RP 


.•INCREASE THE BCD DIGIT BY 1 




RR 

on 








Ann 


R1 R*) 


;ADD BACK THE CONSTANT 




1 D 1 


R? 


.•CHECK IF BCD DIGIT-O 




OnIC 




;FALL THROUGH IF 0 






f ^P) 


.•STILL DOING LEADING O'S? 






7t 


;8R IF YES 




ASL8 


( SP> ; 


;MSD? 




BCC 


6$ 


;8R IF NO 




M0V8 


1(SP>.-1(R5) 
#'0,R? 

.R? 
R?,(R3)* 


; YES— SET THE SIGN 




BJS 


.•MAKE THE BCD DIGIT ASCII 




BIS 


.•MAKE IT A SPACE IF NOT ALREADY A 


DIGIT 


M0V8 


;PUT THIS CHARACTER IN THE OUTPUT 


BUFFER 


TSr 


(RO) ♦ 


;JUST INCREMENTING 




CMP 


R0.*10 


; CHECK THE TABLE INDEX 




BLT 


?$ 


;G0 DO THE NEXT DIGIT 




BGT 


8t 


;G0 TO EXIT 




MOV 


RS.R? 


;GET THE LSD 




BR 


6$ 


;G0 CHANGE TO ASCII 




TST8 


(SP)* 


;WAS THE LSD THE FIRST NON-ZERO'' 




BPL 


9$ 


;8R IF NO 




M0V8 


-1(SP).-?(P3) 


;YES~SET THE SIGN FOR TYPING 




CI R8 


(R5) 


.-SET THE TERMINATOR 




MOV 


(SP)*,R5 


.•POP STACK INTO R5 




MOV 


(SP)*.R^ 


.•POP STACK INTO H3 




MOV 


(SP)*.R? 


;POP STACK INTO «? 




MOV 


(SP)*.R1 


;PPP STACK INTO RI 





B 3 

.%r^ wM. » 'TV. TCT ' "UC^O V04.00 4-APR-B1 '^:43:^8PAGE 56-1 ceo ajk. 

DECIIAl AND TvPt «0^t:N€ 5^'' 0^'^ 

-fc'C26 012600 "^V (SP)».RO ;;POP S^CK INTO »0 ^ 

561030 104401 C610SO 'VPE ,$DeLH ;;NOW TrPETHf NUMBER 

:!^034 016666 OOOOC? 000004 WV J(SP).4(SP) ; .-ADJUST TH€ SMCK 

G*il04? 01?616 WOV (SP) 

06-044 000002 «n .-.-RETURN TO USER 

061046 025420 tD'BL : 10000. 

061050 001750 ]000. 

061052 000144 100. 

061054 000012 ^ ^ '0. 



czmmo moi/lf^ fcm, ist ^ jmcro wO^.oo 4-ap«-8i ii:43:<?8 page r 

BIMRr TO oCTAl (ASCII) AND Tvi>E 

.S8TTL BiNARr TO OCTAL (AStlD AND TYPE 

i-ilHJS ROUTINE IS USED TO CHANGE A 16-81T BINARY NUMBER TO A 6-DIGIT 
.••OCTAL (ASCII) NUMBER AND TYPE IT. 

.••STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS to Typf 

.••CALL: 

MOV NL«.-(SP) ;;Nlf«ER TO BE TYPED 

;• TYPOS ;;CALL FOR TYPEOUT 

;• .BYTE N ;;N=1 TO 6 FOR WJMBER Of DIGHS TO WPf 

;• .BYTE M ;;M=1 OR 0 

;;1=TyPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 

••STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE lAi>T 

.••tTYPOS OR STYPOC 
.••CALL: 

MOV NIW.-(SP) ; .-NUMBER TO BE TYPED 

*YPON ;;CALL FOR TYPEOUT 

• • 

)»$TYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

.••CALL: 













MOV 


NLM -(SP) 


• 'NUMBER TO BE TYPED 










■ • 


TYPOC 




;;fALL FOR TYPEOUT 


061066 


01 7646 


000000 




S TYPOS: 


MOV 


S(SP) ,-(SP) 


• •PICKUP THE MODE 


061072 


' 16637 


000001 


06' 3'' 1 




M0V8 


1 (SP) .SOFILL 


••LOAD ZERO FILL SWITCH 


061 100 


1 12637 


061313 






MOVB 


(SP)*.$0M0DE*1 


••NUMBER OF DIGITS TO TYPE 


061 104 


062716 


000002 

w w 






ADD 


»2. (SP) 


■ •ADJUST RETURN ADDRESS 


061110 


000406 








BR 


STYPON 




061112 


112737 


000001 


061311 


STYPOC: 


M0V8 


*1, SOFILL 


;;SET THE ZERO FJll SWITCH 


061120 


112737 


000006 


061313 




M0V8 


#6.$0M0DE*1 


;;SET FOR SIX(6) DIGITS 


061 126 


112737 


000005 


061310 


STYPON: 


M0V8 


#5,$0CNT 


;;SET THE ITERATION COUNT 


061134 


010346 








MOV 


R3.-(SP) 


;;SAVE R3 


061 1 ?6 


010446 








MOV 


R4.-(SP) 


;;SAVE R4 


061 UO 


010546 








MOV 


R5.-(SP) 


;;SAVE R5 


061 U2 


113704 


061313 






M0V8 


S0MODE*1,R4 


;;GET THE NUMBER OF DIGITS TO TYPE 


061 146 


005404 








NEG 


R4 




061150 


062704 


000006 






ADD 


#6.R4 


;; SUBTRACT IT FOR MAX. ALLOWED 


061154 


110437 


061312 






MOVB 


R4.$0M0DE 


.-.•SAVE IT FOR USE 


061160 


113704 


061 3r 






M0V8 


S0FILL.R4 


;;GET THE ZERO FILL SWITCH 


C61164 


016605 


000012 






MOV 


12(SP),R5 


;; PICKUP THE INPUT NUMBER 


061170 


005003 








CLR 


R3 


;; CLEAR THE OUTPUT WORD 


061172 


006105 






^$: 


ROL 


R5 


; .-ROTATE MSB INTO "C" 


0611^4 


000404 








BR 


3$ 


.•;G0 DO MSB 


061176 


006105 






21: 


ROL 


R5 


;;FORM THIS DIGIT 


061200 


006105 








ROL 


R5 




061202 


006105 








ROL 


R5 




061204 


010503 








MOV 


R5.R3 




061206 


006103 






3$: 


ROL 


R3 


;;GET lSB OF THIS DIGIT 


061210 


105337 


O61312 






DEC8 


SOMODE 


;;TYPE 'HIS DIGIT? 


06T214 


100016 








BPL 


7$ 


;;8R IF NO 


061216 


042703 


^ 7 7770 






BIC 


#177770,R3 


.-.-GET RID OF JUNK 


0tT222 


001002 








BNE 


4S 


;;TEST FOR 0 


061224 


005704 








TST 


R4 


.•.•SUPPRESS THIS 0? 


061226 


001403 








BtQ 


5$ 


• •BR IF YES 


061230 


005204 






4$: 


INC 


R4 


••DON'T SUPPRESS ANYMORE O'S 



-AA-* 'C OCTAL ASCII) AND T,PC 



061252 


052705 


000060 




BIS 


0612% 


05270^ 


000040 




Off 

BIS 




110357 


061 506 






061246 


104401 


Ofei 506 




TVrt 


061252 


105537 


061 510 




Dt CB 


061256 


003547 






0/~ T 

BG 1 


061^'6O 


002402 






oL ' 


C>61262 


0O5204 






INC 


061264 


000744 






OH 


061266 


012605 




^ • . 


nOv 


06 v70 


D 12604 








Ool ^72 


012605 








D6l27<i 


016666 


000002 000004 






Of/ 502 


012616 






"lOV 


JO ' 3U*» 








QT f 


061^06 


000 




8$: 


.8YTE 


061 ^07 


000 






.8VTE 


061^10 


000 




SGCN1 : 


.BYTE 


061311 


000 




SOMuL : 


.BYTE 


C6M^2 


000000 




SOMODF: 


.WORD 



I 



i 



D 



3 

X7. 



#"0.R5 
#' ,R3 
R3^8J 

ioCNT 

2$ 

6S 

t<4 

2S 

(S'-)*.R5 

(SP)*,R4 

(SO)».R5 

2(SP),4(5P) 

(SP)»,(SP) 

0 
0 
0 
0 
0 



MAKE THIS DIGIT ASCII 

MAKE ASCII If NOT ALRfApy 

SAVE ^Ofi TYPING 

GO TYPE THIS DIGIT 

COUNT BY 1 

8« If MORE TO DO 

8R If DONE 

INSURE LAST DIGIT ISN'T A B.AN» 
GO 00 THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R3 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 
OCTAL DIGIT COUNTER 
ZERO FILL SWITCH 
NIMBER OF DIGITS TO TYPE 
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• • • V SfO o?» 

.S8TTL »VPE ««OUT]Nf 

[•'•ROUTINE TO TYPE ASCIZ f^EiSAGE. MESSAGE f>^jST TERMJMTE WITH A 0 BrTE. 
.••THE ROUTINE yiLL INSERT A NUMBER Of NULL CHARACTERS AFTER A LINE FEED. 
.••N0TE1; S^AJLl CONTAINS THE CHARACTER '0 BE USED AS ThE FILLER CHARACTER. 

;»N0TE2: IF ILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REOUJI^D. 

.••N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

■ • 

••CALL: 

.••1) USING A TRAP INSTRUCTION 

;• TYPE ./iESADR ;;MESADR IS FIRST ADDRESS OF AN ASCI/ STRING 

.••OR 

;• TYPE 
:• MESADR 
• • 



vD 3 1 H 


in'»7^7 

If 


001 1 7^ 




9 ' ' ' C • 






■I^ THFRF a TFRMINAl 


(VI ^PO 
1 JC c 










RPI 


1 1 


•8R IF YES 


000000 








HAI T 




'•HAI T HfRF IF MD TFRMINAl 




ooo^3n 








o~ 






'V.I 








It • 


MOV.' 




.CAv/F RO 




01 7f»00 


OOOOfl? 








■C « J' / #~W 4 


•GFT ADDRFSS OF A^ri7 ^TRlMf. 


iVI ^"Ui 


1??7^7 


000001 


001 P4? 




V.F r 'J 




■RlMUlNG IN APT MODF 














62$ 


'NO fiO CHFCK FOR APT fON^Ol F 


tVI 




000100 

wW 1 wv 


001 ?4 3 




BI TR 


JTAPT^POOl SFNVM 


•SPOOl MF^<>Af;F TO APT 


fVI 


WW ( Hw J 








at V 


oc * 


•■MO (^0 CHfCIC FOR rONSOl F 


VC 1 J 


0100^7 

W ( WW J f 


wO 1 JO"» 






MOW 


RO 61 1 


••SFTllP Itff^SAGF ADDRFS^ FOR APT 




004737 


W\JVJWVJ\« 






jSR 


PC.SATY3 


• • <iPQOl MFS^AGF TO APT 




000000 






61t- 




Q 


• -MF^SAGF ADDRF^^ 




1 3P737 


000040 

vwwV/"* V 


001 P43 

wW ■ C 


UC 9 ■ 




#APTr^UP SFNWM 


•■APT rONSOl F ^(PPRF^SFD 




001003 

WW I \J\J J 










60S 

WW 9 


■;VfS.SKIP TYPE OUT 




1 1P046 






C * • 




\ *\V ' 0 " ' 


■'f>USH THARAfTFR TO BF TyPFD ONTO ^TAflC 
• 'RR IF IT I^N'T THF TFRMINATQR 




noioos 

WW t KnJJ 










4S 


06K02 


005726 








TST 


(SP)» 


•;JF TERMINATOR POP IT OFF THE STAC* 


06U0A 


012600 






60S: 


MOV 


(SP>*.RC 


•.•RESTORE RO 


C6U06 


062716 


000002 




3S: 


ADD 


#2.(SP) 


•.ADJUST RETURN PC 


06UT? 


000002 








RTI 




; .-RETURN 


06U14 


122716 


oooon 




4$: 


CMP8 


#Hr. isp) 


; .-BRANCH IF <HT> 


06K20 


00U30 








BEO 


8S 




06U22 


122716 


000200 






CMP8 


#CRcF.vSP) 


.-.•BRANCH IF NOT <CRLF> 


C6K26 


001006 








BN£ 


5t 




06U30 


005726 








TST 


(SP)» 


•.POP <CR><LF> EOUIV 


06U32 


104401 








TyPE 




;;TyPE A CR AND LF 


06U3A 


001217 








SCRLF 






06U36 


105037 


061644 






ClR8 


SCHAfiCNT 


;; CLEAR CHARACTER COUNT 


0OU42 


000755 








6R 


2S 


;;GET NEXT CHARACTER 


06K4A 


004737 


061 526 




5$: 


JSR 


PC. STYPEC 


;;G0 TYPE THIS CHARACTER 


061A50 


123726 


001172 




6S^ 


CMP8 


SFILI r.<SP)» 


;;IS IT TIME FOR FILLER CHARS.? 


06U5A 


001350 








6NE 


2S 


;.IF NO GO GET NEXT CHAR. 


06TA56 


01 3746 


001170 






MOV 


$NULL,-(SP) 


;;GET # OF FILLER CHARS. NEEDED 














•;AND THE NULL CHAR. 


061A62 


105366 


000001 




7$: 


DECS 


1 CSP) 


•;DOES A NULL NEED TO BE TYPED? 


061466 


002770 








BLT 


6$ 


•;8R IF NO— GO POP THE NULL OFF OF STACr 


06U70 


004737 


061526 






JSR 


PC. STYPEC 


;;G0 TYPE A NULL 


06U74 


T05337 


061644 






DECS 


SCHARfNT 


,-;D0 NOT fOUNT A3 A ':0UNT 


06^500 


000770 








BR 


7% 


;;LOOP 



•VPf ROUTINE 
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.•HORIZONTAL TA8 PROCESSOR 





11571*. 






o> • 








rwv. 7?7 


UO 1 JcD 






J jr^ 
















JO ' }C\J 


rtAI ?7P 














UUj' cO 






















at) 


PI 


'JO 1 ^co 
















1 0S777 


1 1 7^?6 






1 J 1 ^ 




vro 1 ? jc 












10$ 


JO 1 J JM 


ni 77Lf\ 












\JO 1 




1 77600 








#177600 (SP) 


%,'0 1 


1??716 


nooo?3 






C MPQ 






nnini ? 

Uv 1 V 1 c 










102$ 
















^JO 1 J JC 


10S777 














100375 








RPL 


101$ 


SAO 


1 1 7716 


1 1 7376 








a$TKB (SP) 


Ju 1 JOM 


04P716 


1 77600 








•177600 (SP) 




1PP716 


0000? 1 








#$XON (SP) 


\.AJ 1 ^ r 


001 366 










■•01$ 










1 02$ : 






0^ 1 S 7fc 


00S7P6 








1ST 


( SP) ♦ 


061600 








ICS: 






061600 


105777 
'0037S 


1 1 7360 






TST8 


d$TPS 












10$ 


vvJ ' OVAJ 


1 16677 


00000? 


1 ' 7352 




M0\/B 


2(SP) ai$TPfi 


0616K 


1??766 


000015 


000002 






«CR.2(SP) 


061 6?2 


001003 








BNE 


1$ 


061 6?4 


105037 


061644 






CLfiS 


$CHARCNT 


061630 


000406 








BR 


$TVPE)i 


06163? 


V2766 


000012 


000002 


lf : 


CMP8 


nF.2(SP) 


061640 


001402 








BEQ 


$TrPEX 


061642 


105227 








1NC8 


(PC»» 


061644 


000000 






SfHAWCN 


^•.irfORD 


0 


•61646 


000207 










PC 



; .-REPLACE TAB wPh SPA'F 
;;TVPE A SPACE 
; .-BRANCH IF NOT AT 
;;TA8 STOP 

;;POP SPACE OFF STACK 
;;GET NEXT CHARACTER 

;;^HAR IN KrBD BUFFER? 
;;BR IF NOT 
.-.-GET CHAR 

;; STRIP EXTRANEOUS BUS 
;;WAS CHAR XOFF 
;.-8R IF NOT 

;;WAIT FOR CHAR 

;;GET CHAR 
.-.STRIP IT 
;.-UAS IT XON? 
;;8ft IF NOT 

;;FIX STACK 

.-.-WAIT UNTIL PRINTER IS RFAOr 

;;L0AD CHAR TO BE TYPED INTO DATA REG. 

;;IS CHARACTER A CARRIAGE RETURN? 

; .-BRANCH IF NO 

;;VES— CLEAR CHARACTER COUNT 

.-.EXIT 

;;IS CHARACTER A LINE FEEO"> 
.-.-BRANCH IF YES 
;; COUNT TH€ CHARACTER 
.-.-CHARACTER COUNT STORAGE 
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.S8TTL SCOPE HANDLER RaiTINE 



J61650 
061650 
061652 
0«>1656 
06166A 
C61^66 
06167? 



104410 
004737 
052777 

ocur? 

0001 S7 



061672 000416 



061674 
061700 
061^06 
061712 
061716 
061720 
061 722 
061726 
061750 
061730 
061736 
061740 
061742 
061746 
06' 750 
061754 
061756 
C61 762 
061764 
061 7o6 
061772 
061776 
062000 
062002 
062006 
062010 
062016 
062020 
062024 
062032 
062040 
362042 
"62050 



CI 3746 
012^37 
005737 
012637 
000561 
022626 
012637 

000521 

032777 
001421 
005046 
117716 
001414 
022716 
002411 
011637 
005316 
006316 
062716 
013637 
000547 
005726 
105737 
001502 
022737 
001455 
01 3746 
012737 
013737 
000406 
012737 
012716 



062512 
040000 

062316 



000004 
061720 
1 77060 
000004 



000004 

000400 

117206 
000067 
001116 



062334 
001122 



001 11 7 

177777 

000004 
062042 
177766 

177777 
062056 



000004 



1172^6 



063130 



000004 
063130 



•THIS ROUTINE CONTROLS THE LOOPING Of SUBTESTS. JT wiLL ]NCRE*»f\' 
•AND LOAD THE TEST NUMBER($TSTM^) INTO THE DISPLAY REG. (DISPl AV'7- 
•AND LOAD THE ERROR FLAG (SERfLO INTO DISPLAV<1 5 :08> 
•THE SWITCH OPTIONS PROVlDEn BY THIS ROUTINE ARE • 



117270 1$ 



•SW14=1 
•SW11=1 
•SW09=1 
•SW08=1 
•CALL 

• SCOPE 
SSCOPE: 

CKSWR 
.SR 
BIT 
BEO 
JHP 

9$: 

:JtuuJtusJARl Of 
SKTSTR: BR 

MOV 
MOV 
TST 

BR 

SI: CMP 
MOl 
BR 

'jt:;»*#*#END Of 

BIT 



LOOP ON 
INHIBIT 
LOOP ON 
LOOP ON 



TEST 
ITERATIONS 
ERROR 

TEST IN SWR<7; 
;;SCOPE=IOT 



0> 



81: 
2$: 



063150 ^0054: 



8EQ 

CLR 

M0V8 

BEO 

CMP 

8LT 

MOV 

DEC 

ASL 

ADD 

MOV 

BR 

TST 

TST8 

BEO 

CMP 

BEO 

MOV 

MOV 

MOV 

BR 

MOV 

MO^ 



PC. STOP 
«8IT14.5)SWR 
9$ 

SuwER 

CODE FOR THE XOR 
6S 

a*ERRV£C,-(SP) 

#5$.a;»ERRVEC 

a*1 77060 

(SP)*,d#ERRVEC 

SSVLAD 

(SP)*.(SP)* 

(SP)^.a#ERRVEC 

7$ 

CODE FOR THE XOR 

«3IT08.aSWR 

2$ 

-(SP) 

SSWR.(SP) 

8S 

#67, (SP) 
8S 

(SP).fTSTN« 

(SP) 
(SP/ 

#$SW08TBL,(SP) 

a(SP)».»lPADR 

$0VER 

(SP;* 

SERFLG 
31 

#-1.CPSAVE 

200h 

ERRVEC.-(SP) 
♦2000$.ERRVEC 
1 77766. CPSAVE 
2001 f 
#-1, CPSAVE 
»2001»,<SP' 



;;TEST FOR CHANGE IN SOFT-SWR 



LOOP ON PRESFNT TEST? 

NO If SW14=0 

JUMP OVER SCOPE ROUTINE 



TESTE R/tM/tM/t 

If RUNNING ON THE "XOR" TESTER CHANGE 
THIS INSTRUCTION TO A '\0P" (NOP" 240) 
SAVE THE CONIENTS Of THE ERROR VECTOR 
SET FOR TIMEOUT 
TIME OUT ON XOR? 
RESTORE THE ERROR VECTOR 
GO TO THE NEXT ^EST 
CLEAR THE STACK AFTER A TIME OuT 
RESTORE THE ERROR VETTOR 
LOOP ON THE PRESENT TEST 
TESTER***** 
LOOP ON SPEC. TEST? 
BR IF NO 

CLEAR A TEMP. LOCATION 
PICKUP THE DESIRED TEST NLMBER 
BRANCH If BAD TEST NUWBBR IN SUR 
CHECK THE NUMBER IN THE SWR 
BRANCH If TEST NUMBER IS OU' Of RANGE 
UPDATE THE TEST NUMBER 
BACKUP BY ONE 

SCALE THE TEST NUMBER AS AN INDEX 
FORM THE ADDRESS OF TEST POINTER 
SET LOOP ADDRESS TO DESIRED TEST 
GO LOOP ON THE TEST 

CLEAN THE BAD TEST NUMBER OFF OF thE STACr 
HAS AN ERROR OCCURRED? 
BR I F NO 

SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 
KICK AROUND ROUTINE IF SO 
SAVE CONTENTS OF ERROR VECTOR 
SETUP 'TRAP* RETURN ADDRESS 
MOVE CPU ERROR REGISTER TO ?t>SAi^E 



;;SET CPU ERROR REGISTER 
;;StTuP RETjftN ADDRESS 



FjR 'F- 



if* RX'.NE 



Jt?0')t 

jt20t2 
Jt2070 
06207? 
062100 
062102 
062110 
362^4 
062120 
062126 
062152 
062 KO 
062U2 
062U6 
0621 S2 
0621 S2 
062160 
0621 62 
062170 
062172 
062200 
062202 
062206 
062212 
0622U 
062222 
062224 
062230 
062232 
062236 
062244 
062246 
062254 
062262 
062266 
062274 
0O2500 
062304 
062310 
C62316 
062324 
062330 
062332 
062354 

062334 
062336 
062540 
062342 
062344 
062546 
0623S0 
062 5S2 
J62354 



000002 
012637 

022737 
001450 
032757 
001424 
042757 
015746 
01 7646 
012757 
011677 
0^.2777 
104177 
012676 
012657 

125757 
101015 
032777 
001404 
013737 
000446 
105037 
005037 
000415 
052777 
001011 
005757 
001406 
005257 
U25757 
002024 
012737 
013737 
10S237 
113737 
011637 
011657 
005057 
112757 
015777 
015716 
000002 
000005 

000067 
010050 
010250 
011120 
011456 
011662 
0)2176 
012356 
015450 
015750 

C'4'46 



C00004 

^77777 

000001 

000001 
001154 
000000 
0001 76 
117022 
00-000 

000000 
001154 

001151 

OCIOOO 

001124 

00111 ' 
001206 



001250 

001120 
001206 

000001 
062332 
001116 
001116 
001122 
001124 
001210 
000001 
001116 
001122 



065150 
065' 50 
1 77766 

001154 
117014 

001 11 7 
116764 
001122 



001120 

001120 
00' 206 

001226 



001131 
116632 



20C2f: 



2C031: 



4$: 



004000 116732 3$: 



1$: 

fSVLAD: 



tOVER: 



9'] 

CMP 
BEQ 
BIT 
BEC 
BIC 
MOV 
MOv 
MOV 
MOV 
BIC 
EMT 

MOV 

CMP8 
BHI 
BIT 
BEQ 
MOV 
BR 
CLR8 
CLR 
BR 
BIT 
BNE 
TST 
BEQ 
INC 
CMP 
BGE 
MOV 
MOV 
INC8 
M0V8 
MOV 
MOV 
CLR 
M0V8 
MOV 
MOV 
RTI 
5. 



$MXr\T: 

$SW08T8L: 

.REPT $TN-1 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



H 5 



iSP '.ERRvf V 

•-1.CPSA>E 
2003J 

•8IT00.CPSAVE 
200 3 J 

«ei TOO. 177766 
SWR,-(SP) 

a(oP).-(SP) 

#176.SWR 
(SP)-SSWR 

«eiT09.aswR 

177 

(SP)^.SWR 

SERMAX.fERfLG 
3$ 

*8IT09,SSWR 
4S 

SLPERR.fLPADR 

tOVER 

SERFLG 

STIMES 

1$ 

#8ITll,aswR 
IS 

SPASS 
IS 

SICNT 

STIMES.SICNT 

SOVER 

<rl, SICNT 

SMXCNT.STIMfS 

STSTNM 

STSTNM.STESTN 

(SP),SI.PADR 

(J>P).SLPERR 

SE SCAPE 

/rl.SERMAX 

STSINM^aDISPuAY 

SLPADR.(SP) 



;RE-TORE CD'^'EMS 0' {Uf-Dk t (, 

StL If CPSAvf HAS CPU ERR RfG 'IMf 1 ' I' 
BRANCH IF SO 

SEE If The POWER MONUOR BIT ]<> ow 

BRANCH TO CONTINUE ROUTINE I» ''EAR 

CLEAR THE BIT FOUND TO 8f SET 

SAVE SWR ADDRESS 

SAVE SWR VALUE 

GET SOFTWARE SWR ADDRESS 

GET CURRENT SWR VAlUE 

DON'T ALLOW LOOP ON ERROR ON ThIS ERR0«» 
CALL SPECIAL POWER FAIL BIT ERROR (A., 
RESTORE SWR TO ORIGINAL vAlUE 
RESTORE SWR ADDRESS 

MAX. ERRORS FOR THIS TEST OCCURRED? 

8R IF NO 

LOOP ON ERROR? 

8R IF NO 

SET LOOP ADDRESS TO LAST SCOPE 
ZERO THE ERROR FLAG 

CLEAR THE NUMBER OF ITERATIONS TO MAKE 
ESCAPE TO THE NEXT TEST 
INHIBIT ITERATIONS? 
BR IF YES 

IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
INCREMENT ITERATION COUNT 
CHECK THE NUMBER OF ITERATIONS MADE 
8R IF MORE ITERATION REQUIRED 
REINITIALIZE THE ITERATION COUNTER 
SET NUIBER OF ITERATIONS TO DO 
COUNT TEST NUMBERS 
SET TEST NUMBER IN APT MAILBOX 
SAVE SCOPE LOOP ADDRESS 
SAVE ERROR LOOP ADDRESS 
CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW ONEd) ERROR ON NEXT test 
DISPLAY TEST Nlf«ER 
FUDGE RETURN ADDRESS 
flXfS PS 

MAX. NUMBER OF ITERATIONS 



'M 1 



TSTU2 

TST2*2 

TST5»2 

TST4»2 

TST5*2 

TST6*2 

TST7»2 

TST10*2 

TST1U2 

ISTi2»2 



STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
S'ARMNG 



ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 



OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
Qf 
Of 



TEST 1 
TEST 2 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 



5 
<• 

5 
6 
7 

' J 



2 

062512 
062516 
062522 
062524 

6 



I 3 





Ul *i*t 3»» 




T C T 1 I » 9 


- C t AD T T ^iC 

; S 1 AR I J Nu 


A r>^DC c c 

APDHt bS 






« 7 




rtl y 7^/ 




TC T 1 / * "J 


; 5 1 AH T 1 NTj 


Af\f\ac c c 
ADpRtbS 


Of 


lib' 


u 




fit 


. tl\jHv 


T C T 1 ^ «T 


« C T AD r 1 Ai/" 

; b 1 AH 1 1 NO 


>DDRc bb 


\J* 


TEST 


1 9 






.WUNl, 


T C T 1 


- C T AD r ? fcl/" 

, b 1 AH \ 1 nKj 


ADDHc bb 


Of 


TC e r 
TCb 1 


It 


'J6<:5'U 


rM C 7C/ 


LJ/'\Df\ 

. WUHU 


TC f 1 7* D 


• C T AD T 1 Ai/" 

; ^ 1 ART JNlj 


ADDHt 3b 




f C C T 


' / 




U 'o<:J4 


. WUHL) 




• C T A D T f AJ^ 

; b I AH 1 1 


A f\f\DC C C 

AODHc bb 


of 


TC r T 

Tcb 1 


or, 
£\i 






. WUHU 




. C T AD T T Ajr 

; b 1 AH I J Nu 


Ar\f\DC c c 
ADDHcbb 


OF 


TEbT 


21 


Ur>c 5'6 


A1 71 cn 


. WUHU 


lb ; 


. C T ADT f Al/' 

; b 1 AH 1 1 NO 


ADDHc Sb 


OF 


TC C T 


£l 




m 7c 1 / 


. WUKL; 




. C T ADT f AJ^ 

; b ' AH 1 J Nu 


AUPHc bb 


OF 


tC C T 

' tb 1 


57 

C 3 




UcU • Uo 


LjnDr\ 
. WuNU 


T C * 9i * 9 


. C f AD T T AJ^ 

, b 1 AH 1 i No 


AOl/Ht bb 


nc 
OF 


TC C T 

1 r b 1 


T / 








T C T 3S * 9 


. C TAD T I Ajr 
; b 1 AH 1 i No 


Al/DNc bb 


OF 


TC C T 

Itbl 


-)L 




ATI 1// 

Uc 1 1 *t't 




1 b 1 co*c 1 


• C TADT f AJ/t 
, b 1 ^H 1 i iMO 


AIMNDC C C 
APPHt bb 


UF 


TC C T 


9*. 
CO 




o> 1 Lt^t^ 


. wuKi; 


TCT97*9 


. C T ADT \ tiSC 
; b 1 AH 1 J NO 


AIN^DC C C 

AUvHt bb 


AC 

OF 


TC C T 


57 

C' 


JOc*» Ic 




. WUMl> 


TCTXri*9 

1 b 1 jU*c ; 


• C T AD T I Air 
; b 1 AH 1 J NO 


Ar\ftDC C C 

AUUHtbb 


AC 

OF 


TC C T 

Itbl 


7A 
9U 


AiL 5/ 1 / 
JOCH 1*1 


Utc 300 


. WUnU 


TCT71 «9 


• C T AD T 1 hiT 
1 b 1 AH 1 J NO 


Annoc CC 


AC 

OF 


TC C T 
Itbl 


71 


UOc*» to 


UC> 1 


. wUNU 


TCT?9*9 

ib<jc*c ; 


• C T AD T T Iklfl 
; b 1 AN 1 iNu 


Af\f>DC CC 


AC 

UF 


TC c r 


73 

3C 




l/c jO' 0 


. WUNU 


ib'jj'c , 


■ CTADT flkltl 
, b 1 AH 1 iNO 


Annoc CC 
AUPNc bb 


AC 


TC C T 


77 

99 






. mVr'V 


1 b 1 J*»*C , 


• C TADT Iklfl 
, b ' AH 1 J NO 


AnnDC c c 
AUUKt bb 


AC 
OF 


TC C T 

Itbl 


5*1 




jc 


unon 


1 b 1 JJ*C , 


• C TADT Ihir. 
, b 1 AH 1 J NO 


AnnDC c c 
AUUHt bb 


AC 

Or 


TC C T 
Itbl 


zc 

99 






unon 


TCT?A*9 

1 J 1 jO*c , 


• CTADT f AJ/; 
, b 1 fW 1 i NO 


AnnDC c c 
AUUHt ib 


AC 

OF 


TC C T 

Itbl 


7* 

90 






. «nj"U 


T^TT7*9 


• C TADT f AJ(t 
, b 1 fW 1 iNO 


AnnDC c c 
ADUHt bb 


AC 
OF 


TC C T 

1 1 b ' 




r»A ?A 79 




. WUnU 


TCTAn*9 . 
1 i 1 »«U*c ; 


• C TAD T f AJ/t 
; O 1 MH 1 i NO 


AnnDC c c 
AUUHt bb 


AC 
OF 


TC C T 
Itbl 




fV 9^ ^ 






T< 1 ♦ 9 


• C TADT 

, J 1 MH 1 iNO 


AnnDC CC 

«L»l/HC Jb 


nc 


TC C T 

Itbl 


*t 1 


UOcH JO 


op77i n 




TCTi9*9 


• C TADT 

, b 1 'vt 1 iNO 


Annoccc 

^UUHt >b 


Ur 


TC C T 

Itbl 


Z. 9 






unon 


TCTi7»9 

1 J 1 *• 9 • c , 


• C TADT \hir. 
, 3 1 fW 1 iNO 


AnnDC CC 


AC 
UF 


TC C T 

1 C b 






nzni 1 n 


(JODD 




■ C TADT I wr; 
, i 1 fW 1 i NO 


AnnDC c c 

MUl/Ht bb 


AC 
UF 


TC C T 

1 C b 1 










1 J 1 •♦9 ♦£ , 


• C TADT f wr. 

, i \ 1 iNO 




nc 

UF 


TC <~ T 


45 






. WUnU 




. C TADT f AJ(; 

, o 1 1 i NO 


AnnoF c c 
AyuKt bb 


nc 

Ur 


TC C T 
Itbl 


••D 


wOc *• Jv 


UJ M r c 


unon 
. WUnl/ 


T C Ti7* 9 


, 9 1 fV\ 1 J NO 


Annoc CC 


nc 

UF 


TCC T 
Itbl 


H f 




nxi A7A 




1 > 1 9U*C a 


, J 1 1 i NO 


Annoccc 


nc 

UF 


TCCT 
Itbl 


J 'J 




ntpi 1 A 

\JjC I 1 *• 




1519 1 *c . 


• C T AD T 1 
, O 1 rVl 1 J NO 


Annoc CC 

AUl/HC bb 


nc 

UF 


TC I 

1 1 J 1 


CI 

9 1 




IJ7PC£0 




1 J 1 9c 'c . 


■ c T AD T f m;: 

, O 1 MM 1 i No 


Annoccc 

AUl/HC bb 


nc 

UF 


TCCT 

1 1 3 ' 


CO 

JC 

17 

> J 




U J J 1 DU 


unon 


1 J 1 99*c , 


• C T ADT 

, o 1 fW 1 J NO 


Annoccc 

Al/UHC bb 


nc 

UF 


TCCT 

Itbl 






unoh 


TCT*i^*9 


• C TADT \K1C 

, b 1 Hn 1 J NO 


Annoc CC 
AUUHt bb 


nc 

UF 


TCCT 
Itbl 


J** 






unon 


1 > 1 ' 9 * c , 


• C TADT IlUf: 
, b 1 MH 1 iNO 


AnnDC c c 
AUUKt bb 


nc 

UF 


TCCT 
' t b 1 


c c 

J J 








1 O 1 9C *c . 


• C TADT JhlC, 
, 9 1 MH 1 iNO 


Annoc CC 

'^I'l'Ht 33 


nc 

UF 


TCCT 
Itbl 


CA 




n7snx^ 


unon 


T^T«;7«9 

1 J 1 9 ' . 


• C T AD T I nr, 
, o 1 >*t\ \ X NO 


Annoc CC 

nVvnZ 3 3 


nc 

UF 


TCCT 
ICbl 


9 ' 




U J J J 1 C 


unon 


TCTAn»9 

1 o 1 OU ' c . 


• C TAD T \HC 
, J 1 1 i NO 


Annoc CC 

Al/ynC 33 


nr 
Uf 


TCCT 
Itbl 


All 




U jOc I D 


unon 


TCTA1 *9 

1 b 1 0 1 , 


- C T AD T I AJ^I 
. b 1 AH 1 J NO 


AnnDC c c 
AUyHc bb 


AC 

UF 


TCCT 
Itbl 


A 1 
D ' 


062476 


0^6616 






• <i TART INH 


Annpc CC 




TFCT 

' C 3 1 




062500 


037226 


.WORD 


TST65*2 


.•STARTING 


ADDRESS 


OF 


TEST 


63 


C62502 


037626 


.WORD 


TST64»2 


.•STARTING 


ADDRESS 


OF 


TEST 


64 


062504 


040206 


.WORD 


TST65*2 


.•STARTING 


ADDRESS 


OF 


TEST 


65 


062506 


040552 


.WORD 


TST66*2 


.•STARTING 


ADDRESS 


OF 


TEST 


66 


062510 


041110 


.WORD 


1ST 67*2 


.STARTING 


ADDRESS 


OF 


TEST 


'j7 



iDROP PRIORITY TO A LOW CONSOLE INTERRUPT 



012746 000140 
012746 062524 
000002 



S^OP: 



64$: 



HOV 
MOV 
RTI 



irPR3.-(SP) 

*64$.-{SP) 



;PUT NEW PS ON STACK 
;PUT NEW PC ON STA(k 
;POP NEW PC AND t^S 



- G6^S?4 012746 C00240 



.•RAISE PRIORI TV TO INHIBIT CONSOLE INTERRUPT 

MOV #PR5.-(SP> ;;PUT NEW PS ON 'TA k 



J 3 

. ft wanolFR routine 

062550 01?7<,6 06?5V> "OV #6S$.-(SMt ;;«»UT NfW Pf ON STACK 

0W?5i; 000002 ^^j, RTI ;;POP NCw PC AM) PS 

\ Otillt 000207 " "^TS PC ,RETJ»N 



MACWO vOA.OO 4-APR-81 



K 3 



.S8TTL ERROR hANDlER ROUTINE 



•THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND Tnf ERROR COUNT, 
•SAVE THE ERROR HEM NUMBER AND THE ADDRESS Of THE ERROR CALL 
•AND GO TO ERRTYP ON ERROR 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE • 
•SU15-1 HALT ON ERROR 

INHIBIT ERROR TYPEOUTS 



;«SU13=1 
;»SW10=1 
; •SWQ9=1 
•CALL 



BEuL ON ERROR 
LOOP ON ERROR 



ERROR N 





1 ACA77 

10503^ 


A^ 7 i 7 ^ 

063 5c 




CCDDAD > 

JcnRUR . 


CLRo 


f DC A l/C 




1 Ay / 1 A 








rvct ID 




"DC/ 4i 




AA1 117 




7€ . 

r » : 


INCy 


SfcHfLG , 


A*. 'D Q ^ D 


AA1 77Q 








DC A 


' * • 


UOt J J*» 


A1 7777 


AA1 IK. 


1 1 <. 7 7/ 




nUV 


CTCTKIM 2kr\ICDl AV 




A7'3777 


UUfUUU 


> I0304 




Q f T 
Di 1 


ffiil 1 lU.aowN , 


Ai^DC7n 


UU l4Uc 








DC A 


1$ 


A<.5575 


1 A/ / A 1 


AA1 515 

UU \c\c 






I VDC 


COC 1 1 


062576 


005237 


001126 




1$: 


INC 


$ERTTL 


062602 


011637 


001132 






MOV 


(SP).$ERRPC 


Ud<:oI>o 




AAAAA5 


AA1 175 
UU 1 1 JC 




CI lO 


»5 CCDDDr 


AA!3A1 Z. 


1 1 7777 


1 1 A71 5 


1 7n 

UU 1 1 jU 




MA\/Q 




AiL 




AA1 AAA 

UU 1 uuu 


1 1 ts.XOL 




BIT 
□ J 1 


ifO f TAO ^CUD 

mai 1 \jy,moVH , 




A A 1 AiL A 








□IMC 


IUU4> , 


AA?A7? 


1 5D777 
1 CCfJl 


AAAI 77 


AAI 1 7n 
UU • 1 3U 




(.nro 




UOcO*»U 


UU 1 43h 








OCA 


IUU4» , 




1 A5777 


nA71 7D 

Uo3 i JC. 






T C TD 

1 O It) 


IDC AtyC 


0626A6 


001047 








BNE 


1003$ 


062650 


022737 


-[77777 


063130 




CMP 


#-l,CPSAVE 


AiL OZ.CiL 


AAI LL K 
\J\} 1 








DC A 


1 AAA* 

|UU4> , 


UOcOOU 




UUUUU4 






nUV 


CDD\/Cr «/CD) 


UOtOo*« 


ni 5777 

\J\c.i Jl 


nA57n5 

\JOCI\Jc 


C\C\C\C\C\L 
\J\J\J\J\)'* 




nuv 


*iAnnc cDDwcr 
* IUUU»,tKKVtL , 




ni 7777 


1 777AA 
1 f f f OO 


U03 ' 3U 




HUV 


1 777AA rDCAUC 


062700 


000406 








BR 


1001$ 


:62702 


012737 


■\77777 


063130 


lOOOS: 


MOV 


#-1.CPSAVE 


0627^0 


0127^6 


062716 






MOV 


#1001$. (SP) 


0627K 


000002 








RTI 


C62716 


012637 


OOOOOA 




1001$: 


MOV 


(SP) ♦,ERRVEC 


062722 


022737 


-[77777 


063130 


1002$: 


CMP 


#-1.CPSAVE 


062730 


001420 








BEQ 


1004$ 


062732 


032737 


000001 


063130 




BIT 


#8IT00,CPSAVE 


062740 


001414 








BEQ 


1004$ 


062742 


042737 


000001 


177766 




BIC 


#81 TOO, 177766 , 


062750 


113737 


001130 


063132 




M0V8 


$ITEMB,IBSAVE 


062756 


112737 


000177 


001130 




M0V8 


#177.$ITEMB 


06276* 


000A02 








BR 


1004$ 


062766 


105037 


063132 




1003$: 


CLR8 


I8SAVE 


062772 








1004$: 






062772 


012777 


020000 


116154 




BIT 


#8IT13.aSUR 


063000 


001004 








BNE 


20$ 


065002 


004737 


063134 






JSR 


PC. ERRTYP 



;;ERROR=EMT AND N-ERROR ITEM NUMBER 

CI EAR THE ITEM BYTE SAVE LOCATION 
TEST FOR CHANGE IN SOFT-SWR 
SET THE ERROR FLAG 
UON'T LET THE FLAG GO TO ZERO 
DISPLAY TEST NUMBER AND ERROR FLAG 
BELL ON ErtROR? 
NO - SKIP 
RING BELL 

COUNT THE NUMBER OF ERRORS 
GET ADDRESS OF ERROR INSTRUCTION 

STRIP AND SAVE THE ERROR ITEM CODE 
SEE IF LOOP ON ERROR IS >>ET 
BRANCH AROUND ROUTINE IF SO 
SEE IF THIS IS THE POWER FAIL CALL 
BRANCH AROUND ROUTINE IF IT IS 

SEE IF THIS IS THE 2ND ERROR CALL IN ^hIS ROUTINE 
8RANCH IF SO 

SEE IF CPSAVE HAS CPU ERR REG TIMEOUT IfJDICATlON 
BRANCH IF SO 

SAVE CONTENTS OF ERROR VECTOR 
SETUP 'TRAP' RETURN ADDRESS 
MOVE CPU ERROR REGjSTER TO CPSAVE FOR TEST 

SET CPU ERROR REGISTER TIMEOUT INDICATOR 
SETUP RETURN ADDRESS 

RESTORE CONTENTS OF ERROR VECTOR 

SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BRANCH IF SO 

SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 
BRANCH IF OK 
CLEAR THE BIT FOUND SET 
MAKE I8SAVE NON-ZERO FOR DUAL ERROR CALL 
SET $ITEMB TO SPECIAL POWER FAIL POINTER 
BRANCH OVER IBSAVE CLEARING 

CLEAR IBSAVE SO 2ND TIME THROUGH EXIT5 

SKIP TYPEOUT IF SET 
SKIP TYPEOUTS 
GO ro USER ERROR ROUTINE 



'« HANDi.ER ROUTINE 

065006 ICKAO! 
065012 

065012 122737 

065020 001007 

065022 113757 

065050 004757 
065054 000 
065035 000 

063056 000777 

063040 105757 

063044 001005 

063046 005777 

063052 100002 

063054 000000 

065056 104410 
A65060 

W.5060 052777 

065066 001402 

063070 013716 

063074 005737 

065100 001402 

065102 013716 
065106 

065106 022737 

063114 001001 

063116 000000 
063120 

063120 105737 

063124 001210 

063126 000002 

063130 000000 

063132 UOOOOO 



TS^ 1 MACRO V04.00 4-APR-81 



00121' 




?0J: 


TYPE 


OOOOOT 


001242 




CMP8 
BNE 


001 1 30 


063034 




M0V8 


066076 




21 S: 
?2S: 


JSR 
.BYTE 
.BYTE 
BR 


063132 




2S: 


TST8 
BNE 


116102 




3S: 


TST 
BPL 
HALT 
CKSUR 


001000 


116066 




BIT 
BEQ 


001124 






MOV 


X1210 




4S: 


TST 
BEQ 


001210 




5t: 


MOV 


041630 


000042 


6S: 


CMP 
BNE 
HALT 


063132 






TST8 

BNE 

RTI 



CPSAVE: .WORD 
I8SAVE: .WORD 



^^:^,l:<>S PAGE 40-1 

SfO 024S 

.fCRLf 



#APTENV,$fNV ;;RUNNIN' l\ Af^T MODE 

?$ ;;N0,SKJF- APT ERROR REPORT 

SITEM8,?1$ ;;SET ITEM NUMBER AS ERROR W/WfR 

PC,SATt4 ; .-REPORT FATAL ERROR TO APT 

0 
C 

22$ ;;APT ERROR LOOP 

I80AVE ;;SEE If I8SAVE IS LOADED 

3S ;;8RANCH IF NOT - NO HALT ON PWR MON BI ' f"<ROR 

aSWR :;HALT ON ERROR 

3$ .-.-SKIP IF CONTINUE 

;;HALT ON ERROR. 

;;TEST FOR CHANGE IN SOFT-SWR 

#8IT09.SSWR ;;LOOP ON ERROR SWITCH SET? 

4$ ;;8R If NO 

$LPERR,(SP; .-.'FUDGE RETURN FOR LOOPING 

$E SCAPE ;; CHECK FOR AN ESCAPE ADDRESS 

5$ ;;8R IF NONE 

$ESCAPE.(SP) ; .-FUDGE RETURN ADDRESS FOR ESCAPE 

*$EN0AD,a*42 ;;ACT-11 AUTO-ACCEPT? 

6S ;; BRANCH IF NO 
;;YES 

I8SAVE ;;SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
7$ -BRANCH BACK TO CALL ORIGINAL ERROR 

■ ■ TURN 

0 ; -LOCATION TO SAVE CPU ERROR REG CONTENTS 

0 .-.-LOCATION TO SAVE ITEM BYTE 



f»«OR T»P€OUT ROUTINE 



4 

5 



t 



»1A£»0 V04.00 



M 3 

4-APH-81 11:4 5:^8 PAGE 41 



V 
'5 

'4 

15 
16 
17 
18 
19 
?C 
21 
22 



21 
2t. 
?5 
26 
27 

2B 
29 
30 
31 

32 
'3 

y. 

3'> 
36 
V 
58 
59 
40 
41 
42 
43 
44 
45 
46 
47 



48 
49 



065^34 
063136 
063U4 
063U6 



C63152 
063156 
063162 

063166 
063170 
063171 



063172 
063176 
063202 
063206 
0632U 
063220 

063222 
063230 
063234 

063236 
063244 
063250 
063252 
063256 
063260 



063262 
063266 
063274 
063300 

063304 
063306 
063307 
063310 
0633U 



10^414 
032777 
OOUO^r 
000137 



104401 
104401 
01 3746 

104403 
003 
000 



013700 
016000 
042700 
012737 
022700 
00U14 

012737 
022700 
D0U06 

012757 
022700 
001004 
104401 
104401 
000000 



005037 
013737 
104401 
01 3746 

104403 
003 
000 
005037 
113737 



001276 
000026 
177740 
066743 
000024 



066736 
000025 



066750 
000027 

064045 



064000 
001226 
064015 
064000 



064002 
0C1130 



.SSTTL ERROR TVPEOUT ROUTINE 

•THE ERROR TVPEOUT ROUTINE ASSEMBLES AND PRINTS iNfORMATION 
•REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 

.UNIT NUMBER, DRIVE TYPE. TEST NUMBER, ERROR NUMBER ANt' 
•PROGRAM COUNTER ARE PRINTED ON THE FIRST LiNf; 

.ERROR MESSAGE IS ASSEMBLED. FORMATTED AND PRINTED ON 
•ONE OR MORE SUCCEEDING LINES; 

.PAIRED LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED 
•AFTER THE ERROR MESSAGE. 



020000 116010 
063774 



0C1217 
064010 
001234 



ERRTYP: SAVRcG 
BIT 
SEO 
JMP 



<rswl3.iSWR 

IS 

27$ 



INHIBIT TVPEOUTS"? 
NO.' . 
VES: ! 



;TYPE UNIT fAJMBER. DRIVE TYPE. TEST NUMBER. ERROR NUMBER. AND 
.•PROGRAM COUNTER 
1$: TYPE .SCRLF 

TYPE .ERTyOO 

MOV $UNIT.-(SP) 



TYPOS 
.BYTE 3 
.BYTE 0 



TYPE 'T)RV#" 
SAVE SUNIT FOR TVPEOUT 
TYPE DRIVE NUMBER 
GO TYPE— OCTAL ASCII 
TYPE 3 DIGIT(S) 
SUPPRESS LEADING ZEROS 



063260 
063260 
063260 



.TYPE 'DRIVE TYPE' RM05. RM03 OR RM02 FOR UNIT JJNDER TEST 

;GET R« BASE ADDRESS 
;GEr DRIVE TYPE REGISTER 
;SAVE DRIVE TYPE BITS AND 
;GET ASCII DRIVE TYPE 
IS DEVICE Ar4 RM03 ? 
;YES !! 

SAVE ASCII DRIVE TYPE 
IS DEVICE AN RM02 ? 
YES .'! 



064000 



2$: 

3$: 

;TYPE 
4$: 



MOV 


$8ASE,R0 


MOV 


RMDT(RO) .RO 


BIC 


#1 77740, RO 


MOV 


#$RM03,3$ 


CMP 


*24.R0 


BE a 


2* 


MOV 


*SRM02.3l 


CMP 


#25. RO 


BEQ 


2$ 


MOV 


*$RM0S.3$ 


CMP 


#27. RO 


BNE 


4$ 


TYPE 


,ERTY05 


TYPE 




.WORD 


0 



SAVE ASCII DRIVE TYPE 
IS DEVICE AN RM05 ? 

NO 

TYPE " - " 
TYPE DRIVE TYPE 

DRIVE TYPE MESSAGE IS STORED MERE 



TEST NUMBER. ERROR NUMBER AND PROGRAM COlWTER 



064002 



CLR TSTNMB 

MOV STESTN. TSTNMB 

TYPE .ERTYOl 

MOV TSTNMB, -(SP) 

TYPOS 

.BYTE 3 

.BYTE 0 

CLR ERRNMB 

MOVB II TEMB, ERRNMB 



.-LOAD TEST NUMBER FOR 
;TVPE "TST#" 

;;SAVE TSTW« FOR TYPE OUT 
;;TYPE TEST Nlf«ER 
;;G0 TYPE— OCTAL ASCII 
;;TYPE 3 DIGIT (S) 
;; SUPPRESS LEADING ZEROS 
.•LOAD ERROR NUMBER fOR 
.-TYPE OUT 



F«ROR TYPEOUT ROUTINE 

50 063322 00U06 

51 0633:'4 104401 
5? 063330 013746 



063334 
063356 
063337 

53 063340 

54 063344 

063350 
063352 
C63353 

55 
56 

57 063354 

58 063360 

59 063362 
60 

61 C63366 

62 063372 

63 063376 

64 063402 

65 063406 

66 063412 

67 063414 

68 063420 

69 063422 

70 065424 
n 063426 
72 063430 
7*> 063434 
74 
75 
76 
77 

78 063440 

79 06344? 

80 063444 
063450 
063454 

83 063456 

84 063460 

85 065464 

86 063466 
8 7 065472 

88 065474 

89 065500 

90 063502 

91 065506 
y? 063510 
95 065514 

94 063522 

95 065524 
^^6 065526 
^7 065552 
<8 065556 



81 

82 



104405 
005 
000 
104401 
015746 

104405 
006 
001 



005737 
001002 
000137 

104401 
105037 
105037 
013700 
122700 
001003 
012700 
000405 
006300 
006300 
006300 
062700 
011001 



063456 001507 



012102 
001505 
010237 
005037 
112203 
001454 
122703 
001005 
105057 
000770 
122705 
001765 
122705 
001007 
105257 
152757 
001572 
000407 
105257 
122705 
001002 



TST 1 



C64025 
064002 



064054 
001 1 32 
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N 

PAGE 



3 

41-1 



064002 

063774 

001217 
064006 
064007 
06400? 
0001 77 

064052 



00156? 



065612 
064004 



000015 

064007 

000012 

000011 

064007 
000007 



064007 
000040 



5$: 



BEQ 

TrPE 

MOV 

Trpos 

.8VTE 
.8VTE 
TYPE 
MOV 

'VPOS 

.arTE 

.8VTE 



5S 

,tRTV02 
ERRNMB,-(SP) 



3 
0 

-ERTV05 
iERRPC.-(SP) 



6 
1 



S<1P IF NO ERROR CALLED 

rrPE "ERR#" 
SAVE ERRNMB FOR TYPE OUT 
TYPE ERROR NUMBER 
GO TYPE— OCTAL ASCII 
TYPE 3 D]G]T(S) 
SUPPRESS LEADING ZEROS 

TYPE *T>C=" 
SAVE SERRPC FOR TYPE OUT 
TYPE PROGRAM COUNTER 
GO TYPE— OCTAL ASCII 
TYPE 6 D]GIT(S) 
TYPE LEADING ZEROS 



.•GENERATE POINTER TO ERROR TABLE UNLESS ERROR NU18ER IS 0 



6$: 



7$: 



064 OU 7 



8$: 



9$: 



.•TYPE 
10$: 



lit: 



12$: 



15$: 



14$: 



TST 
6NE 
JMP 

TYPE 
CLR8 
CLR8 
MOV 
CMP8 
BNE 
MOV 
BR 
ASL 
ASL 
ASL 
ADD 
MOV 

BEQ 

THE ERROR 
MOV 
BEQ 
MOV 
CLR 
M0V8 
8E0 
CMP8 
BNE 
CLR8 
BR 

cMpe 

BEO 

CMPfJ 

BNE 

INlB 

B1T8 

PNE 

BR 

INCe 

TMPB 

BNE 



ERRNMB 
7$ 
27$ 

.$CRLF 

BOTFLG 
CHfiCNT 

errmib.ro 

#1 77, RO 
8$ 

*PF ECH.RO 
9$ 

RO 
RO 
RO 

#$ERRTB-8. 

(RO).RI 

19$ 

MESSAGE 

(R1)*.R2 

19$ 

R2.18$ 
BOTADR 
(R2)*,R5 
17$ 

#CR.R3 
12$ 

CMRCNT 
11$ 

#IF,R5 

11$ 

#HT.fi3 
14$ 

(HRCNT 
#7.CHRCNT 
15$ 
15$ 

CHRCNl 
#' .R5 
15$ 



.RO 



WAS AN ERROR CALLED? 

IF YES 
NO— EXIT 

YES-TYPE CRLF 

CLEAR BOT FLAG 

CLEAR CHARACTER COUNTER 

RO POINTS TO FIRST OF 

SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CAL 
BRANCH IF NOT 

MOVE POWER FAIL ERROR CALL TABLE TO RO 

FOUR ENTRIES IN ERROR 
TABLE 



R1 POINTS TO ERROR MESSAGE 
TABLE 

BRANCH IF NO ERROR MESSAGE 



R2 ADDRESS OF MESSAGE STRING 
BRANCH IF END OF MESSAGE 
LOAD ADDRESS OF STRING 
CLEAR BOT ADDRESS 
END OF STRING?? 
YES! : 

CARRIAGE RETURN?? 
NO! ; 

YES-CLEAR CHAR COUNT 
GET NEXT CHARACTER 
LINE FEED?? 

YES-GET NEXT CHARACTER 
HORIZONTAL TAB?? 
NO! : 

ADJUST CHARACTER lOUNI 



INCREMENT 

SPACF 
NO 



fHARAf H k ( ViMT 



99 

^00 
"G1 
'02 
103 
1C4 
'05 
'06 
"j7 
108 
'09 
MO 
•11 
"2 

n4 
•'5 
116 
117 
1'8 
"9 
120 
121 
122 
123 
124 
125 
126 
1?7 
1*^3 
129 
13U 
131 
132 
133 
'3^ 
■35 
136 
137 
138 
139 
KO 
K1 
H2 
K3 
U4 
'45 
U6 
^47 
148 
'49 
150 
'51 
152 
153 
154 
155 



063540 
063544 
063552 
063554 
063560 
063562 
063566 
063572 
063576 
063600 
06560? 
063610 
063612 
063614 
063620 
063622 
063626 
063632 
063636 
063642 
063646 
063652 
063654 



\>2 ^''^SL 
ROUTINE 

010237 
122737 
103340 
013704 
001007 
104401 
105037 
013702 
000726 
105044 
112737 
104401 
000000 
105737 
001 707 
104401 
105037 
105037 
013702 
010237 
112742 
105722 
000677 



MACRO VC4.00 



064007 '5$: 



063656 
063662 
063664 
063670 
063674 
063700 
063704 

063706 
063710 
063712 
063716 
063720 
063722 
063724 
063726 
063730 
063732 
063734 
063736 
063740 
063742 
063744 
063746 
063750 
063752 
063754 
063756 
063760 
063764 
065766 
063772 



016001 
001444 
104401 
016002 
016003 
012137 
001435 

104401 
000000 
104401 
00*; 702 
001 767 
012204 
012305 
105725 
100407 
001403 
013446 
104405 
000405 
013446 
104402 
000402 
013446 
104406 
005^14 
001403 
104401 
000760 
104401 
000742 



TST 



064004 
C0010G 

064004 

001217 
064007 
063612 



1 77777 064006 



064006 

001217 
064006 
064007 
064004 
063612 
000040 



000002 

001217 
000004 
000006 
065710 



001217 



B 4 

4-APR-81 1^-43 :i?8 PAGE 41-2 



SCO 0248 



16$: 

17$: 
18$: 



064042 
001217 



19$: 



20$: 



21$: 



22$: 



23$: 

24$: 
25$: 

26$: 



MOV 

CMP8 

BHIS 

MOV 

BNE 

TYPE 

aR8 

MOV 

BR 

CLR8 

M0V8 

TYPE 

.WORD 

TST8 

BEQ 

TYPE 

CLR8 

CLR8 

MOV 

MOV 

M0V8 

TST8 

BR 



R2.80TA0R 

#64.,CHRCNT 

11$ 

60TADR,R4 

16$ 

.$CRLF 

CHRCNT 

18$,R2 

11$ 

-('<4) 

•-I.BOTf G 



BOTFLG 

10$ 

.$CRLF 

BOTFLG 

CHRCNT 

B0TADR,R2 

R2J8$ 

*• .-(R2) 

(R2)* 

11$ 



save address of space 
end of line?' 

no: ! 

get address of last space 
branch if space detected 
type crlf 

clear character count 
set up r2 for testing 

replace space 
set bot flag 

type error message string 
string address goes her? 
was string truncated?? 
no: : 

yes-type crlf 
clear bot flag 
clear character count 
setup r2 for testing 
setup 18$ for typing 
restore space 
restore r2 
type rest of string 



ERROR HEADER AND ERROR DATA 



MOV 


2(R0),R1 


R1 POINTS TO ERROR HEADER T.'VBlE 


BEO 


27$ 


BRANCH IF NO HEADER 


T VDC 

1 Trt 


,»LnLf , 




MOV 


4(R0),R2 


R2 POINTS TO DATA ADDRESS TABLE 


MOV 


6(R0),R3 


R3 POINTS TO FORMAT TABLE 


MOV 


(Rl)*,21$ 


PUT HEADER ADDRESS FOR TYPE 


BEO 


27$ 


BRANCH IF Ef««D OF HEADERS 






■(ASSUME END Of DATA) 


TYPE 






.WORD 


0 


HEADER ADDRESS GOES HERE 


TYPE 


.$CRLF 




TST 


R2 


•DATA WITH HEADER?? 


BEO 


20$ 


•no: : 


MOV 


(R2) ♦,R4 


•R4 POINTS TO DATA ADDRESS 


MOV 


(R5)*.R5 


■R5 POINTS TO fORHAT 


TST8 


(R5)* 


;WHAT KIND Of DATA?? 


BMI 


24$ 


•BINARY 


BEO 


23$ 


•OCTAL 


MOV 


a(R4)*.-(SP) 


•DECIMAL 


TYPDS 






BR 


25$ 




MOV 


a(R4)+,-(SP) 




TYPOC 






BR 


25$ 




MOV 


a(R4)*.-(SP) 




TYP8N 






TST 


(R4) 


;MORE DATA?? 


BEO 


26$ 


•no: : 


TYPE 


,ERTY04 


; YES-TYPE 2 SPACES 


BR 


22$ 


•AND CONTINUE 


i YPE 


.$CRLF 


•TYPE ONE BLANK LINF 


BR 


20$ 


•BEfORE NEXT HEADER 



C 4 
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•S6 

'65 
164 

^65 
166 

16« 
169 
170 

171 

172 
175 
174 
175 
V6 
177 
178 
179 
180 
181 
^82 



065774 
065776 

064000 
064002 
064004 
064006 
064007 

064010 
06401 5 
064025 
064054 
064042 
064045 

064052 
064062 
064066 

064150 
064154 

064166 
064170 
064174 
064176 



1044' 5 
0C0207 

000000 
000000 
000000 
000 
000 

104 
054 
054 
054 
040 
040 

O'o;062 
064066 
120 

064154 
103 

064170 
065130 
064 V6 

000 



122 
040 
040 
040 
040 
055 

064150 
000000 
M7 

OOOCOO 
120 



000000 
000 



27S: 



TSTNMB 
ERRNMB 
BO T ADR 
BOTFLG 
CHRCNT 

126 ERTVOO 
124 ERTY01 
105 ERTy02 
120 ERTy03 
000 FRTy04 
040 ERTy05 
.EVEN 
0641t)6 PFECM: 
PFECHl 



127 



'25 



RESREG 
RTS 

.WORD 
.WORD 
.WORD 
.8VTE 
.8VTE 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



P^ECH2: 

PFECH3: 
PFECHA; 



PC 

0 
0 
0 
0 
0 



TEST UJidik 
ERROR N^ER 

BEGINNING OF TEXT ADDRESS 
80T FLAG 
CHARACTER COUNT 



a. TEST#a 

pc=a 
a 

- a 



a, 
a, 
a 

a • 



PFECHl.PFECH2.Pf ECH3.PFECH4 ;WORDS DEFINING TABLES BELOW 
.♦4.0 

.ASCIZ 7P0UER MONITOR BIT IN CPU ERROR REGISTER FOUND SET 

.EVEN 

.♦■4.0 

.ASCIZ 7CPUERRE' 

.EVEN 

.♦2 

.WORD CPSAVE,0 
.♦2 

.eyiE 0.0 



D 4 

.SSTTL TTy INPUT ROUTI«j£ 



^^•64:00 000000 
06420? 000000 
064204 000000 
C'64206 

064207 



STKCNT: .tfOPD 0 

STKQIN: .yORD 0 

$T<QOUT: .WORD 0 

STKQSRT: .BLKB 1 
$TKOENO=. 
.EVEN 



NUMBER OF ITE1S IN OUEut 
INPUT POINTER 
OUTPUT POINTER 
TTY KEVBGARD QUEUE 



•TK INITIALIZE ROUTINE 

•THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
•SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 



•call: 



JSR 

RETURN 



PC.$TKINT 



C64210 


005037 


064200 


STKINT: 


CLR 


STKCNT 


064214 


012737 


064206 


064202 


K)V 


#$TKQSRT.$TKQIN 


064222 


013737 


064202 


064204 


MOV 


STKQIN.STKQOUT 


064230 


012737 


064260 


000060 


MOV 


#JTKSRV.a»TKV£C 


064236 


012737 


000200 
114712 


000062 


MOV 


#200,a#TlCVEC*2 


064244 


005777 




TST 


aSTKB 


0642S0 


012777 


000100 


114702 


MOV 


#ioo.a$TKs 


U64256 


000207 






RTS 


PC 



CLEAR COUNT OF ITEMS IN QUEUE 
MOVE THE STARTING ADDRESS OF 'HE 
QUEUE INTO THE INPUT & OUTPUT POINTERS. 
INITIALIZE THE KEYBOARD VECTOR 
'13R" LEVEL 4 
CLEAR DONE FLAG 
ENABLE TTY KEYBOARD INTERRUPT 
RETURN TO CALLER 

•TK SERVICE ROUTINE 

•THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

•BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

•r IN THE QUEUE, 

•IF THE CHARACTER IS A "CONTROL-C" (*C) $TKINT IS CALLED AND 

•UPON RETURN EXIT IS HADE TO THE "CONTROL-C" RESTART ADDRESS (SHUT) 



064260 


117746 


114676 




STKSRV: 


MOVB 


a$TK8.-(SP) 


•PICKUP THE CHARACTER 


064264 


042716 


1 77600 






31 C 


#*C177.(SP) 


; STRIP THE JUNK 


064270 


021627 


000021 






CMP 


(SP).#$X0N 


;IS IT A RANDOM XON? 


064274 


001002 








BNE 


30$ 


■BRANCH IF NO 


064276 


005726 








TST 


(SP>-» 


•CLEAN RANDOM XON OFF <;TACK 


064300 


000002 








RTI 




■RETURN 


C64302 








30$: 








064302 


021627 


000003 






CMP 


fSP).*3 


■IS IT A CONTROL C 


064306 


001007 








BNE 


^$ 


•BRANCH IF NO 


064310 


104401 


065406 






TYPE 


.SCNTLC 


■TYPE A CONTROL-C (*C) 


064314 


004737 


064210 






JSR 


PC.STKINT 


INIT THE KEYBOARD 


064320 


005726 








TST 


(SP)* 


•CLEAN UP STACK 


064322 


000137 


065450 






JMP 


SHUT 


•CONTROL C RESTART 


064326 


021627 


000007 






CMP 


(SP^.*7 


•IS IT A CONTROL G"* 


064332 


001004 








BNE 


2$ 


BRANCH IF NO 


064334 


022737 


0001 76 


001 1 54 




CMP 


#SWRE6,SWR 


•IS SOFT-SWR SELECTED? 


064 342 


001500 








BEG 


6$ 


GO TO SWR CHANGE 


064344 








2$: 








064344 


022737 


000001 


064200 




CMP 


#1.$TKCNT 


IS THE QUEUE FULL? 


0643S2 


001004 








BNE 


3$ ;; BRANCH IF NO 


064 354 


104401 


001212 






TYPE 


.SBELl .-.-ring the TTY BELL 





2 ' 'Nl 
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005726 






TST 


(SP5* 


.•CLEAN CHARACTER QF f 0» ^'4i* 


L>64Vk2 


000451 






BR 


5$ 


.•EXIT 




021627 


000025 




C«P 


(SP).#23 


;IS IT A CONTROt-S-' 


064570 


001021 






6NE 


52$ 


.•BRANCH IF NO 


064372 


005077 


1US62 




CLR 


aSTKs 


.•DISABLE TTV KEYBOARD INTtRRUPTS 


064576 


005726 






TST 




;Cl:^n char off stack 


064400 


105777 


114554 


3^1: 


^ST8 


asTKS 


;WAIT FOR A CHAR 


064404 


100575 






BPL 


31S 


.•loop until its there 


064406 


1 1 7746 


114550 




M0V8 


aSTK8.-(SP) 


.•GET THE CHARACTER 


064412 


042716 


1 77600 




6IC 


#*.177.(SP) 


;MAKE IT 7-81 T ASCII 


0644 1 6 


C22627 


000021 




C«P 


(SP;».#21 


;IS IT A CONTROL -Q? 


064422 


001 566 






BNE 


51$ 


.•BRANCH IF NO 


064424 


0)^2777 


000100 


114526 


»H0V 


*ioo.a$Tics 


;REENABLE TTY KEYBOARD INTERRUPTS 


064452 


000002 






RTI 


.•RETURN 


064454 


005257 


064200 


32S: 


INC 


STKCNT } 


.•COUNT THIS CHARACTER 


064440 


021627 


ooouo 




CMP 


(SP).#140 


;IS IT UPPER CASE? 


064444 


002405 






BLT 




;8RANCH IF YES 


064446 


021627 


000175 




c»v 


(SPJ.#175 


;IS IT A SPECIAL ChAR? 


064452 


005002 






BG^ 




; BRANCH IF rES 


064454 


042716 


000040 




BIC 


#40. (SP) 


.-MAKE IT UPPER CASE 


064460 


112677 


177516 


4S: 


»H0V8 


<SP)*.a$TKOIN 


;AND PUT IT IN QUEUE 


064464 


005257 


064202 




INC 


STKQIN 


.•UPDATE THE POINTER 


064470 


023727 


064202 


064207 


Cl«¥» 


STKOIN,#STKQEND ; 


;G0 OFF THE END? 


064476 


001005 






BNE 


5S 


.-BRANCH IF NO 


064500 


C12737 


064206 


064202 


MOV 


•STfCOSRT.tTKQIN ; 


.RESET THE POINTER 


064506 


000002 




5»: 


RTI 




.'RETURN 



SfO 025' 



064510 022737 0U0176 

064516 001124 

064520 105777 1144 54 

064524 100121 

064526 117746 114450 

064552 042716 177600 

064556 021627 000007 

064542 001300 



001154 SCKSWR: 



•SOFTWARE SWrCH REGISTER CHANGE ROUTINE. 
•ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 
-SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER 
CALL WHEN OPERATING IN TTY INTERRUPT MODE. 



TRAP 



CMP 

BNE 

TST8 

BPL 

M0V8 

BIG 

CMP 

BNE 



#SV«EG.SWR 
151 

asTKS 

15$ 

a$TK8.-(SP) 
#*C177.(SP) 

f<;p) .#7 
2$ 



IS THE SOFT-SWR SELECTED 

EXIT IF NOT 

IS A CHAR WAITING? 

IF NOT, EXIT 



YES 
MAKE IT 
IS IT A 
IF NOT. 
AND EXIT 



7-81 T ASCII 
CONTRa-G? 
PUT IT IN THE 



TTY QUEUE 



064544 
064552 
064554 
064556 
064562 
064566 

064574 
064600 
064604 
J646*C 



125727 
001674 
005726 
004757 
005077 
112757 

104401 
104401 
013^46 
10440: 



064210 
114372 
000001 

065420 
065425 
000' 76 



001151 



0011 5v 000001 6$: 



•CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
•ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL. AS A RESULT OF A 
•CONTROL -G BEING TYPED. AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 



rMP8 
BEQ 

^ST 
jSR 
CLR 
M0V8 



TYPE 

fG^SWR: TYPE 
MOV 

TYPOC 



SAUT08.#1 
2$ 

(SP)* 
PC.STKINT 
SSTKS 
#1.SINTAG 

.SCNTLG 
.SMSWR 

SWREC.-(SP. 



ARE WE RUNNING IN AUTO-MODE? 
BRANCH IF YES 
CLEAR CONTROL -G OFF STACK 
FLUSH THE TTY INPUT QUEUE 
DISABLE TTY KEYBOARD INTERRUPTS 
SET INTERRUPT MODE INDICATOR 



ECHO THE CONTROL -G (*G) 
TYPE CURRENT CONTENTS 
SAVE SWREG FOR TvpfOuT 
60 TYPE— OCTAL A<;cII<ALl 
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1 04<.C' 1 


065*. 5^ 










005046 






'9$: 


CLP 


06^.620 


005046 












i05' 






' J : 


' 5 


06C626 


100375 








BPL 


364630 


1 1 7746 


M4326 






MOVB 


064634 


042716 


1 77600 






BIC 


064640 


021627 


000005 






r*iP 


064t>44 


00^015 








BNE 


064646 


104401 


065406 






T>PE 


064652 


062706 


000006 






ADD 


064656 


123^27 


001151 


000001 






064664 


001003 








8NE 


064666 


012777 


000100 


114264 




MOV 


0646^4 


0001 37 


065450 




8$: 


-«P 


064700 


021627 


000025 




9$: 


IMP 


064704 


001005 








BNE 


064 706 


104401 


065413 






TYPE 


064712 


062706 


000006 




20$: 


ADD 


064716 


000737 








BR 


064720 


021627 


000015 




^0$: 


CMP 


064724 


001022 








BNE 


064726 


005766 


000004 






rsT 


064732 


001403 








BEQ 


064734 


016677 


000002 


114212 




MOV 


064 742 


<J62706 


000006 






ADD 


064746 


104401 


001217 




14S: 


'YPE 


064752 


^2^727 


001151 


000001 




CMP8 


064760 


001003 








BNE 


064762 


012777 


000100 


114170 




MOV 


064770 


000002 






i5f : 


RT] 


064772 


004737 


061526 




16S: 


jSR 


064776 


021627 


000060 






CMP 


065002 


002420 








BLT 


065004 


021627 


000067 






CMP 


C65010 


003015 








BG' 


065012 


042726 


000060 






eic 


065016 


005766 


000002 






'ST 


065022 


001403 








BEO 


065024 


006316 








ASL 


06.;026 


006316 








ASL 


065030 


006316 








ASL 


065052 


005266 


000002 




• S: 


INC 


065036 


056616 


1 77776 






BIS 


065042 


000667 








BR 


065044 


104401 


001216 




'8$: 


TYPE 


065050 


000720 








BR 
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,SMNEw 

-(SP) 
-iSP) 

7$ 

a$TK9.-(SP) 

#*C177,(SP) 

(S'^).#3 
9$ 

.SCNTLC 
#6.SP 
lIN'AG.tl 
8$ 

#ioo,stus 

SHUT 



(SP) .*25 
10$ 

.$CNTIU 

#6.SP 

19$ 



(SP) .*15 
16$ 

4(SP) 
11$ 

2{SP).iSwR 

#6.SP 

.$CRL' 

$INTAG.#1 

15$ 

#ioo.a$TKS 

PC.$ryPEC 
{<;p) .#60 
18$ 

(SP).#67 
18$ 

#6v.(SP)* 

2(SP) 

^7$ 

(SP) 
(SP) 
(SP) 
2(SP) 

-2(>P' .(SP) 
7$ 

.$OJES 
20$ 



PROMPT FOR ^^fw swR 
CLEAR COl^TfR 

th: new SWR 
char there? 

If NOT TRY AGAIN 

PICK UP CHAR 

MAKE IT 7-BlT ASCII 

IS IT A CONTROl-C? 
BRANCH IF NOT 
YES, ECHO CONTROL-C CC^ 
CLEAN UP STACK 

REENABlE TTY KEYBOARD INTERRUPTS'' 
BRANCH IF NO 

ALlOW TTY KEYBOARD INTERRUPTS 

control-c restart 



IS IT A CONTROL -U? 
BRANCH IF NOT 
YES. ECHO CONTROL -U CU) 
IGNORE PREVIOUS INPUT 
LET'S TRY IT AGAIN 



IS IT A <CR>? 
BRANCH IF NO 

YES, !S IT THE FIRST fHAR? 

BRANCH IF YES 

SAVE NEW SWR 

CLEAR UP STACK 

ECHO <CR> AND <LF> 

RE-EN^LE TTY KBD INTERRUPTS' 

BRANCH If NOT 

RE-EN^LE TTY KBD INTERRJPTs 

RETURN 

ECHO CHAR 

CHAR < 0? 

BRANCH IF YES 

CHAR > 7? 

BRANCH IF YES 

STRIP-OFF ASCII 

IS THIS THE FIRST CHAR 

BRANCH IF YES 

NO. SHIFT PRESENT 

CHAR OVER TO MAKE 

ROOM FOR NEW ONE. 
KEEP COUNT OF CHAR 
SET IN NEW CHAR 
GET THE NEXT ONE 
TYPE ?<CR><LF> 
SIMULATE fONTROl-U 
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06SU^ 
065U4 
065 U6 
065152 
065156 
065 16C 
06516? 
065164 
065 170 
065172 
065 

065 176 
06520A 
065210 
0652U 
065216 
065222 
065224 
065230 
065254 
0652% 
065240 
065242 
D6S250 
065254 
365256 
0fc'»262 



•THii ROUTINE ylu INPU' * SINGLE CHARACTER fROW THf TTv 
CALL 













■ • 


RDCHR 






GET A CHARAC^EP FROM THE Ojf 












• • 


RETjRN 


HERE 




CHARACTER IS ON iHf STACK 












• • 








WITH PARITY BIT STRIPPED OFT 


065052 


011646 






IRPCHR 


MOV 


(SP; .-(SP) 


« 1 


PUSH DOWN THE PC AND 


C65054 


016666 


000004 


000002 






MOV 


4(SP).2(SP) 


9 1 


THE PS 


'>65062 


005066 


OOOOC-4 








CLR 


4rjP) 


0 1 


GET READr FOR A CHARACTER 


065066 


005 ''<46 










CLR 


-(SP) 


9 1 


PUT NEW PS ON STACK 


065070 


012/46 


065076 








MOV 


#64$. -(SP) 


» I 


PUT NEW PC ON STACK 


065074 


000002 










RTI 




9 1 


POP NEW PC AND PS 


065076 








64$: 










065076 


005737 


064200 






I: 


TST 


$TKCNT 


;;WAIT ON A CHARACTER 


065102 


00''775 










BEO 


1$ 






065104 


005337 


064 POO 










$TKCNT 


* 


■DECREMENT THE COUNTER 


065110 


1 1 7766 


177070 


000004 






M0V8 


a$TK00UT.4(SP) 




■GET ONE CHARACTER 


0651 '6 


005237 


064204 








iNC 


$TK0OUT 


• 


•UPDATE THE POINTER 


065 122 


023727 


064204 


064207 






CMP 


$TK0OUT.#STKQEND 


;;DID IT CO OFF OF THE END^ 


065130 


001003 










BNE 


2$ 




•BRANCH IF NO 


065132 


012737 


064206 


064204 






MOV 


*$TK0SRT.$TK0OUT 


-RESET THE POINTER 


065140 


000002 






2S: 


RTI 




9 


•RETURN 












•THIS 


ROUTINE 


WILL INPUT A STRING FROM THE TTY 



010546 
U05046 
012705 
022703 
101456 
104411 
112613 
122715 
001022 
005716 
001007 
112737 
104401 
012716 
OC55G5 
020527 
105454 
111557 
104401 
000746 
005716 
001406 
112757 
104401 
005016 
^22^1 5 
00:0C5 



CALi 



tRDLiN: 



065376 
065406 



00017? 



000154 
065574 

065576 

065574 
065374 



000154 
065374 

000025 



1$: 



i:$: 



065 37*, 



6$: 



5$' 



'$: 



RDLIN 

RETURN HERE 



MOV R5.-{SP; 

.'LR -(SP) 

MOV #$rTvlN.R5 

CMP #$TTVIN*8..R5 

BLOS 4$ 

RDCHR 

M0V8 (SP)*.(R3) 

CMP8 #177. (R3) 

BNE 5f 

TST (SP) 

BNE 6$ 

WV8 #'\.9$ 

TrPE .9$ 

MOV #-1.(SP) 

DEC R5 

CMP R5,#$TTYIN 

BLO 4$ 

M0V8 (R3).9$ 

TYPE ,9$ 

BR 2» 

TST (SP) 

8EQ 7$ 

MOVB #'\.9$ 

TYPE .9$ 

CLR 'SP) 

CMP8 #25. (R3) 

BNE 8$ 



INPUT A STRING FROM THE T7r 

ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
TERMINATOR WILL BE A BYTE OF ALL O'S 

SAVE R5 

CLEAR THE RJ90UT KEY 
GET ADDRESS 
BUFFER FULL? 
BR IF YES 

GO READ ONE CHARACTER FROM THE TTY 
GET CHARACTER 
IS IT A RUBOUT 
BR JF NO 

IS THIS THE flRST RUBOUT'> 
BR IF NO 

TYPE A BACK SLASH 

SET THE RIBOUT KEY 
BACKUP BY ONE 
STACK EMPTY? 
BR If YES 

SETUP TO TYPEOUT THE DELETED "HAR. 
GO TYPE 

60 READ ANOTHER CHAR. 
RUBOUT KEY SET? 
BR IF NO 

TYPE A BACK SLASH 

CLEAR THE RJ90UT KEY 
IS CH«»ACW A CTRL J? 
BR IF NO 



D65500 

0653U 

065326 
065352 
065536 
06C340 
065 34A 
065 550 
065552 
065554 
C65356 
065364 
065372 
065574 
065575 
065376 
065406 
065413 
065420 
065425 
065456 



104401 

001011 
105013 
104401 
104401 
0O0717 
1vs401 
000712 
111337 
104401 
122723 
001 305 
105063 
104401 
005726 
012603 
011646 
016666 
012766 
000002 
000 
000 

156 
'56 
156 
015 
040 



065^15 

oooc?*- 



301217 
065376 

001216 

065374 
065374 
000015 

}?7?77 
001220 



000004 
065576 



105 
125 
107 
012 
040 



•wm? ^.00 4-APS(-8i 



OOOC02 
000004 



015 
015 
015 
'23 
116 



8t: 



4t: 
51: 



9S: 

STTVIN: 

ICMlC: 

SCNTlu; 

JCNTLG; 

tnSUR : 

SMNEW: 

.EVEN 



BA 
BMC 

TrPE 

TYPE 

BR 

TvPE 

BR 

MOV? 

TYPE 

CMPB 

BNE 

CLR9 

TVPf 

TST 

WOV 

MOV 

MOV 

MOV 

RTI 

,8VTE 

• BV^E 

.8LK8 

.ASCIZ 

.ASCIZ 

.ASCiZ 

.ASCIZ 

.ASCIZ 



3 


065450 


005737 


000042 


SHuT : 


TST 


4 


065454 


001002 






BNE 


5 


065456 


000137 


005422 




JMP 


t 


065462 


005037 


001300 




C.R 


7 


065466 


000157 


041432 




,MP 



\ 
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,ICNTLU ;;TrPE A CON'ROL 'V 

1$ ;;C0 START OvFR 

#22. (R^' ;;IS CHARACTER A "-ft"? 

3S ; .'BRANCH If NO 

(R3) ;; CLEAR THE CHARACTER 

.$CRlF ;;TvPE A "CR" I 'IF" 

.ST^VIN ;;TVPE the INPUT STRING 

2$ ;;G0 PICKUP ANOTHER CHACTER 

.SQUES ;;TyPE A •?• 

1$ ; .'CLEAR THE BUFFER AfO LOOP 

(R5;.9t ;;ECHO THE CHARACTER 

•1S.(R5)^ ;; check F£« RETURN 

2$ ;;LOOP IF NOT kETURN 

-1(R5) ;; CLEAR RETURN (THE 15) 

.$LF ;;TVPE A LINE FEED 

(SP)* ;; CLEAN RLfiOUT KEV FROM THE STACK 

(SP)*,R3 .'.-RESTORE R3 

(SP),-(SP) ;; ADJUST THE STACK AND PUT ADDRESS OF 

4(SP).2(5P) ;; FIRST ASCII CHARACTER ON IT 

#JTTVIN,4(SP) 

. TURN 

0 ;;STORAGP FOR ASCII CHAP. TO TYPE 

0 ;; TERMINATOR 

3. ; .-RESERVE 8 BYTES FOR ttv input 

/•C/<15><12> .-.-CONTROL "C" 

/-U/<15><12> .-.-CONTROL 'V 

/•G/<15><12> .-.'CONTROL "C" 

<15><12>/SUR = / 

/ NEW = / 

*r42 ;ANV MONITOR PRESENT ? 

1$ ;8R IF YES 

START .-GO TO START 

$DEVM .-FUDGE NO DRIVES IN MAP 

$EOP ; RE TURN TO It OP 
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(X?AL HJmft 'ROM 

.sarrL read octal number »row the ny 



•THIS routine 

•CHANGE IT TO 
•call: 

• RDOC T 

RE TUR^ 



bUL READ 
BINARY. 



MERE 



AN OCTAL ASCII) NUMBER fROM ThE TIv 



.-READ AN OCTAL NUMBER 

.-LOW ORDER BITS ARE ON TOP Of fMf 

;HIGH ORDER BITS ARE 'N ShJDCT 



STACr 



06SA74 
065502 
065504 
C65506 
065510 
06551? 
0655 K 
065516 
C65520 
065522 
065524 
065526 
065550 
065532 
065554 
065556 
065540 
065544 
065546 
065550 
065552 
065556 
065562 
065564 
065566 
065570 
065572 



011646 
016666 
010046 
010146 
010246 
-04412 
012600 
005001 
005002 
112046 
001412 
006301 
006102 
006301 
006102 
006301 
006102 
042716 
0626C1 
000764 
005726 
010166 
010237 
012602 
012601 
012600 
000002 
000000 



000004 000002 



1 77770 



000U12 
065572 



tRDOC T • 


MOV 


(SP).-(SP) ; 
4(SP).2(SP> ; 


.■PROVIDE SPACE FOR ^HE 




MOV 


; INPUT NUMBER 




MOV 


RO.-(SP) 


.•PUSH RO ON STACK 




MOV 


RI.-(SP) 


;PUSH R1 ON STACK 




MOV 


R2,-(SP) 


;PUSH R2 ON STACK 


1S: 


RDLIN 


;READ AN ASCI 7 LINE 




MOV 


(SP)*,RO ! 


;GET ADDRESS OF 1ST CHARA.'TfR 




CLR 


R1 


.-CLEAR DATA WORD 




CLR 


R2 




21: 


M0V8 


(RO)*,-'SP) 


.•PICKUP THIS CHARACTER 




6EQ 


3$ 


■.■IF ZERO GET OUT 




ASL 


R1 


•.■•2 




ROL 


R2 






ASL 


R1 


■.••4 




ROL 


R2 






ASL 


R1 


;;«8 




ROL 


R2 

#-C7,(SP) 






BiC 


; .-STRIP THE ASCII JUNK 




ADD 


(SP)*.R1 


:;ADD IN THIS DIGIT 




BR 


2S 


;.-LCiOP 


5$: 


TST 


(SP)* 


.-.•CLEAN TERMINATOR FROM STACK 




MOV 


R1,12(SP) 


;;SAVE THE RESULT 




MOV 


R2.$H10CT 






MOV 


(SP)*.R2 


;;POP STACK INTO R2 




MOV 


(SP)*,R1 


;;POP STACK INTO Rl 




MOv 


(SP)*.RO 


;;POP STACK INTO RO 




RTJ 


.-.-RETURN 


IHIOCT: 


.WORD 


0 


;;HIGH ORDER BITS GO HERE 



J < 
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.S8TTL TRAP [)ECOD£» 



06'. 5 74 
065600 
065604 
065610 
065612 
0656K 
06.5620 
065622 
065624 
065626 
065652 



016646 
042716 
012746 
000002 
010046 
016600 
005740 
111000 
006300 
016000 
000200 



000002 
000020 
065612 



000C02 
065646 



•THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
•AND USE n TO INDEX THROUGH THE TRAP TABLE fOR THE STARTING ADDRESS 
•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
•GO TO THAT ROUTINE. 



tTRAP: HOV 2(SP).-(SP) 

SIC #20. (SP) 

MOV *1$.-(SP) 
RTI 

1$: MOV RO,-(SP) 

MOV 2(SP).R0 

TST -(RO) 

M0V8 (RO).RO 

ASL RO 

MOV $TRPAD(RO),RO 

RTS RO 



ASSUME THE STATUS OF 
THE CALLER— DO NOT ALLOW 
T-BIT TRAPS 

SET THE NEW STATU5 

SAVE RO 

GET TRAP ADDRESS 

BACKUP BY 2 

GET RIGHT BYTE OF TRAP 

POSITION FOR INDEXING 

INDEX TO TABLE 

GO TO ROUTINE 



.•;TnIS IS USE TO HANDLE THE "GE TPRI" MACRO 



065654 011646 

065656 C16666 000004 

065644 000002 



000002 



$TRAP2; MOV 
MOV 
RTI 



(SP).-(SP) 
4(SP).2(SP) 



.-MOVE THE PC DOWN 
.-MOVE THE PSW DOWN 
.•RESTORE THE PSW 



.S8TTL TRAP TABLE 



.••THIS TABLE CONTAINS THE STARTING ADDRESSES OF 
;«8V THE "TRAP" INSTRUCTION. 

ROUTINE 



065646 


065634 


JTRPAD: .WORD 


$TRAP2 




065650 


061314 


$TYPE 


;;CALL=TYPE 


TRAP*! (104401) 


065652 


061112 


STYPOC 


;;CALL=TYPOC 


TRAP*2( 104402) 


065654 


061066 


$ TYPOS 


;; CALL = TYPOS 


TRAP*3( 104403) 


065656 


061126 


STYPON 


;;CALL=TVPON 


rRAP*4( 104404) 


065660 


060642 


STYPDS 


.•.•CALL=TYPDS 


TRAP*5( 104405) 


065662 


060566 • 


$TYP9N 


;;CALLsTYP8N 


TRAP>6( 104406) 


065664 


064600 


SGTSUR 


;;CALL=GTSWR 


TRAP*7( 104407) 


065666 


064510 


$CKSWR 


;;CALL=CKSWR 


TRAP*10( 104410) 


065670 


065052 


SRDCHR 


;;CALL=RDCHR 


rRAP*11 (104411) 


065672 


065142 


SRDLIN 


;;CALL=RDLIN 


^RAP*12(104412) 


065674 


0654 72 


SRDOCT 


;;CALL=RDOCT 


TRAP*13(104413) 


065676 


060472 


tSAVREG 


;;CALL=SAVRE6 


rRA'3*14(1044K) 


065700 


060530 


SRESREG 


;;CALL=RESREG 


TRAP*1 5(10441 5) 



THE ROUTINES CALLED 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST fAiD 
TYPE DECIMAL rjUMBER (WITH SIGN) 
TYPE BINARY (ASCII) NUMBER 

GET SOFT-SWR SETTING 

TEST FOR CHANGE IN SOFT-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER ^ROM TTy 
SAVE R0-R5 ROUTINE 
RESTORE R0-R5 ROUTINE 
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: :uwN AND ^P J^OdNEl. 

.S8TTL POWER DOWN AND UP ROJTINES 











.•POWER DOWN ROUTINE 




065702 


012737 


066042 


000024 


SPWRDN: 


MOV 


*$lLLUP.a*PWRVEC 


.•;SET FOR FAST UP 
; PR 1 0 : 7 


065710 
0657'' 6 


012737 


000340 


y\ AAy\ 

000026 




MOV 


♦340,a*PWRVEC*2 ; 


010046 








MOV 


RO.-(SP) 


;PUSH RO ON STACK 


065720 


010146 








MOV 


RI.-(SP) 
R2.-(SP) 


;PUSH R1 ON STACK 


065722 


010246 








MOV 


;PUSH R2 ON STACK 


065724 


010546 










aX -(QD) 


;PUSH R3 ON STACK 


065726 


010446 








MOV 


R4.-(SP) 


;PUSH R4 ON STACK 


065730 


010546 








MOV 


R5,-(SP) 


;PUSH R5 ON STACK 


065732 


01 7746 


1 13216 






MOV 


aSWR,-(SP) 


;PUSH aSWR ON STACK 


065756 


010637 


066046 






MOV 


SP.$SAVR6 


; SAVE SP 


065742 


012737 


065754 


AAA y 

000024 




MOV 


4f$PWRUP.S/rPWRVEC 


;;ScT UP VECTOR 


065750 


000000 








HALT 






065752 


000776 








BR 


.-2 


;HANG UP 










.•POWER UP ROUTINE 




065754 


012737 


066042 


000024 


SPWRUP; 


MOV 


*tILLUP.a#PWRVEC 


. - c c T r r\a tact iai 

; , Sc T FOR FAST DOWN 


065762 


01 3706 


066046 






MOV 


$SAVR6.SP 


; GE T SP 


065766 


005057 


066046 






CLR 


tSAvR6 


;WAiI LOUr f ON THc TFT 


065772 


005257 


r\£ £ / £. 

066046 




IS: 


INC 


$SAVR6 


;WAJ F ^ uH FHc iNl 


065776 


001 375 








BNE 


1$ 


; OF WORD 


066000 


012677 


1 5^ 50 






MOV 


(SP)*.abWR 


;POP STACK JNTU aSWR 


066004 


/\C 

012605 








MOV 


(SP)*,R5 


;PUP STACK iNlU R!) 


066006 


01 2604 








MOV 


(SP)*.R4 


;POP STACK INTO R4 


066010 


01 2603 








MOV 


(SP)-» 3 


;PUP STACK INTO R5 


066012 


01 2602 








MOV 


(SP)*.h2 


;POP STACK INTO Hd 


066014 


/M A1 

01 2601 








MOV 


{SP)*.R1 


.POP STACK JNIO HI 


066016 


U 12600 








MOV 


(SP)*,RO 


.•POP STACK INiU KU 


066020 


A1 177 7 

012757 


065/^02 


000024 




MOV 


«$PWRDN.a#PWRVEC 


■ >CCT IID TUC DAI IC D fvrw Mkl \/C T T AD 

..SET UP THc POWER DOWN VECTOR 


066026 


012737 


000340 


000026 




MOV 


*340,a*PWRvEC*2 ; 


;PRI0:7 












TYPE 






066036 


066050 






$PWRMG: 


.WORD 


SPOWER ; 


.•POWER FAIL MESSAGE POINTER 


066040 


000002 








RTI 






066042 


000000 






SILLUP: 


HALT 




;THE POWER UP SEQUENCE WAS STARTED 


C66044 


000776 








BR 


.-2 ; 


; BEFORE THE POWER DOWN WAS COMPLETE 


066046 


000000 






$SAVR6: 


0 




;PUT THE SP HERE 


066050 


015 


012 


120 


SPOWER: 


.ASCIZ 
• EVEN 


<15><12>"POWER" * 
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jmulinuations routine 

.sarri apt communications routine 



066060 


112757 


000001 


066324 


SATY1 : 


M0V8 


#1. SFFLG 


;T0 REPORT FATAL ERROR 


066066 


112^57 


000001 


066322 


$ATY5: 


MOVB 


#1. SMFLG 


;T0 TYPE A MESSAGE 


0660^4 


000405 


006001 






BR 


SATYC 




066076 


112757 


066524 


$ATY4: 


MOVB 


#1. SFFLG 


;T0 ONLY REPORT FATAL ERROR 


066104 








5ATYC: 








066104 


010046 








MOV 


RO.-(SP) 


.•PUSH RO ON STACK 


066106 


010146 








MOV 


RI.-(SP) 
SMFLG 


.•PUSH R1 ON STACK 


066110 


105737 


066522 






TST8 


.-SHOULD TYPE A MESSAGE? 


066114 


001450 








BEO 


5S 


;IF NOT: BR 


066116 


122757 


000001 


001242 




CMPB 


#APTENV.SENV 


.•OPERATING UNDER APT? 


066124 


001031 








BNE 


3S 


;1F NOT: BR 


066126 


132737 


000100 


001243 




BiTB 


#APT SPOOL, SENVM ; 


.•SHOULD SPOOL MESSAGES? 


066154 


001425 








BEO 


3S 


;IF NOT: BR 


066136 


01 7600 


000004 






MOV 


a4(SP),R0 


;GET MESSAGE ADDR. 


066142 


062766 


000002 


000004 




ADD 


#2.4(SP) 


;;BUMP RETURN ADDR. 


066150 


005737 


001222 




IS: 


TST 


SMSGTYPE 


.-SEE IF DONE W/ LAST XMISSION? 


066154 


001375 








BNE 


IS 


;IF NOT: WAIT 


066156 


010037 


001256 






MOV 


RO.SMSGAD 


;PUT ADDR IN MAILBOX 


066162 


105720 






2$: 


TST8 


(RO)* 


.-FIND END OF MESSAGE 


066164 


001376 








BNE 


2S 


066166 


165700 


001256 






SUB 


SMSGAD.RO 


;SU8 START OF MESSAGE 


066172 


006200 








ASR 


RO 


;GET MESSAGE LNGTH IN WORDS 


066174 


010037 


001240 






MOV 


RO.SMSGLGT 


;PUT LENGTH IN MAILBOX 


066200 


012737 


000004 


001222 




MOV 


#4. SMSGTYPE 


;TEIL APT TO TAKE MSG. 


066206 


000413 








BR 


5S 




066210 


017637 


000004 


066234 


3$: 


MOV 


a4(SPJ.4S 


.-PUT MSG ADDR IN JSR LINKAGE 


066216 


062766 


000002 


000004 




ADD 


#2.4(SP) 


• -BlflP RETURN ADDRESS 


066224 


013746 


177776 






MOV 


1 77776. -(SP) 


.•PUSH 177776 ON STACK 


066230 


004737 


061514 






JSR 


PCSTVPE 


.•CALL TYPE MACRO 


066234 


000000 






4$: 


.WORD 


0 




066236 








5$: 








066236 


105737 


066324 




10$: 


TST8 


SFFLG 


.•SHOULD REPORT FATAL ERROR' 


066242 


001416 








BEO 


12$ 


;IF NOT: BR 


066244 


005757 


001242 






TST 


$ENV 


.•RUNNING UNDER APT? 


066250 


001415 








BEO 


12$ 


;IF NOT: BR 


066252 


005757 


001222 




IIS: 


TST 


SMSGTYPE 


.•FINISHED LAST MESSAGE? 


066256 


001375 








BNE 


11$ 


;IF NOT: WAIT 


066260 


017637 


000004 


001224 




MOV 


a4<SP).$FATAL 


;GET ERROR # 


C66266 


062766 


000002 


000004 




ADD 


#2,4(SP) 


;;8L«P RETURN ADDR. 


066274 


005237 


001222 






INC 


$MSGTYPE 


;TEIL APT TO TAKE ERROR 


066300 


105037 


066324 




12S: 


CLR8 


SFFLG 


.•CLEAR FATAL FLAG 


066304 


105037 


066323 






CLR8 


SLFLG 


.•CLEAR LOG FLAG 


066310 


105037 


066322 






CLR8 


SMFLG 


.•CLEAR MESSAGE FLAG 


066314 


012601 








MOV 


(SP)*,R^ 


;POP STACK INTO R1 


066316 


012600 








MOV 


(SP)*,RO 


;POP STACK INTO RO 


066320 


000207 








RTS 


PC 


.•RETURN 


066322 


000 






SMFLG: 


-BYTE 


0 ; 


;MESSG. FLAG 


066323 


000 






SLFLG: 


• BYTE 


0 


;L06 FLAG 


066524 


000 

000200 
000001 






SFFLG: 

APTSIZE 
APTENV 


.BYTE 
.Ev'EN 

= 200 
= 001 


0 


.•FATAL FLAG 




000100 






APT SPOOL = 100 








000040 






APT C SUP 


040 







J 
c 






X 






1 

*» 


'J€>0 53U 


1 U 1 


c 






X 

O 


UOo5*» 1 


U 3't 


7 




5r.A 


Q 




DAA 


■y 




A/ A 


>j 






1 1 




0/.0 


1 J 




C\AJ 


7 




cUU 


' / 
»* 


vJOOO J*» 


cUU 




JOOOj J 


OLC, 

u«»u 


1 ^ 




c UU 


' 7 


fV>A71 ? 
vyOOf ' c 


1 AA 

1 u*« 


' A 


UOO' cU 


cUU 




vOOr jO 


f c c 


w u 


^/kA7A7 




5 1 


nAA7^0 


1 PP 


?p 
cc 


r>AA7'i'; 

LKjO' ^ J 




5? 

C 5 


UOO/ ' O 


u*«u 


?i 


UO ' U J 


UhU 


C J 


UO ' U 'U 


J**U 




Of. 70/. 7 


UHU 


C ' 


\JO' uou 


UmU 


PR 


UOf Uf u 


POil 


PQ 
c ^ 


UO fill 


1 ' O 






1 ^fl 

1 1 \j 


51 


067126 


151 


3.- 


067150 


040 


53 


067131 


040 


54 


0671 3? 


040 


55 


067135 


040 


56 







»;Av^D V04.00 4 







COT fi 


AAA 






1 ^ / 
1 «t 


11/ 
1 1 <• 


All > 

ALL . 


A77 


AZ.A 


At IC C • 


A/ A 


AAA 




1 5t 
1 CS 




HbrlC L" . 


1 35 
1 CC 


IIS 


riLiCi A1 . 
Lnl jLU I . 


1 *• 


111 


r MCI n5 • 


1 1 

1 1 J 


1 5^ 

1 CO 


rwsi oX • 


1 ' *• 


1 1 1 


rwci OL • 






rwsi C\7 • 

LOioLU' . 


1 U 1 


11^ 

1 ' O 








r luc 1 AO . 
I'M jL UO ■ 


077 


111 


riLSi no • 

Lni jL Ut . 


1 '\L 
1 U*» 


1 55 
1 c c 


Mcnows • 


1 55 


111 

1 1 ' 


MS^'^Bvy • 


1 C 5 


11^ 


C VQTAT • 


IIS 


uou 


UMflP • 

»f<nuc • 


1 1 5 


uou 


»nlnU J • 


IIS 

1 1 5 


uou 


IDMOS • 

♦ftPiUJ • 


1 1 ^ 

1 1 Q 


1 1 7 

1 1 f 


MHTRM • 


1 1 H 


1 1 7 


1 nnp V/ • 

L UUL V • 


1 1 A 

1 1 o 


1 1 7 


WATPOS - 


1 1 o 


1 1 7 


MATAV/I • 




in^ 


UP| 1 U" " • 


1 1 7 


1 1^ 






1 PP 
1 cc 


np r UP s • 


1 1 7 


1 1^ 


MDMF • 






ni ■ 


000 




V ; 






BLNKS4: 






Bi.NKS3: 






8LNKS2: 


000 




8LNKS1: 






.EVEN 
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CONSOcE MESSAGES 

.ASCI7 «-a 

.ASCJZ aALLa<CRLF> 

.Asciz d ? a 

.Asciz a. a 

.ASCJZ <CRLF>aTyPE HELP 'EXT (D N ? d 

.ASCJZ <CRLf >aRMCS1=a 

.ASCJZ a LJMITS - L0= 160000. H]= 1 7XXXXa<CRLF> 

.ASCJZ aRMvEc-a 

.ASCIZ a LIMITS - L0= 0. Hl= 1000a<CRLf ><Lf > 

.ASCII <CRLf>aTyPE "A" TO TEST ALL DRIVES, OR TrPE DRIVE NUMBER(S)a 

.ASCIZ <CRLF>aAND TFRdlNATE INPUT WITH A CARRIAGE RETURN.i 

.ASCII <CRLf> 

.ASCIZ a ""ILLEGAL INPUTa<CRLF> 

.ASCIZ <CRLF>/DRIVE(S): / 

.ASCIZ /DRIVE/ 

.ASCIZ <CRLF>/UNIT STATUS:/ 

.ASCIZ /RM02/ 

.ASCIZ /RM03/ 

.ASCIZ /RM05/ 

.ASCIZ a NOT AN RM05/5/2a 

.ASCIZ / LOAD DEVICE/ 

.ASCIZ / NOT PRESENT/ 

.ASCIZ / NOT AVAILABLE/ 

.ASCIZ ' OFFLINE/ 

.ASCIZ / ONLINE/ 

.ASCIZ <CRLF>/0RIVE(S) TO BE TESTED/ 

.ASCIZ /NONE/ 

.ASCIZ /N/ 

.ASCI2 /V/ 

.ASCII / / 

.ASCII / / 

.ASCII / / 

.ASCIZ / / 



'LMCTION CODE TABct 



4 
5 
6 

7 

8 

9 
10 

n 

12 
13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

52 

35 

5A 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

4/ 

48 

49 

SI 
S.' 
'.5 
54 



56 
S7 



06/156 

067156 020000 
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.S8TTL FUNCTION CODE TABLE 

THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
EACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 

ATA - BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED. OTHERWISE, 
BIT 15 IS ZERO. INDICATING THAT ATA SHOULD NOT NORMALLY BE SET. 
NOTE IHAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 
IT IS NOT EXPECTE:> AS A RESULT OF THE COMMAND. 

WCE - BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 

OPI - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 

IVC - BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 

WLE - BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
THE WRITE ERRORS WHICH ARE ENABLED ARE "WLE". "UCF". "DPE". 'UPE". 

lAE - BIT 10 IS SET IN THE ENIRY FOR A GIVEN FUNCTION CODE 
IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 

AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF READ AND WRITE ERRORS ARE ENASt ED DURING THE EXECUTION OF THE 
COMMAND. THE ERRORS ENABLED BY THIS BIT ARE "TRE". "DLT". 'MEM* , 
•MXF". "LBT". and "AOE". 

BIT 08 IS NOT USED. 

HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
HEADER ERRORS INCLUDE "HCRC", '^HCE". 'TER" AN.y 'BSE'". 

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF THA^ 
COMMAND. THESE ERRORS INCLUDE 'MDPE". "DCK". AND "ECH". 

BIT 05 IS NOT USED. 

BIT 04 IS NOT USED. 

BIT 03 IS NOT USED. 

BIT 0? IS NOT USED. 

BIT 01 IS NOr USED. 

ILF - Bir 00 IS SET IF THE FUNfllON CODE IS Ult'oAl. 
fNCDTB: ; FUNCTION CODE TABll 

.WORD OPI . .^'OP 



SCO 0260 



B 5 
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N"iO^ CODE TABLE 



S8 067U0 


130001 


.wOSD 


OP I 


ATA." ILF 


IVC 








ILLEGAL FUNCTION 


59 067K2 


132000 


.WORD 


ata;opi.]vc.*]AE 








SEEK 




130000 


.WCRD 


ATA 


OPI :ivc 










RECALIBRATE 


61 067U6 


020000 


.WORD 


OP] 












DRIVE CLEAR 


t2 067150 


030000 


.WORD 


OPl 


ivc 










RELEASE 


65 06715? 


130000 


.WORD 


OP I 


ATA.'IVC 










OFFSET 


6A 067154 


130000 


.WORD 


OP I 


ATA. 'IVC 










RETURN TO CENTER- INf 


65 067156 


020000 


.WORD 


OPI 












READ IN PRESET 


66 067160 


020000 


.WORD 


DPI 












PACK ACKNOWLEDGE 


67 067162 


130001 


.WORD 


OP] 


ATA.'IL' 


IVC 








ILLEGAL FUNCTION C24) 


68 0671 6A 


130001 


.WORD 


OP] 


ATA! ILF 


IVC 








■ILLEGAL FUNCTION (26) 


o9 067166 


132000 


.WORD 


ATA 


OPI.'IVC 


lAE 








•SEARCH 


^0 067170 


130001 


.WORD 


OPI 


ATAMLF 


IVC 








•ILLEGAL FUNCTION f32) 


'1 067172 


130001 
13000' 


.WORD 


OP] 


ATA.'ILF 


IVC 








•ILLEGAL FUNCTION (34) 


77 067174 


.WORD 


OPI 


ATA. IlF 


IVC 








•ILLEGAL FUNCTION (56) 


73 067176 


130001 


.WORD 


OPI 


ATA. ILF 


IVC 








ILLEGAL FUNCTION (40) 


74 067200 


1 30001 


.WORD 


OPI 


ATA!ILF 


IVC 








ILLEGAL FUNCTION :4?' 


75 067202 


130001 


.WORD 


OPI 


ATA. ILF 


IVC 








.•ILLEGAL FUNCTION (44) 


76 067204 


130001 


.WORD 


OPI 


ATA.'ILF 


IVL 








; ILLEGAL FUNCTION (46) 


77 C67206 


073300 


.WORD 


WCE 


OPI .IVC 


lAE 


AOt 


HCE 


ECH 


.•WRITE CHECK DATA 


78 067210 


073300 


.WORD 


UCE 


OPI.'IVC 


lAE 


AOE 


!HCE 


ECH 


; WRITE CHECK HEADFR AND DA' 


79 067212 


130001 


.WORD 


OPI 


ATA.'ILF 


IVC 








.•ILLEGAL FUNCTION (54) 


80 067214 


1 30001 


.WORD 


OPI 


ATA.'ILF 


IVC 








.•ILLEGAL FUNCTION (56) 


81 067216 


037200 


.WORD 


OPI 


IVC.'WLE 


lAE 


AOE 


.HCE 




; WRITE DATA 


82 067220 


037000 


.WORD 


OPI 


IVCIWLE 


lAE 


AOE 






.•WRITE HEADER AND DA'A 


83 067222 


130001 


.WORD 


OP] 


ATA.'ILF 


IVC 








.'Illegal function (64) 


84 067224 


1 30001 


.WORD 


OPI 


ATA.'ILF 


IVC 








.•ILLEGAL FUNCTION (66) 


85 067226 


033300 


.WORD 


OPI 


IVC.'IAE 


AOE 


HCE 


.'ECH 




•READ DATA 


86 067230 


033300 


.WORD 


OPI 


IVC.'IAE 


•A0€ 


HCE 


'ECH 




•READ HEADER AND DATA 


87 067232 


130001 


.WORD 


OP] 


ATA.'ILF 


IVC 








.-ILLEGAL FUNCTION (74) 


88 067234 


1 30001 


.WORD 


OPI 


ATAIILF 


IVC 








.•ILLEGAL FUNCMON '^6) 



C 5 
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'?\'ION -AM. TABLE 

.S8TTL ATTENTION (ATA) TABLE 

! 067?% 001 ATNT8L: .8VTE 1. 

4 067237 002 -grTE 2. 

5 067240 004 4. 

6 067241 010 .BrTE 8. 

7 Qt72'.2 020 .evTE 16. 

8 06724? 040 '^lll 32. 

9 067244 TOO .8VT| 64. 
'? 06724S 200 .8VTE 128. 



V4 
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SaiTL ERWOft MESSAGE TA8lE 



i, 
5 
6 
7 
8 
9 
'0 

'A 

15 
16 

18 
■•9 

20 
21 
22 
21 
21* 
25 
26 
2? 
28 
29 
50 
51 
52 
55 
5/. 
55 
56 
57 
58 
59 
-iO 

-!.1 

A2 
^5 

A5 
A6 
A7 
A8 
A9 
50 
51 
52 
55 
S4 
55 

S7 



J672A6 
067252 
067260 
067266 
067274 
067502 
067510 
067516 
067522 
067526 
067554 
067546 
067554 
067562 
067572 
067402 
067412 
067422 
067452 
067442 
067452 
067462 
067472 
067502 
067512 
067522 
067552 
067542 
067552 
067562 
067572 
067602 
067610 
067620 
067652 
067642 
067652 
067662 
067672 
067700 
067710 
067722 
067740 
067756 
067766 
070000 
070016 
070026 
070044 
070064 
070100 
070102 
070122 

: 701 42 

0^0' 54 



075654 

075705 

075703 

074026 

074026 

100651 

076615 

074125 

074 VO 

074252 

074504 

074400 

074252 

074252 

074252 

074252 

074252 

074252 

074252 

074232 

074252 

074252 

074232 

074252 

074252 

074252 

074252 

074252 

074232 

074252 

074232 

076133 

076321 

100123 

075437 

076360 

076406 

076434 

076065 

074304 

074232 

075457 

075457 

075466 

100060 

075515 

100631 

075636 

076242 

100011 

000000 

100216 

075545 

1005 70 

100570 



OOOuOO 
075720 
075765 
074056 
074170 
076047 
100656 
CCOOOO 
000000 
074245 
074515 
o 7604 7 
074465 
074506 
074522 
074550 
074577 
074614 
074656 
074705 
074734 
074762 
075035 
075062 
075111 
075157 
075166 
075214 
075245 
075272 
075545 
074440 
100052 
100153 
075553 
075553 
075553 
075553 
076047 
074326 
075410 
075555 
075555 
075555 
100075 
076255 
076265 
076203 
075636 
076203 

100261 
101256 
076511 
076511 



000000 
000000 
OOOOCC 
000000 
000000 
000000 



000000 
074326 
000000 
000000 
074635 
074646 
074646 
074655 
074655 
074646 
074646 
074646 
074646 
074646 
074646 
074646 
074646 
074646 
074646 
074646 
074646 
074646 
000000 
076327 
076255 
076327 
076527 
076327 
076327 
000000 
076021 
074646 
076203 
076203 
076203 
075555 
076205 
076203 
077015 
076203 
077015 

076230 
101457 
076255 
076255 



EMT2 

EMT3 

EMT4 

EMT5 

EMT6 

EMT7 

EMTIO 

EMT11 

EMT12 

EMn5 

E/«*T14 

EMn5 

EMn6 

EMT17 

EMT20 

CMT21 

EMT22 

EMT25 

EMT24 

EMT25 

EMT26 

EMT27 

EMT50 

EMT51 

EMT52 

EMT33 

EMT34 

EMT35 

EMT36 

EMT37 

EMT40 

EMT41 

EMT42 

EMT43 

EMT44 

EMT45 

EMT46 

EMT47 

EMf50 

EMT51 

EMT52 

EMT55 

EMT54 

EMT55 

EMT56 

EMf57 

EMT60 

EMT61 

EMT62 

EMT65 

EMT64 

EMT65 

EMT66 

EMI67 



.WORD EMS1.0 

.WOPD EMS2.EMS5.0 

.WORD EMS2.EMS4,0 

.WORD EM<»5.EMS6,0 

.WORD EMS5.EMS10.0 

.WORD EMS167.EMS64,0 

.WORD FMSnO.EMS170.0 

.WORD EMS 7.0 

.WORD EMS10.0 

.WORD FMS11 .EMS12.0 

.WORD EMS13.EMS14,EMS15,EMS16,0 

.WORD EMS17.EMS64,0 

.WORD EMS11.EMS21.0 

.WOt^D EMS11.EMS22.EMS27.0 

.WORD EMS11 .EMS23.EMS50.0 

. WORD EMS 1 1 . EMS24 . EMS50 . 0 

.WORD EMSM,EMS25.EMS27.0 

.WORD EMS11.EMS26.EMS27,0 

.WORD EMS11.EMS31,EMS30.0 

• WORD EMSn,EMS32.EMS50.C 

.WORD EMSn.EMS33.EMS30.0 

.WORD EMS11,EMS34.EMS30.0 

.WORD EMS11,EMS35,EMS3C.O 

•WORD EMS11,EMS36.EMS30.0 

.WORD EMS11.EMS37.EMS30,0 

. WORD EMS 1 1 . EMS40 . EMS30 . 0 

.WORD EfS11.EMS41, EMS 30,0 

.WORD EMS11.EMS42.EMS30.0 

.WORD EMS11,EMS43.EMS30.0 

.WORD EMS11,EMS44.EMS30.0 

.WORD EMS11.EMS45.EMS50.0 

.WORD EMS66.EMS20.0 

.WORD EMS75.EMS141.EMS76,0 

.WORD EMSlA4.EnSU5.EMS72.EMS76.0 

.WORD EMS47,EMS53.EMS76.0 

.WORD eMS77, EMS53.EMS76.0 

.WORD EMS100.EMS53.EMS76.0 

.WORD EMS101,EMS53,E«S76.0 

.WORD EMS65.EMS64.0 

.WORD EMS13.EMS15.EMS63.0 

.WORD EMS11,EMS46,EMS30.EMS67.0 

. WORD EMS4 7 , EMS53 , EMS67 , EMS11 5 . EMS 1 40 . EMS 1 4 1 . 0 

. WORD EMS4 7 . EMS53 , EMS67 , EMS 1 1 5 . EMS 1 4 1 . EMS 1 64 , 0 

.WORD EMS50.EMS53.EMS67.0 

.WORD EMS142.EMS143.EMS53.EMS67.0 

.WORD EMS51,EMS72.EMS67,EMS115.EMS50.EMS70.0 

.WORD t"MS167,EMS73.EMS67.0 

.WORD EMS56.EMS67,EMS115.EMS150.EMS152.EMS70.0 

.WORD EMS71 ,EMS56-EMS67.EMS115.EMS150.EMS152.EMS72.0 

. WORD EMS 1 40 . EMS67 , EMS 1 1 5 . EMS4 7 , EMS 70 , 0 
.WORD 

.WORD EMS150.EMS152.EMS70.EMS115,EMS56.EMS73.EMS67,0 

.WORD EMS52.EMS205,EMS214.EMS206.EMS115.EMS51.BMi>7?. 

.WORD EMS165.EMS103.EMS72.EMS124.0 

.WORD EMS165.EMS103.EMS?'2.EMS171 .0 
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MACRO v'0<..OC 4-APR-81 



E 5 
:43;<^8 PAGE 50-1 



58 
59 
60 
6^ 
62 
63 
64 

ts 

66 
67 
68 

71 

-'5 
76 
77 
78 
79 
80 
8' 
82 
85 
8<. 
85 
86 
87 
88 
8V 
90 
<31 
92 
93 
94 
95 
96 
97 
98 
99 

:oo 

102 
103 
104 
105 
106 
107 
108 
109 
110 
Ml 
'12 
M3 



070166 

0701 76 

070206 

070224 

070242 

070252 

070272 

070302 

070514 

070352 

070550 

070560 

070372 

070410 

070420 

070430 

070450 

070462 

070470 

C 704 76 

070512 

070520 

070550 

070540 

070550 

070560 

070570 

070600 

070610 

070620 

070650 

070642 

070654 

070666 

070700 

070712 

070724 

070736 

070750 

070762 

070772 

071002 

071012 

071022 

071032 

071042 

071052 

071062 

071072 

071102 

071114 

071126 

071144 

071162 

071 1 74 

071206 

C"'220 



0754'0 

076242 

C75437 

075437 

075636 

076242 

075466 

100060 

076321 

076321 

100631 

100201 

075515 

100570 

100570 

100123 

076615 

076741 

076741 

07661 5 

076741 

077113 

077156 

077213 

077256 

077310 

077553 

077754 

077455 

077515 

077113 

0771 56 

077213 

077256 

077310 

077353 

077754 

0774t)5 

077513 

077115 

077215 

077115 

077754 

077256 

077510 

077353 

077513 

100705 

0 774 5 5 

100011 

100060 

100123 

100123 

100216 

100201 

100201 

1C0433 



07<.440 

C 764 54 

076255 

076255 

075553 

075636 

075553 

100075 

100032 

100216 

076265 

100235 

076302 

076406 

076360 

100^35 

076655 

073763 

073720 

077015 

077072 

077553 

077553 

077553 

077555 

077555 

077555 

077555 

077555 

077555 

077555 

077553 

077553 

077555 

077555 

077553 

077553 

077555 

077555 

077555 

077555 

077555 

077553 

077553 

077553 

077553 

077553 

077553 

077553 

077015 

077015 

100135 

100133 

100261 

100235 

100235 

100363 



1004t)3 
100463 
100463 
100463 
100463 
100463 
100463 
075553 
100463 
1 00465 
100463 
076302 
100463 
100463 
100463 
075555 
077020 
000000 
000000 
077020 
000000 
077577 
077577 
077577 
077577 
077577 
077577 
077577 
077577 
077577 
077622 
077622 
077622 
077622 
077622 
077622 
077622 
077622 
0776^2 
077664 
077664 
077727 
077727 
077727 
077727 
077727 
077727 
077727 
077727 
100032 
100075 
100162 
074440 
100527 
100527 
100363 
1004^6 



E(1T70 
EMT71 
EMT72 
EMT73 
E(1T74 
EMT75 
EMT76 
EMT77 



EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 



100 
101 
102 
103 
104 
105 
106 
107 
110 
111 
112 
113 
114 
115 
116 
117 
120 
121 
122 
123 
124 
125 
126 
127 
130 
131 
132 
155 
154 
155 
136 
137 
140 
141 
142 
143 
144 
145 
146 
147 
150 
151 
152 
153 
154 
155 
156 
157 
160 



.WORD 
.WCRD 

• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

• WORD 
.WORD 
.WORD 
.WORD 

• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



EMS46.EMS20.EMS163.0 
EMS71.EMS101.EMS163.0 

EMS47,EMS72.EMS163.EMS115.£MS140,EMS141.0 

EMS47.EMS72.EMS163.EMS115.EMS141.EMS72.0 

EMS56.EMS53.£nS165,0 

EMS71.EMS56.EMS163,EMS115.EMS150,EMS152,fMS72,0 

EMS50.EMS53.EMS163.0 

EMS142,EMSU3.EMS53.EMS163,0 

EMS75.EMS141.EMS163.EMS115.EMS47,EMS70.0 

EM375.EMS150.EMS163.EMS115,EMS56.EMS73.0 

EMS167.EMS75.EMS163.0 

EMS14 7.EMS151.EMS74,£MS163,0 

EMS51,EMS74.EMS163.EMS115.EMS50,EMS70,0 

EMS165.EMS100.EMS163,0 

EMS165,EMS77.EMS163.0 

EMSi44,EMS145,EMS53.EMS163.EMS115,EMS145.EMS70,0 

EMS110.EMS112,EMS116,EMS111,0 

EMS113,EMS4.0 

EMS113.EMS5.0 

EMS110.EMS115.EMS116.EMS117,EMS114.0 

EMS113.EMS120.0 

EMS121.EMS132,EMS153.0 

EMS122.EMS132,EMS133.0 

EMS123.EMS132.EMS133.0 

EMS124.EMS152.EMS155.0 

EMS125.EMS132.EMS135,0 

EMS126.EMS132.EMS133.0 

EMS137.EMS132.EMS133,0 

EMS130.EMS132.EMS133.0 

EMS131.EMS132,EMS155,0 

EMS121 .EMS132.EMS134.EMS123,0 

EMS122.EMS132.EMS134.EMS123.0 

EMS123.EMS132.EMS134.EMS125.0 

EMS 1 24 . EMSl 32 . EMS 1 34 . EMS 1 25 . 0 

EMS125.EMS132.EMS134.EMS125.0 

EMS126.EMS152.EMS134.EMS125.0 

EMS137,EMS132.EMS134,EMS123.0 

E«S130.EMS132,EMS134.EMS123,0 

EMS131,EMS132,EKS134,EMS125.0 

EMS121.EMS132.EMS135.0 

EMS123,EMS132.EMS135.0 

EMS121,EMS132,EMS136.0 

EMS137,EMS132.EMS136,0 

EMS124.EMS132.EMS136.0 

EMS125,EMS132.EMS136.0 

EMS126.EMS132.EMS136,0 

EMS131,EMS132.EMS136.0 

EMS171.EMS132.EMS136.0 

EMS130.EMS132.EMS136.0 

EMS140,EMS115.EMS141.EMS70.0 

EMSl 42 , EMSl 1 5 . EMS 1 43 . EMS72 . 0 

EMS144.EMS145.EMS146.EMS115,EMS143,EMS72.0 

EMSU4.EMS145.EMS20. EMSl 15.EMS143. EMS 70.0 

EMS150.EMS152.EMS154.EMS153.0 

EMS147,EMS151.EMS154.EMS155.0 

EMS147. EMSl 51. EMSl 56, EMSl 57.0 

EMS161.EMS156,PMS160.0 



"5 07125C 074577 

"t 071242 0746U 

071254 075437 

'"8 071264 075437 

•19 071272 075636 

VO 071300 075410 

071306 101757 

•2? 071314 101215 

'2^ 071326 100631 

V4 0 71336 1 00631 

125 0'1346 100705 

126 071356 100705 

127 071370 076741 

128 071376 101102 

129 071404 000000 
13C 071406 101215 

131 071420 101215 

132 071432 101215 
15^ 071444 101215 

154 C71456 100216 

135 071474 075466 

136 071504 076520 
M7 071514 0''6321 
158 071526 076321 
•59 0 71534 0 75515 
140 071550 100060 
'41 071564 075466 
142 071574 075543 
'45 071614 075543 
144 071626 075636 
'".S 071636 075410 
'4t 071646 074656 
H7 071656 075437 

148 071666 075543 

149 071676 075545 
'50 071706 OOOOOO 

151 071710 OOOOOO 

152 071712 OOOOOO 

155 071714 OOOOOO 

154 071716 OOOOOO 

155 071720 OOOOOO 
'56 071722 OOOOOO 

157 071724 OOOOOO 

158 071726 OOOOOO 
•'••9 071730 OOOOOO 
I6t 071732 OOOOOO 
^6' 071734 OOOOOO 
162 071756 OOOOOO 
165 071740 OOOOOO 

164 C 71 742 OOOOOO 

165 071744 OOOOOO 

166 071746 OOOOOO 

167 071750 OOOOOO 

168 071752 100631 
'69 071762 100631 
1 '0 071774 100631 

072010 1C'571 







b'04.00 


074655 


100565 


EMT161 


C 74635 


100565 


F«Tlt2 


10C465 


100011 


EWT165 


074440 


OOOOOO 


EWT1t4 


074440 


OOOOOO 


EMT165 


074440 


OOOOOO 


EWT166 


074440 


COOOOO 


EMT167 


100052 


074646 


EWT170 


100327 


100401 


Ei>in71 


100327 


100545 


EMT1 72 


077553 


077S77 


EMT175 


077553 


077b22 


EWT174 


101060 


OOOOOO 


EMn75 


101117 


OOOOOO 


EMT176 






EWT177 


075515 


074646 


EWT200 


101230 


074646 


EWT201 


075466 


074646 


E1T202 


100075 


074646 


E.MT£?05 


076302 


101165 


EM T 204 


076511 


076255 


EWT205 


076265 


101165 


EWT206 


100052 


077015 


EWT207 


100216 


OOOOOO 


EMT210 


076255 


077015 


EWT211 


075553 


077015 


EMT212 


076511 


075553 


EMT215 


101256 


100604 


EWT214 


077050 


075656 


EWT215 


074646 


076047 


EWT216 


074646 


076047 


EMT217 


074646 


076047 


EMT220 


074646 


076047 


EWT221 


077050 


076560 


EMT222 


077050 


076021 


EMT225 






EWT224 






EWT225 






EMT226 






fMT227 






EMT230 






EMT231 






tMT232 






FMT233 






FWT254 






EWT255 






EMT256 






EMT257 






EMT240 






EMr241 






EWT242 






EMT245 






EWT244 






EWT245 


077553 


101515 


EMT246 


077553 


101342 


E«T247 


101355 


101542 


t«T250 


101414 


OOOOOO 


F«T251 
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.WORD EWS25.EMS27.EMS156.EMS160,0 

.WORD EMS26.EMS27.EMS156.EMS160,0 

.WORD tWS47.EMS163,EWS140,0 

.WORD EMS47.EMS20.0 

.WORD EMS56.EMS20.0 

.WORD EMS46.EMS20.0 

.WORD EMS224.EMS20.0 

.WORD EWS203.EMS141 .EWS50,EM.5202,0 

.WORD EMS167,EMS154.E«:> 57.0 

.WORD EMj167.EMS154.FMS155,0 

.WORD EMS171.EMS132,EWS135.0 

.WORD EMS171.EMS132.EMS134,EMS123.0 

.WORD EMS113.EMS177.0 

.WORD EMS200.EMS201.0 

.WORD 

.WORD EMS203.EMS51 .EMS30,EWS202.0 

. WORD EMS203 . EMS204 . EMS30 . EWS202 . 0 

.WORD EMS205.EMS50.EMS30.EMS202,0 

. WORD EMS203 . E«S1 4 5 . EMS 30 . EMS202 . 0 

.WORD EMS150.EMS74.EMS202,EMS115.£MS152.EMS72,0 

.WORD EMS50.EMS103,EMS72.0 

.WORD EMS104.EMS73.EMS202,0 

.WORD EMS75.EMS141,EMS115.EMS140,0 

.WORD EMS75.EMS150.0 

.WORD EMS51.EMS72.EMS115,EMS50.EMS70.0 

.WORD EMS142,EMS53,EMS115.EMSU3.EMS72.0 

.WORD EMS50,EMS103.EMS53.0 

.WORD EMS52.EMS205,EMS166,EMS206.EMS115,EMS51.EMS72.0 

.WORD EMS52.EMS117.EMS56.EMS165.0 

.WORD EMS56.EMS30.EMS64.0 

.WORD EMS46.EMS50.EMS64.0 

.WORD EMS51,EMS50,EMS64.0 

.WORD EMS47,EMS50.EMS64,0 

.WORD EMS52.FMS117.EMS77.0 

.WORD EMS52.fMS1i7.£MS65.0 

.WORD 

• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

• WORD 
.WORD 
.WORD 

• WORD 

• WORD 
.WORD 

• WORD 
.WORD 

• WORD 

.WORD EMS167,EMS132.EMS2G7,0 

.WORD EMS167.EMS152.EMS210.EMS125.C 

.WORD EMS167.FMS211.EMS210,EMS207.Ef«SJJ^.' 

.WORP eMS21?.FMS?15.C 



• \^ 07?016 
' 07?0?4 

'^6 072062 
^"^7 07207? 
I'S 07210A 
'7<y 072116 
"80 072136 
'61 072U6 
182 072156 
'35 072176 
•84 072216 

185 072250 

186 072246 
'87 072262 
188 072500 
'89 072516 

190 072354 

191 072352 
•92 072564 
195 072400 

194 072416 

195 072436 
'96 072460 
19^ 072472 

198 072504 

199 072516 

200 072530 

201 072540 

202 072560 

203 07257? 

204 072604 

205 072616 

206 072636 

207 072650 

208 072662 

209 072674 
2^0 072704 

211 072714 

212 072724 

213 072732 

214 072742 

215 072754 

216 072766 

217 075004 

218 075016 

219 075026 

220 075040 

221 075052 

222 075070 
225 075106 

224 075126 

225 075156 

226 073U6 

227 073160 
;?8 C75>.6 



100570 

100201 

10''215 

101215 

101215 

074252 

075545 

075545 

076520 

075466 

075656 

076242 

100060 

075466 

075457 

075457 

076521 

075515 

076021 

077020 

075457 

075457 

075656 

076242 

100570 

100570 

100570 

075410 

075466 

075466 

100060 

076520 

076547 

100123 

075214 

074656 

076242 

0752^5 

075345 

075272 

076576 

075062 

100760 

100740 

074504 

100201 

076155 

074 754 

075157 

075515 

076521 

076521 

075741 

077020 

0^4762 

075607 

075545 



101371 

100255 

076434 

100651 

076406 

075410 

077050 

101256 

076265 

075555 

075555 

075656 

100075 

100162 

075555 

075555 

100052 

076502 

075555 

075555 

075555 

075555 

075555 

075656 

076406 

076454 

076560 

074646 

075555 

100162 

100075 

076511 

076511 

100153 

076511 

076511 

074656 

076511 

076511 

076511 

074440 

076511 

075062 

075062 

100775 

100235 

075553 

076511 

076511 

076302 

100052 

100216 

075754 

077050 

075555 

074762 

0^7050 



000000 
100565 
074646 
074646 
074646 
074646 
C75656 
101561 
101165 
076462 
076462 
076462 
075555 
077015 
076462 
076462 
076462 
07646? 
075715 
075166 
075713 
075713 
075713 
075555 
076511 
076511 
076511 
076047 
075715 
077015 
075553 
075555 
075553 
0765r 
075553 
075553 
076511 
075713 
075713 
075713 
000000 
075713 
076511 
076511 
074326 
076302 
101005 
075555 
075555 
075715 
075713 
100261 
076005 
074762 
075565 
OOOOCO 
075656 



EM1252 
EMT255 
EMT254 
EMT255 
EMT256 
EMT257 
EMT260 
EMT261 
EMT262 
EMT265 
EMT264 
EMT265 
EMT266 
EMT267 
EMr?70 
Ei^T?71 
EMT?7? 
EMT?73 
EMT?74 
EMT?75 
EMT?76 
EMT277 
EMT300 
EMT501 
EMT50? 
EMT505 
EMT504 
EMT305 
EMT506 
EMT507 
EMT510 
EMT511 
EMT51? 
EMT515 
E'»1T514 
EMT515 
EMT516 
EMT51 7 
EMT520 
EMT521 
EMT522 
EMT523 
EMT524 
EMT525 
EMT526 
EMT527 
EMr550 
F«r551 
EMT552 
EMT555 
EMT534 
EMT335 
EMT356 
Erir357 
EMT540 
EWT341 
EHM42 
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EMS165.EMS212.0 

£MS147.E«Sl51.EMS156-EMS210.E'1S26,tM$27,0 

EMS205.EHS101.EMS50.0 

EMS205.EMS167.E«S50,0 

EMS205.EHS100, EMS 50.0 

EMS1 1 . EHS46 -EMS30 . EMS 1 02 , 0 

EMS52,EMS117.EMS56.EMS10?,0 

EMS52,FMS205.tMS220,EMS206.EMS115,EMS51,EMS72,0 

EMS104.EMS75.EM5202.0 

EM350.EMS55.EMS102.0 

EMS56.EI1S53,EMS102.EMS115.EMS150.EMS152.EMS70.0 

EMS71.EHS56.EMS102.EMS115,EMS150.EMS152,EMS72.0 

EMS142.EMS143,EMS53,EMS102.0 

EMS50.EHS146.EMS115.EMS52.EMS117.EMS46,0 

EMS47.EMS55.EMS102.EMS115.fMSK0.0 

EMS47.EMS53.EMS102.EMS115,£MS141 ,EMS72,0 

EMS75.EMS141.EMS102.EMS115.EMS47.FMS75.0 

EMS51.EMS74.EMS102.EMS115,EMS50,E«S70,0 

EMS63.EMS55.EMS57.EMSr 5. EMS41,EMS146.0 

EMS1 16.EWS53.EMS41 .EMS57.0 

EMS47.EMS55.EMS57.EMS115.EMS140.0 

EMS4 7 . EMS55 . EMS 5 7 . EMS 1 1 5 . EMS 1 4 1 . EMS 72 , 0 

EMS56.EMS55.EMS57.EMS115.EMS150.EMS152.EMS70.O 

EMS71,EMS56.EMS55,EMS57.EMS115.EMS150.EMS152,EMS72.0 

EMS165.EMS100.EMS103.EMS57,0 

EMS165.EMS101 ,EMS103.FMS57,0 

EMS165.EHS77,EMS103,EMS57,0 

EMS46.EMS30.EMS64,EMS57.0 

EMS50.EMS53.EMS57.0 

E«S50.EMS146,EMS115.EMS52.EMS117.EMS46.EMS57,0 
EMS142.fMS143,EMS53,EMS57.0 
EMS104.EMS103,EMS55.EMS57,0 
EMS105.EMS103.EMS53,EMS57.0 

EMS144.EMS145,EMS105.EMS57.EMS115,EMS145,EMS70.0 

EMS42.EMS105.EMS55,EMS57.0 

EMS51 .EHS105.EM'>55.FMS57.0 

EMS71,EHS31.EMS103.EMS57.0 

EMS45,EMS105.EMS57,0 

EMS45.EMS105.EMS57,0 

EMS44,EMS105.EMS57.0 

EMS106.EMS20,0 

EMS36.EnS103,EMS57,0 

EMS173.EMS56,EMS103,EMS57,0 

EMS1 72. EMS36-,EMS105.EMS57,0 

EMS15.EMS174.EMS15.EMS55,EMS53.EMS175.0 

EMS147,EMS151,EMS74,EMS175,0 

EMS66.E«S53,EMS175,0 

EMS55.EMS105,EMS53,EMS175.0 

EMS40,EMS103,EMS53,EMS57.0 

EMS51 ,EMS74.EMS57.EMS1 1 5.EMS50.EMS70-0 

EMS75.EMS141 ,£MS57,EMS1 1 5.EMS47,EMS75.0 

EMS75.£MS150,EMS152,EMS57.EMSn5.EMS56.£MS75.0 

EMS60.EMS61.EMS62.0 

E«Sn6.E>«Sl l7.tMS34.0 

EMS34.EHS53.cMS54.EMSl 1 1 .0 

EMS55. EMS 54.0 

£MS5?.EMSn7.EMS56.fMS57,C 



I? 07^254 
:M 073250 
07326? 
,'3S 073300 
.>V. 0755^0 
/<r J733U 
..73<?4 



G7SSt5 
0755<.3 
07S5<.5 
076576 
0755*3 
076321 
1006S1 
10U55 
1015?6 
'01601 



C 77050 
0^7050 
074440 
10^256 
100216 
076265 
000000 
101215 
074440 



MA. 



C75345 
07527? 
10^601 
077015 
10165' 
07646? 
07646? 

101476 
000000 



CWT545 
f "IT 544 
EMT345 
E IT 546 
EMT547 

E'iT35C 
EMT351 
Em352 
EMT355 
EMI 554 



.WOfiD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
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E'>«S5?.EMS117.EMS45.EMS57.0 

EMS52.EMS1 1 7.f HS44,EMS57.0 

EMS52.EHS117.EMS221.0 

EMS106.EHS20.E11S115.EMS225.EMS72.0 

EMS52.EHS205.EWS222.EMS206.0 

EMS75,E(iSl50.EMS1O?.EMSn5,f«S56,fm75,0 

EMS167.EMS73,E«S102,0 

EMS215.0 

EI1S217,EMS203.EMS216.0 
EMo221.E«S20.0 



073402 
073^0 



10?C51 

102050 
1 02057 

102076 
102125 
102155 

^.02?.^' 
: 02266 
102425 
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I 

PAGE 



S 
5' 



IOt-704 

oooooc 
oooooc 

000000 
102627 
102627 

^02627 
: 02627 
102627 



1 . 



102704 
102704 

102704 
102704 
102704 



fHTi : 

EhTIIO: 
fMTni: 

EHT1U: 
EHT22?: 
fHT256: 

EH^336: 
tMT557: 
EhT?44: 



.WORD 

.WORD 
.WORD 

.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 



EHl.STSHl,S*SH2,STSM4.'j 

STSH1.STSM2.STSH4.0 

EH110.0 
fHin.O 

EHIU.O 

Eh223.STSh1,stsh2.STSh4.0 
EH256.STSHl,STSM2.srSH4,0 

Eh336,STSH1,STSh2,STSH4.0 
EH337, STSHI ,STSh2.STSM4,0 
Eh344,STSH1.STSH2,STSM4.0 



7^4^ 2 '0.^561 OOOOOC 



EMT553: .WORD EH5S3.0 



5 

A 
r 

J 

t 

7 
8 
9 

13 



075<i56 
075466 

075A76 

075500 
075502 

07551? 
075522 
073552 



105070 
105164 

105076 
105102 

105110 
105120 

'03150 
105:42 
103142 



'ST 



1C5164 
105202 
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5 

52 



105164 105202 



105164 
103164 
105164 



073S4A '05l'.<. 



103202 EDT1: .WORD EDI .STSD1 ,STSD2,STSD4 

105254 EDT2: .WORD STSD1 .STSD2.STSD4 

EDT110: .WORD EDUO 

EDT111: .WORD EDUI 

EDT114: .WORD ED114 

EDT225: .WORD ED225.STSD1 .STSD2.STSD4 

103202 EDT556: .WORD ED356.STSD1 .STSD2.STSD4 

105202 EDT557: .WORD ED557.STSD1 .STSD2.STSD4 

105202 EDT344: .WORD ED357.STSD1 .STSD2.STSD4.0 

EDT353: .WORD ED355 



MESSAGE TABLE 



073546 
073556 

075564 
073566 



2 
3 

5 

7 075570 

8 075572 
«? 

10 07560Z 

11 07361? 

12 075622 
'5 

U 073652 



103247 
105265 

103246 
103247 

105251 
105251 

'05254 
105254 
105254 

103251 



103265 
105265 
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103265 105265 



103265 
-103265 
105265 



103265 EHl: .WORD Ef 111 .STSF .STSF .STSF 

103265 EFT2: .WORD STSF .STSF .STSF 

EFTllO: .WORD EF110 

EFTlll: .WORD EFlll 

EFT114: .WORD EF114 

EFT223: .WORD EF 1 14 .STSF . STSF .STSF 

103265 EFT556: .WORD EF356, STSF .STSF .STSF 

105265 EFT557: .WORD EF536. STSF .STSF .STSF 

105265 EFT544: .WORD EF 556. STSF .STSF .STSF 

EFT555: .WORD EFIU 
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$10 027' 





137 


1 3? 


117 
















101 


(■ n7X7^'^ 

O U ' J' D J 


11^ 

1 1 O 


Iff 


^ 1 

1 D 


7 07^n?^ 


lOX 


117 


1 1 




inx 


117 


1 1 A 






1 PP 
''17 


1 1 1 

1 1 I 


in 07^170 


107 


nio 


It \J ' HC JC 


1 1 1 

1 1 1 


11^ 


1 ?(\ 
1 CD 






1 ?5 


1 1^ 


1^ n7i^o^ 


1 1 5 


101 


1P^ 




10^ 


1 1 7 








1 ?5 


1 p^ 


"t 074^S0 




1 1 5 


10^ 


1 7 07^.^00 


1 2L 


1PP 


101 


18 074440 


1P3 


1 10 


1 1 7 




1P7 


117 


1 cc 




lOP 


IPS 


1P^ 


31 0745PP 


04 P 


114 


102 


?? 074550 


04 P 


101 


1 1 7 




104 


1 1 1 


1P3 


P4 074<i14 


103 


1 31 


1 14 


P5 0746^5 


101 


104 


104 


P6 074646 


1P3 


1P4 


101 


27 074656 


04 P 


1P7 


1 14 


P8 074705 




1?5 


IPO 
103 


29 074734 


04 P 


1P7 


30 Q7U76? 


1P7 


IP? 


1 1 1 


31 075033 


04? 


115 


■"04 




04? 


104 


103 


33 075111 


04? 


105 


103 


34 075137 


04 P 


104 


114 


35 075166 


04? 


115 


130 


36 075P14 


042 


104 


1?4 


37 075P43 


04? 


110 


10^ 


38 07S272 


110 


105 


101 


39 075345 


106 


1 1 7 


1 p? 


40 075410 


04? 


1 1 1 


101 


41 075437 


04? 


1 1 7 

1 1 r 


1 PO 


i*2 C75466 


04? 


1 ?3 

■ C -J 


1 1 3 

1 1 -J 


43 075515 


04? 


IPO 


1 1 1 


44 075543 


1P4 


1 10 


105 


4,5 075553 


104 


105 


1P4 


46 075565 


101 


1P4 


040 


47 07S607 


1 1 1 


116 


103 


48 075636 


1 1 1 


1 16 


1P6 


49 075713 


104 


125 


122 


50 075741 


104 


101 


124 


51 075754 


104 


117 


105 


5P 076003 


104 
042 


101 


124 


53 076021 


120 


101 


54 076047 


111 


123 


040 


55 076065 


103 


117 


115 


56 076133 


104 


101 


124 


57 C 76203 


104 


125 


122 
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EMS1 

EMS2 

EMS3 

EMS4 

EMS5 

EMS6 

EMS 7 

EMS 10 

EMSn 

EMS12 

EMS 13 

EMS 14 

EMS15 

EMS16 

EMS17 

EMS20 

EMS21 

EMS22 

EMS23 

EMS24 

EMS25 

EMS26 

FMS27 

EMS30 

EMS31 

EMS32 

EMS33 

EMS 34 

EMS35 

EMS 36 

EMS 37 

EMS40 

EMS41 

EMS42 

EMS43 

EMS44 

5MS45 

EMS46 

EMS47 

EMS50 

EMS51 

EMS52 

EMS53 

EMS54 

EMS55 

EMS 56 

EMS57 

EMS60 

EMS61 

EMS62 

EMS63 

EMS64 

EMS65 

EMS66 

EMS67 



• ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCJ 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 

• ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCJ 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCJ 

.Asri 



auRONG UNIT SELECTED (RMCS2. BITS 0-2) 
abEVICE WENT a 

aUNAVAlLABLE 'DVA" (RMCS1. BIT 11) a 
aNONEXISTENT "MED" (RMCS2. BIT 12) a 
aCOMMAND NOT COMPLETED, a 
aCONTROLLER NOT READY (RMCSl, BIT 7) a 
aDRJVE NOT READY "DRY" (RMDS. BIT 7) a 
aCO NOT RESET "GO" (RMCSl. BIT 0) a 

aiNVALiD a 

aFiJNCTlON CODE (RMCSl. BITS 1-5) a 

aMAssBus a 

aCONTROL 3 

aeuS PARITY ERROR a 

a'WCPE" (RMCSl. BIT 13) a 

aTRANSFER ERROR (RMfS). BIT 14) a 

aSHQULD NOT BE SET a 

awORD COUNT (RMUC) a 

aBUS (RMBA) a 

a"L8T" (RMDS, BIT 10) a 

a"A0t" (RMER1. BIT 09) a 

aOISK (RMDA) a 

aCYLINDER (RMDC) a 

aADDRESS a 

asTATus a 

a'UE" (RMER1. BIT 11) a 
a'UPE" (RMCS2. BIT 13) a 
a'VrfCF" (RMER1. BIT 5) a 
aWRITE CHECK ERROR-' VCE" 
a'MDPE" (RMCS2. BIT h) 



(RMCS2. BIT 14) a 



a"DCK" 
a"ECH" 
a'DLT" 

a'wxF" 

a"DTE" 

a'HCRC 



(RMER1 
(RMER1 , 
(RMCS2, 
(RMCS2. 
(RMERl . 
' (RMERl 



BIT 
BIT 
BJ. 
BIT 
3IT 
BIT 



15) a 

6) a 
15) a 
9) a 

12) a 
8) a 



aHEADER COMPARl 
aFORMAT ERROR ' 
a"IAE" (RMERl, 
a' TOPI" (RMERl, 
a"SKr' (RMER2. 



ERROR "HCE" 
"ER" (RMERl, 
Bi' ^ 
BIT 13) a 
BIT 14) a 



(RMERl , 
BIT 4) 



BIT 7) a 



a* PIP" (RMDS. BIT 13) a 
aTHE RM a 
aDETECTED a 
aAT AN UNEXPECTED a 
aiNCORRECT DATA DURING a 

aiNVALiD COMMAND ERROR "IVC" (RMER2, BIT 12) a 

aDURING DATA TRANSFER a 

aDATA READ a 

aDOES NOT COMPARE WITH a 

aOATA WRITTEN d 

a"PAR" (RMERl. BIT 5) a 

aiS INCORRECT a 

aCOMPOSITE ERROR "ERR" (RMDS, BH 14) o. 
aDATA PARITY ERROR "DPE" fRMER2. 5) •>) 
aDURING SEEK COMMAND a 
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S8 076^50 
59 

6C 076255 
(jl 076265 
t2 076502 

63 076321 

64 076327 

65 076360 

66 076406 

67 076434 

68 076462 
o9 076511 

70 076520 

71 076547 

72 076576 

73 076615 

74 076644 

75 076655 

76 076717 

77 076741 

78 076771 

79 077015 

80 077020 

81 077050 

82 077072 

83 077113 

84 077156 

85 077213 

86 077256 

87 077310 

88 077353 

89 077416 

90 077455 

91 077513 

92 077553 

93 077577 

94 077622 

95 077664 

96 077727 

97 077754 

98 100011 

99 100032 

100 100060 

101 100075 

102 100123 

103 100133 
100162 
100201 

106 100216 

107 100235 

108 100261 

109 100305 

110 100327 

111 100343 
n2 100363 
113 100401 
'14 100416 



104 
105 



r 1 
105 

in 

104 
104 
114 
104 
042 
042 
042 
104 
105 
042 
042 
110 
102 
101 
127 
101 
124 
116 
015 
124 
106 
116 
103 
102 
103 
105 
101 
115 
105 
105 
115 

125 
103 
122 
104 
104 
115 
042 
104 
042 
125 
042 
123 
117 
040 
042 
042 
120 
116 
117 
116 
122 
122 



12^: 

122 
123 
111 

in 
11 / 

125 
122 
111 
111 
125 
122 
114 
114 
•105 
125 
104 
110 
124 
110 
117 
012 
110 
101 
117 
117 
125 
117 
122 
124 
101 
103 
103 
101 
117 
116 
117 
110 
122 
122 
105 
115 
122 
104 
116 
125 

no 

106 
126 
117 
126 
101 
117 
106 
117 
124 
111 



040 
122 
040 
104 
104 
123 
122 
115 
114 
114 
122 
122 
102 
123 
101 
123 
104 
105 
040 
105 
116 
000 
105 
111 
124 
116 
123 
116 
122 
124 

ni 

103 
103 
111 
124 
111 
116 
057 
111 
111 
104 
117 
111 
126 
123 
116 
117 
106 
117 
115 
126 
103 
124 
106 
124 
103 
120 



EMS 70 
F»<S71 

E1S72 

EMS73 

EMS74 

EMS75 

EMS 76 

EMS77 

EMS100 

EMS101 

EMS102 

EMS103 

EMS 104 

EMS105 

EMS 106 

EMS110 

EMSni 

EMSn2 

fcMS113 
EMS114 
EMS115 
EMS116 
EMS117 
EMS120 
EMS121 
EMS122 
EMS123 
EMS 124 
EMS125 
EI»«S126 
EMS 127 
EMS 130 
EMS131 
EMS IV 
EMS133 
EMS 134 
EMS135 
EMS 136 
EMS137 
EMS140 
EMS141 
EMS142 
EMS143 
EMS 144 
EMS145 
EMSU6 
EMS147 
EMS150 
EMS151 
EMS 152 
EMS153 
EMS 154 
EMS155 
EMS156 
EMS157 
EMS 160 



.ASC 
.ASC 

.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
,ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
-ASC 
.ASC 
.ASC 

• ASC 
.ASC 
.ASC 
.ASf 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 

• ASC 
.ASC 
.ASC 
.ASC 
.ASC 

• ASC 
.ASC 



SIS RESET a 
aERRONEOUS a 

ais SET a 

aOID NOT SET a 
aOID NOT RESET a 

aiosT a 

aOURlNC PACK ACK COMMAND a 
a'IRMR" {RMER\ BIT 2) a 
a"lLR" (RMERl, BIT 1) a 
a"iLF" (RMER1. BIT 0) a 
aOURING SEARCH COMMAND a 

aERsoR a 

a'lec" (RMER2, BIT 10) a 

a ISC" (RMER2, BIT 11) a 
aHEADER ERRORS a 
aeuS TIMEOUT (04 TRAP) a 
SADDRESS a 

aUHEN READING/WRITING RH REGISTERS a 

aAT THE FOLLOWING a 

aTHE SELECTED DEVICE IS a 

aNONEXISTENT DEVICE a 

<CR><LF> 

aTHE MASSBUS CONTROLLER a 
aFAlLED TO DETECT a 
aNOT AN RM05/3/2 i 

aCONTROL STATUS REGISTfcR 1. RMCS1. a 
aBUS ADDRESS REGISTER, RMBA, a 
aCONTROL STATUS REGISTER 2, RMCS2, a 
aERROR REGISTER 1. RMER1. a 
aATTENTION SUMMARY REGISTER, RMAS, a 
arWINTENANCE REGISIER *1. RMMR #1, a 
afCC POSITION REGISTER. RMECl, a 
aECC PATTERN REGISTER. RMEC2. a 
aWAINTENANCE REGISTER 2. RMr«2. a 
aNOT INITIALIZED BY a 

auNisus INITIALIZE a 

aCONTROLLER CLEAR. I.E. BIT 5 OF a 

aRH/RM ERROR CLEAR (RMCSI . BIT 14) a 

aORlVE CLEAR COMMAND a 

aORlVE STATUS REGISTER, RMDS a 

aWEDIUM OFF LINE a 

a'lWL" (RMDS. BIT 12) a 

aDRlVE FAULT a 

a*T)VC" (RMER2, BIT 7) a 

aUNSAFE a 

a'DNS" (RMER1. BIT 14) a 
aSHOULO BE SET a 
aOFFSET MODE a 

a VOLUME VALID a 
a'W (RMDS. BIT 0) a 
a'W" (RMDS, BIT 6) a 
aPACK ACK COMMAND a 
aNOT SET BY a 
aOFFSET COMMAND a 
aNOT RESET BY a 
SRTC COMMAND a 
aHIP COMMAND a 
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ns 


100455 


IV 


106 


•06 


EMS 61 


.ASCJ2 


116 


100465 








EMS162 




117 


100465 


104 


125 


122 


EMS 165 


.ASCIZ 


118 


100507 


111 


12? 


040 


EMS 164 


.ASCJJ 


119 


100556 


103 


151 


114 




.ASCIZ 


120 


100570 


125 


116 


105 


EMS165 


.ASCIZ 


121 


100604 


122 


105 


103 


EMS166 


.ASCIZ 


122 


100651 


042 


101 


124 


EMS 167 


.ASCIZ 


125 


100656 


127 


110 


105 


EMS170. 


.ASCIZ 


124 


100705 


105 


122 


122 


EMS171. 


.ASCIZ 


125 


100740 


116 


117 


116 


EMS 172 


.ASCIZ 


^26 


100760 


122 


105 


105 


EMS173 


.ASCIZ 


127 


100775 


104 


101 


124 


EMS 174 


.ASCIZ 


128 


101003 


104 


125 


122 


EMS 175 


.ASCIZ 


129 


101031 


042 


117 


120 


EMS 176 


.ASCIZ 


150 


101060 


111 


116 


040 


EMS1 77 


.ASCIZ 


131 


101102 


103 


101 


116 


EMS200 


.ASCIZ 


132 


101117 


104 


111 


101 


EMS201 


.ASCIZ 


133 


101165 


104 


125 


122 


EMS202 


-ASCIZ 


134 


101215 


111 


116 


103 


EMS203 


.ASCIZ 


135 


101230 


042 


127 


122 


EMS204 


• .ASCIZ 


136 


101256 


105 


150 


105 


EMS205 


• .ASCIZ 


157 


101270 


127 


111 


124 


EMS206 


• .ASCIZ 


138 


101315 


042 


107 


117 


EMS207 


.ASCIZ 


159 


101342 


127 


122 


111 


EMS210 


■ .ASCIZ 


KG 


101555 


127 


101 


123 


EMS211 


: .ASCIZ 


141 


101571 


120 


122 


117 


EMS212 


: .ASCIZ 


142 


101414 


127 


101 


125 


EMS213 


: .ASCIZ 


143 


101437 


123 


105 


105 


EMS214 


: .ASCIZ 


144 


101455 


120 


122 


117 


EMS215 


: .ASCIZ 


145 


101476 


104 


125 


122 


EMS216 


: .ASCIZ 


Kb 


101526 


114 


117 


117 


EMS217 


: .ASCIZ 


147 


1015^1 


125 


105 


101 


EMS220 


: .ASCIZ 


148 


101^1 


102 


101 


104 


EMS221 


: .ASCIZ 


149 


101651 


101 - 


040 


104 


EMS222 


: .ASCIZ 


150 


101702 


110 


105 


101 


EMS225 


: .ASCIZ 


151 


101757 


116 


117 


116 


EMS224 


: .ASCIZ 



aOFFSET BfGlSTER (RMOH i 
;<UNUSED> 

dDURING RECALIBRATE a 

aiS INTERMITTENT OP DRIVE DIDNT DROP ON h 

aCYLlNDER a 

aUNEXPECTEO a 

afiECALIBRATE COMMAND a 

a"ATA" (RMDS, BIT15) ot 

aUHEN READING REGISTER S 

aE-'^ROR REGISTER »2. RMER2. a 

aNDNRECOVERABLE a 

aRECOVERABLE a 

aDATA a 

aDURING WRITE COMMAND a 
a't)PE" (RMER2, BIT 15) 3 
aiN WRITE PROTECT 3 
aCAN NOT SET a 

aDIAGNOSTIC MODE "DMD" (RWRI, BIT 0) i 

aDURING DIAGNOSTIC MODE a 

aiNCORRECT a 

a'V/RL" (RMDS. BIT 11) a 

aEXECUTED a 

awiTH :OMP ERROR SET a 

a"GO" (RMCS1. BIT 0) a 

auRiTiNG a 

aWAS RESET BY a 
aPROGRAM INTERRUPT a 
aWAS NOT GENERATED a 
aSEEK COMMAND a 
aPROGRAM TIMEOUT a 
aDURING LOOK AHEAD TEST 3 
aLOOK AHEAD REGIS! ER.RMLA. a 
aSEARCH COMMAND a 

^D SECTOR ERROR "BSE" (RMER2. BIT 15) a 
SA DATA TRANSFER COMMAND a 

aHEADER COMPARE INHIBIT "NCI" (RMOF. BIT 10) a 
aNONEXISTENT MEMORY '>JEM" (RMCS2. BIT 11) a 



I 







r ' 'ML 




jAi£ S 




* 




10S 






102 


5 


1C2C57 


040 


i. 


102076 


'22 


6 


102125 


105 


7 


10215? 


105 


8 


102201 


123 


9 






'0 


^Q?227 


'O' 


n 


: 02266 


'22 




102525 


1 57 


■•3 


102364 


105 


74 






15 


102A23 


122 


16 


102<»63 


137 


17 


102521 


105 


18 


102561 


105 


19 


102600 


040 


20 






?1 


102627 


040 


22 


102674 


040 


21 


102704 


040 


?4 


102751 


040 


?5 


'02773 


040 


36 


10503' 


040 


27 
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130 12C EMI: 

125 123 fHllO: 

1?2 115 EHin. 

105 103 EHIU: 

130 ^20 EH223: 

150 120 EH256: 

124 101 

104 101 FH356: 

115 103 EH537: 

15' 157 

150 120 

105 EH544: 

137 137 

150 120 

150 120 tH553: 

122 115 

122 115 STSHI: 

040 040 

122 lib STSH2: 

040 040 

'22 115 STSH5: 

'22 115 STSH4 
.EVEN 
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.ASCIZ 


aEXPCTD 


RECEVDa 






.ASCIZ 


aeusADRa 








.ASCIZ 


a RMCS2 


RMCSia 






.ASCIZ 


ifiECEVD 


SNGPRT 


D'JLPRTa 




.ASCIZ 


aEXPCTD 


RECEVD 


DAT Ad 




.ASCII 


aEXPCTD 


RECEVD 


R6STRa<CRLF> 


.ASCIZ 


SSTATUS 


STATUS 


INDEXa 




•ASCIZ 


aCDADRS 


GDDATA 


BDADRS 


BDDATAa 


.ASCII 


aRrics2 


STATUS 


FAILING 


DATAa<CRLF> 


.ASCII 


a 






a<CRLF> 


•ASCIZ 


aPXPriD" 




-BIT- 


"WRFSSa 


ACT I f 




STATUS 


HEADER 


FAlLlNGa<CRLF> 


.ASCII 


a 




WORD 


8ITa<CRLF> 


.ASCIZ 


aPSPfTP" 


NUMBER 


POSITONa 


•ASCII 


aEXPCTD 


RECEVDa<CRLf > 




.ASCIZ 


a RMLA 


RMLA 


RMOF a 




•ASCII 


a RMCS1 


RMCS2 


RMDS 


RMER1 RMER2a 


•ASCIZ 


a RMAsa 






•ASCII 


a Rriuc 


RMaA 


RMDA 


RMOF RMDCa 


•ASCIZ 


a RMEC1 RMEC2a 




.ASCIZ 


a RMDA 


RMDC 


RMOF 


RMLAa 


.ASCIZ 


a RmRi 


RWR2 


RMDT 


RMSNa 
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5 
6 
7 

8 
9 

10 

12 
13 
U 
^5 
16 
17 



105070 
'05076 
1C510? 

103110 
103120 



103U2 
103154 

10316A 
103202 
'03216 
103222 
103234 



001 UO 001 u? 
001276 COOOOO 
001174 001176 



001362 
001 UO 



001176 
001 U2 



000000 

000000 

001200 
001174 



001140 
001 140 

001334 
001336 
001402 
001 342 
001360 



001142 
001142 

001 344 
001340 

ooooor 

001370 
001 374 



001174 
001442 

001346 
001342 

001 366 
001 362 



EDI : 

ED110 

ED111 

ED114 
ED223 



103130 001134 001140 001136 ES336 



ED337 
ED353 

STSD1 
STSD2 

STSD3 
STSD4 
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SCO 02n 



.WORD 


SGDDAT.SBDDAT.O 






.WORD 


$TW0.$TMP1.0 


.WORD 


RMDTJ,$TMP1,$TMP2,0 


.WORD 


$GDDAT.$8DDAT,$T«P0,0 


.WORD 


SGDADR , SgDDAT , SSDADR , S8DDAT , 0 


.WORD 


$GDDAT.$8DDAT.$TI«1P0.$TMP1 .0 


.WORD 


SGDDAT . SSDDAT .RMOF 0 , 0 


.WORD 


RMCS1 1 ,RMCS2I ,RMDSI ,R«ER1 I .RMER2I ,R«ASI .9 


.WORD 


RMWCI ,RMBAI .RMDAI .RMOF 1 .RWC I .R«EC1 1 


.WORD 


rme:2i.o 


.WORD 


RMDAI .RMDCI ,RMOF I ,RMLAI .0 


.WORD 


RMMR1 1 .RMMR2I .RW1 1 .RMSNI .0 



I 
I 

/ 

* 

I 

i 

/ 

I 



I 



I 

I 



rtiqc« l^SSAGk SOWINGS 



3 103251 



103^5<. 
103260 

103?65 



000 
000 
OCO 
000 
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072072 


EMT 340 


075146 


EMS 32 


074705 


EMT113 


070476 


EMT 176 


071376 


EMT26 


067462 


EMT341 


075160 


EMS33 


074 734 


EMril4 


070512 


EMT177 


071404 


EMT260 


072104 


EMT342 


075166 


EMS 34 


074762 


EMTr 5 


070520 


EMT2 


067252 


EMT261 


072116 


EMT 343 


075200 


EMS35 


075033 


EMT116 


070530 


EMT20 


067402 


EMT262 


072136 


EMT344 


075212 


FMS56 


075062 


EMT117 


070540 


EMT200 


071406 


EMT263 


072146 


EMT545 


073224 


EMS37 


075111 


EMn2 


067326 


EMT201 


071420 


EMT264 


072156 


EMT346 


073234 


EMS4 


073763 


EMT120 


070550 


EMT202 


071452 


EMT265 


072176 


EMT347 


073250 


FMSAO 


075137 


EMn21 
EMT 122 


070560 


EMT203 


071444 


EMT266 


072216 


EMT35 


067552 


EMS41 


075166 


070570 


EMT204 


071456 


EMT267 


072230 


EMT350 


073262 


EMS42 


075214 


EMT123 


070600 


EMT205 


071474 


EMT27 


067472 


EMT 351 


073300 


EMS43 


075243 


EMn24 


070610 


EMT206 


071504 


EMT270 


072246 


EMT 552 


075310 


EMSA4 




EMT125 


070620 


EMT207 


071514 


EMT271 


072262 


EMT353 


073314 
073324 


FM<;45 


075345 


FMT126 


070630 


EMT21 


067412 


EMT272 


072300 


EMT354 




075410 




070642 


EMT210 


071526 


EMr?73 


072316 


EMT36 


067S6? 



MML.I 








• _ ADD — fi ^ 




•A8.F 




• 






0675/? 




:c'00ic 


l8T = 




067^66 


> ? 


0000?0 


LF 




06760? 


f 4 


000040 


LODEV 




067610 


GET 


04?710 


lS 




067620 


GETBUF 


001334 


LSC 




06763? 


GETINX 


001514 


LST - 




0676^? 


GETSTS 


04?6?4 


LSTRK 




06765? 


GO 


000001 


MCLK - 




06766? 


GTSyft = 


104407 


MCPE 


FMT47 


06767? 


HCE = 


000200 


MDF 


FMT5 


067? 74 


HCl 


00?000 


MDPE 


EMT50 


067700 


HCRC - 


000400 


MI 


fcMTSi 


067710 


HELP 


103?74 


MOC 


FMT5? 


0677?? 


HT 


00001 1 


MOH 


EMTS3 


067740 


:ae 


002000 


MOL 




067756 


leSAw-E 


063132 


MRD 


EMT55 


067766 


IDXMSK= 


000077 


MS 


EMT56 


070000 


IE 


000100 


MSC 


EMT57 


070016 


ILF 


000001 


MSDRVS 


EMT6 


06730? 


ILFO? - 


000002 


MSE 


EMT60 


0700?6 


1LF?4 


000024 


MSER - 


E^«T61 


070044 


ILF?6 - 


000026 


•"ISGDRV 


EMT62 


070064 . 


ILF30 = 


000030 


MSHELP 


EWT63 


070100 


ILF3? = 


000032 


MUR 


EMTW 


07010? 


ILF 34 = 


000034 


MWD 


EMT65 


0701?? 


ILF36 = 


000036 


MWP = 


EMT66 


07014? 


ILF40 = 


000040 


MXF 


EMT67 


070154 


ILF4? = 


000042 


N 


FMT7 


067310 


ILF44 - 


000044 


NDTMSK- 


fm70 


070166 


ILF46 - 


000046 


NED - 


Fi»1T71 


0701 76 


ILF54 


000054 


MEM 


EMT72 


0/0?06 


ILF56 = 


000056 


NONE 


EMT7? 


070??4 


ILF64 - 


000064 


NOP = 


EMT7A 


070?4? 


ILF66 


000066 


NOTAVL 


FMT75 


070?5? 


ILF74 - 


000074 


NOTPRS 


EMT76 


070?7? 


ILF76 = 


000076 


NOTRM 


FMT77 


07030? 


ILR 


000002 


NSA = 


. ObAl S 


066326 


ILRG50= 


000050 


OCC 


ERR = 


040000 


ILRG5?- 


000052 


OFD = 


ERRI^ 


06400? 


ILRG54- 


000054 


OFFSET 


ERROR = 


104000 


1LRG56= 


000056 


OM 


FRRTVP 


063134 


iLRGdO 


000060 


OPE 


FRRVE'" = 


.•J04 


ILRG6?= 


000062 


OPI 


FRTrOO 


Oi -01 0 


. ILRG64 


000064 


OR 


ertyci 


06A..15 


ILRG66- 


000066 


PACACK- 


ERTY02 


^?5 


ILRG70- 


000070 


PAKACK- 


ERTY03 


064034 


ILRG7?= 


000072 


PAR 


ERTYCK 


06404? 


ILRG74- 


000074 


PAT 


FRTY05 


064045 


ILRG76= 


000076 


PDA 


FSRC = 


004000 


lOTVEC 


000020 


PFECH 


FER = 


000020 


IPCKO = 


000001 


Pf ECHI 


f IHO = 


000001 


IPCKI = 


000002 


PFECH2 


Fwn6 = 


010000 


IPCK? = 


000004 


PFECH3 


fNCDTB 


067136 


IPCK3, = 


000010 


PFECH4 


FNCI«!S< = 


000077 


IR 


000100 


PGE = 


FO 


00000? 


Wf 


010000 


PGM 




000004 


.6' 


002000 


PHA 
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002000 


PJP r 


0200U0 


RMD8 - 


000022 


000012 


PIRO = 


17777? 


RMD%I 


001356 


066776 


PIROVE- 


000240 


RMD80 


001432 


000004 


PLFS - 


002000 


RMDC = 


000034 


004000 


PRIERR 


04 3706 


RMDCI 


001370 


00000? 


PRO = 


000000 


RMDCO 


001444 


001332 


PR1 - 


000040 


RMDS 


000012 


C04000 


PR2 


000100 


RMDSI 


001346 


020000 


PR3 = 


000140 


RMDSO 


001422 


000100 


PR4 r 


000200 


RMDT = 


000026 


000400 


PR5 = 


000240 


RMDTI 


001362 


000004 


PR6 


000300 


RMDTO 


0014 36 


000400 


PR7 


000340 


RMEC1 = 


000044 


020000 


PS 


177776 


RMEC1I 


001400 


010000 


PSEL 


002000 


RMEC10 


001454 


002000 


PSW 


177776 


RMEC2 - 


000046 


000040 


PUT 


043160 


RMEC2I 


001402 


000002 


PUT8UF 


001410 


RMEC20 


001456 


066676 


PUTINX 


001543 


RMCR1 = 


000014 


100000 


PWRVEC= 


000024 


RMER1I 


001350 


000200 


CUES 


066335 


RMER10 


001424 


066712 


RCLSTS 


054056 


RMER2 = 


000042 


066344 


RD 


000070 


RMER2I 


001376 


001000 


RDCHR - 


104411 


RMER20 


001452 


000010 


RDLIN = 


■'0441? 


RMHR = 


000036 


000010 


RDOCT = 


104413 


RMHRI 


001372 


001000 


RDY 


000200 


RMHRO 


001446 


067124 


READY 


007660 


RMLA - 


000020 


115760 


RECAL = 


000006 


RMLAl 


001354 


010000 


RESREG= 


104415 


RMLAO 


001430 


00^000 


RESVEC- 


000010 


RMMR1 = 


000024 


067117 


RE' = 


010000 


RMMR1I 


001360 


000000 


RG 


040000 


Rr«RlO 


001434 


067030 


RH = 


000072 


RMMR2 = 


000040 


067013 


RIP = 


000020 


RMMR2I 


001 374 


066755 


RLEASE= 


000012 


RMMR20 


001450 


1 00000 


RMAS = 


000016 


RMOF 


000032 


100000 


RMASI 


001352 


RMOFl 


001366 


000200 


RMASO 


001426 


RMOFO 


001442 


000014 


RMBA = 


000004 


RMR 


000004 


000001 


RI<«AE = 


000050 


RMSN - 


000030 


020000 


RMBAEI 


001404 


RMSNI 


001364 


020000 


RMBAEO 


001460 


RMSNO 


001440 


000200 


RMBA I 


001340 


RMWC - 


000002 


000022 


RMBAO 


001414 


RMWCI 


001336 


000022 


RMCS1 = 


000000 


RMWCO 


001412 


000010 


RMCS1I 


001334 


RQA 


100000 


000020 


RMCS10 


001410 


ROB 


040000 


000400 


RMCS2 = 


000010 


RTC 


000016 


064052 


RMCS2I 


001344 


R6 


X000006 


064062 


RMCS20 


001420 


R7 


X000C07 


064150 


RMCS3 = 


000052 


SADMSK= 


000577 


064166 


RMCS3I 


001406 


SAVREG= 
SA1 = 


104414 


064174 


RMCS30 


001462 


000001 


002000 


RMDA = 


000006 


SA16 = 


000020 


001000 


RMDAI 


00134? 


SA2 - 


000002 


00020C 


RMDAG 


001416 


SA4 - 


000004 
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".AS = 
S.HSTS 

roPE = 

iCO s 
SCI « 



sr4. 

SEARCHr 

SECERR 

SEEK = 

CEKSrS 

SHUT 

SI7CLK 

SKI 

SNGPRT= 

S'ACK = 

STANOA 

START 

START1 

START? 

STCDRV 

:t»clmt= 

STOP 
STSD1 
STSD2 
STSD3 
STSD4 
3TSF 
STSMI 
STSH2 
S^SH? 
STSH« 
SWR 
SWREG 
SWO = 
SWOO - 
SW01 - 
SW02 = 
SW03 - 
SWCK = 
SW05 = 
SW06 = 
SW07 = 
SW08 = 
SW09 = 
Sw1 = 
swio = 
syll = 

Stfl? = 

syi3 = 

SWK = 
SWTS = 

^w? - 
W3 



000010 

100000 

056422 

OOOOOA 

003700 

000100 

000200 

000400 

001000 

002000 

000030 

0A4540 

000004 

051024 

065450 

045400 

040000 

020024 

001100 

007010 

005422 

005412 

005426 

057766 

1 7777^ 

062512 

103164 

103202 

1C3222 

103234 

103205 

102627 

102704 

102773 

103031 

001 1 54 

000176 

000001 

000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

COOO'C 



Sw4 

iW5 

SW6 

SW7 

SW8 

SW9 

SVSTAT 

TADMSK= 

TAG = 

TAGADR: 

TAP : 

TA1 

TA16. : 
TA2 ■ 
TA4 
TA8 

T8ITVE= 
TIMOUT 
TKVEC = 
TFVEC = 
TRAPVE= 
TRE 

TRTVEC- 
TST 

"STNMB 

TSTPRP 

TSTOUE 

TST1 

TST10 

TST11 

TST12 

TST13 

TST14 

TST15 

TST16 

TST17 

TST2 

TST20 

TST21 

TST22 

TST23 

TST24 

TST25 

TST26 

TSr27 

TST3 

TST30 

TST31 

TST32 

TST33 

TST34 

TST35 

TST36 

TST37 

rbT4 

TST40 

TST41 



000020 
000040 
000100 
000200 
000400 
001000 
066720 
1 77400 
020000 
001114 
040000 
000400 
010000 
001000 
002000 
004000 
000014 
043522 
000060 
000064 
000034 
040000 
000014 
010000 
064000 
041650 
001464 
010046 
013426 
013726 
014144 
014452 
014762 
015224 
015502 
015752 
010246 
016202 
016526 
017146 
017512 
020104 
020574 
021142 
021464 
011116 
022046 
022364 
023150 
023674 
024464 
025250 
025602 
026242 
011454 
026462 
027020 



TST42 

TST43 

TST44 

TST45 

TST46 

TST47 

TST5 

TST50 

TST51 

TST52 

TST53 

TST54 

TST55 

TST56 

TST57 

TST6 

TST60 

TST61 

•ST62 

TST63 

TST64 

TST65 

TST66 

TST67 

TST7 

TYP8N - 

TYPDS - 

TVPE - 

TYPOC - 

TyPON - 

TYPOS = 

UNS 

UNTMSK: 
UNTOFF 
UNTON 
UPE 

USE -- 

UO 

U1 

U2 

VV 

WC 

WCD = 
WCE 

WCEH] = 
WCELO = 
WCF : 
UCH 

UD - 

WH 

ULE 

WRL 

XSIZ 

XXDP 

y 

SAPTHD 
$ATVC 



027306 
027574 
030106 
030406 
030666 
031170 
011660 
031474 
032112 
032540 
033156 
033516 
034060 
034404 
035032 
012174 
035510 
036214 
036614 
037224 
037624 
040204 
040550 
041106 
012354 
104406 
104405 
104401 
104402 
104404 
104403 
040000 
000007 
067047 
067060 
020000 
040000 
000001 
010002 
000004 
000100 
000040 
000050 
040000 
,010000 
004000 
000040 
000052 
000060 
00006? 
004000 
004000 
006454 
001330 
067126 
001100 
066 1U4 



SATYl 

$ATy3 

$ATY4 

SAUTOe 

$8ASE 

$8DADR 

^8DDAT 

$8tLL 

$8IN 

SCDW1 

SCDW2 

SCHARC 

SCKSUR 

SCMTAG 

$CM3 = 

$CM4 ' 

SCNTLC 

SC-VTLG 

SCNTLU 

SCPUOP 

SCRLF 

$D8LK 

SDDWO 

SDDWI 

SDDW2 

SDDU3 

SDDU4 

$DDU5 

$DDU6 

$DDW7 

SDEVCT 

SDEVM 

SDOAGN 

$DT8L 

SENDAD 

SENDCT 

SENULL 

$ENV 

SENVM 

SEOP 

SEOPCT 

SEOSP 

SERFLG 

SERMAX 

SERROR 

SERRPC 

$ERRT8 

SERTTL 

SESCAP 

$ETA8L 

SETEND 

SFATAL 

SFFLG 

SFILLC 

SFJLLS 

SGDADR 

SGDDAT 



066060 
066066 
066076 
001150 
001276 
001136 
001142 
001212 
060640 
001302 
001304 
061644 
064510 
001114 
000000 
000005 
065406 
065420 
065413 
001250 
001217 
061056 
001306 
001310 
001312 
001314 
001316 
001320 
001322 
001324 
001232 
001300 
041640 
061046 
041630 
041466 
041644 
001242 
001243 
041432 
041460 
041374 
001117 
001131 
062540 
001132 
001572 
001126 
001210 
001242 
001326 
001224 
066324 
001172 
001171 
001 1 54 
001140 



$Gf T42 

SGTSWR 

$GT42P 

$HD = 

$HJ8TS 

IMJOCT 

SICNT 

SILLUP 

SINTAG 

SITEMB 

$LF 

tLFLG 

slpadr 

tLPFRR 

SMADRI 

$MADR2 

$inADR3 

$MADR4 

SMAJL 

SMAMS1 

$/nAMS2 

$MAMS5 

SMAMS4 

$)«ADR 

$«FLG 

imEy 

SMSGAD 
JMSGLG 
JMSGTY 
SMSWR 

$«Typi 

$MTyP2 

SMTyP5 

$MTyP4 

tMXCNT 

SNULL 

SNWTST 

SOCNT 

SOMODE 

SOVER 

SPASS 

SPASTM 

tPOWER 

SPWRDN 

SPURMG 

SPWRUP 

SQUES 

SRDCHR 

SRDLIN 

SRDOCT 

SRDSZ - 

SRESRE 

$RM02 

$RW05 

SRM05 

SRTNAD 

SSAVRE 



041620 

064600 

041614 

000000 

001100 

065572 

001120 

066042 

001151 

001 1 30 

001220 

066325 

OOM 22 

001124 

001254 

001260 

001264 

001270 

001222 

001252 

001256 

001262 

001266 

001102 

066322 

065436 

001236 

001240 

001222 

065425 

001255 

001257 

001265 

001267 

062352 

001170 

000001 

061310 

061512 

062516 

001250 

001106 

066050 

065702 

066056 

065754 

001216 

065052 

065142 

065472 

000010 

060550 

066756 

066745 

066750 

041642 

06047? 
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SSAVR6 
»SCOPE 

tSETuP= 

tSTi-P = 

ISVLAO 

tSVPC = 

$SWR = 

tSWREG 

tSWRm= 

tSwOST 

f^ESTN 

STIMEi 

. ABS. 



066(K6 
061650 
00013^ 

1 mil 

062262 
0C0210 
167400 
001244 
000000 
062334 
001226 
001206 



STKCNT 

$Tt(.OEN= 

STtcQJN 

$TKC^J 

$TKS 

STICSRV 

STMPO 

tTMPI 

%mP2 



001162 
0642C0 
064210 
064207 
064202 
064204 
C64206 
001160 
064260 
001 1 74 
001176 
001200 



lT/iP3 
JTIXIP4 
STN = 
STP8 

tTPFLG 

$TPS 

STRAP 

$TRAP2 

$TRP = 

STRPAD 

tlSTW • 



106524 000 
OOOOOO 001 
ERRORS DETECTED: 0 

/IRTlJAl MEMORY USED: 61952 WORDS ( 242 PAGES) 

D»MA«IC MEMORY AVAILABLE FOR 70 PAGES 

: /RMHB . 8 I C . C ZRMMB/ C = C ZRMMB . DOC , C ZRMM8 . S Y SMAC /M 



001202 
001204 
000070 
001166 
001173 
001164 
065574 
C65634 
000016 
065646 
001104 
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$TSIf*1 001i'6 

$TTYIN 065376 

STYPBN 060566 

STVPDS 060642 

STVPE 061514 

STYPEC 061526 

STVPEX 061646 

STYPOC 061112 

JTYPON 061126 

$ TYPOS 061066 

SUNIT 001234 



Si/JJTM 001110 
SUSWR 001246 
$VECT1 001272 
$VECT2 001274 
SXOFF = 000023 
$X0N = 000021 
SXTSTR 061672 
StGET4= OOOOOO 
SSSU08= 000070 
SOFILL 061311 
.SX = 001100 
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t»OE T4 
tSSwOS 



lOFiLL 

SAOCAT 

tAPTHD 

tASTAT 

$ATY1 

SATY3 

SATYA 

tATYC 

SAUTOe 

SBASE 



teOADN 
SeDOAT 



tSELL ■ 

seiN 

SCDWI 

sew? 

ICHARC 



U-20 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1* 

39-1# 

39- 1# 

39- 1# 

37- 1 

39- 1 

5- 8 
46-1 
46-1* 

38- 1 

40- 1 
46-1 

6- 0* 
6-0* 

1 3-41 7 
13-886 
13-708 
13-E58 

6-0* 

6-0* 
13-113* 
1 5-225* 
13-31 3* 
1 3-360* 
13-653* 
1 3-899* 
13-:38 
13-<79* 
?1-50* 
22-67 
?2-171* 
22-285* 

22- 418* 

23- 120* 
26-99* 
28-44* 
28-126* 

30- 103* 

31- 28* 

31- 103* 

32- 243- 
6-0* 

35-1 

6-0* 

6-0* 
38-1 
42-1* 



14-20* 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1* 

39-1* 

39-1* 

39- 1* 
37-1* 

40- 1 
5-8* 

46-1 

46-1* 

46-1* 

46-1* 

10-28* 

10-75 

13-441 

13-915 

13-742 

13-E96 

56-8 

13-68* 

13-117* 

13-229* 

13-314* 

13-369* 

13-670* 

1 3-909* 

13-:91* 

13—09* 

21- 53 

22- 85* 
22-18^* 
22-3U* 

22- 432* 

23- 121* 
26-100* 
28-53* 
28-127* 

30- 120* 

31- 29* 

32- 58* 
32-257* 
40-1 
35-1* 



38-1* 
44-1 



39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


J' 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


30-1 




39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


Jr^ \ 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 




39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 




39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39- y 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


5- 1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


39-1* 


37-1* 


3/-T 























42-1 

11-33 

13-463 

13-981 

13-776 

13-F35 

1 3-69* 

13-118* 

13-236* 

13-324* 

13-371* 

13-671* 

13-910* 

13-: 92* 

13- 10* 

21- 71* 

22- 86* 
22-184* 
22-315* 

22- 433* 

23- 122 
26-106 
28-61 
28-129 

30- 134* 

31- 31 

32- 76* 

33- 46* 
40-1 
35-1* 



38-1' 
44-1 



42-1 
11-42* 
1 3-488 
13-: 48 
13-S25 
13-F 79 

13-71 

13-120 

13-245* 

13-329* 

13-571* 

13-683* 

13-958* 

13-: 93 

13-=11 

21- 77* 

22- 87 
22-200* 
22-329* 

22- 455* 

23- 137* 
26-117 

28- 71* 

29- 27* 

30- 159* 

31- 41* 

32- 1C7* 

33- 62* 
40-1 
35-1* 



38-1 



42-1 

12- 55 

13- 510 
13-; 14 
13-376 
17-36 

13-76* 

13-125* 

13-250* 

13-330* 

13-572* 

13-684* 

13-959* 

13-; 02* 

13-A49* 

21- 93* 

22- 107* 
22-201* 
22-330* 

22- 456* 

23- 138 
26-130* 

28- 72* 

29- 41* 

30- "' 74* 

31- 50* 

32- 108* 

33- 78* 
42-1 



58-1* 



13-1 
13-540 
13-; 80 
13-A24 
18-30 

13-80* 

13-126* 

13-284* 

13-335* 

13-577* 

13-825* 

13-960 

13-; 03* 

13-A50* 

21- 110* 

22- 108* 
22-226* 
22-344* 

22- 470* 

23- 150* 
26-143* 

28- 81* 

29- 57* 

30- 189* 

31- 57* 

32- 109 

33- 98* 
42-1 



13-32 
13-558 
13-<22 
13-A58 

20- 11 

13-85 

13-129* 

13-289* 

13-336* 

13-578* 

13-826* 

13-969* 

13-; 04 

13-A78* 

21- 126* 

22- 109 
22-227* 
22-345* 

22- 471* 

23- 151 
26-168* 

28- 82* 

29- 71* 

30- 205* 

31- 60 

32- 129* 

33- 112* 
42-1 



13-137 
13-589 
13-<54 
I3-A95 

25- 23 

13-90* 

13-130* 

13-290* 

13-341* 

13-600* 

13-830* 

13-970* 

13-; 57* 

13-A79* 

21- 154* 

22- 140* 
22-241* 
22-361* 
22-492* 
24-39* 

26- 182* 

28- 84 

29- 85* 

30- 222* 

31- 69* 

32- 130* 
56-1 



13-179 
13-625 
13-<87 
13-831 

27- 15 

13-91* 

13-132 

13-295* 

13-342* 

13-601* 

13-831* 

13-971 

13-; 58* 

13-892* 

22-40* 

22-141* 

22-2U2* 

22-362* 

22-493* 

24-54* 

26-183* 

28- 94* 

29- 99* 

30- 240* 

31- 70* 

32- 133 
56-6 



13-204 
13-660 
13-=56 
13-C08 
41-25 

13-95* 

13-191* 

13-296* 

13-347* 

13-613* 

13-863* 

13-:25* 

13-; 59 

13-E87* 

22-41* 

22-142 

22-256* 

22- 387* 

23- 10* 
26-37* 
26-196* 

28- 103* 

29- 113* 

30- 254* 

31- 72 

32- 153* 
56-8 



13-255 
13-692 
13—84 
13-C59 
56-2 

13-101* 

13-193* 

13-301* 

13-348* 

13-614* 

13-864* 

13-: 26* 

13-; 68* 

13-E88* 

22-53* 

22-156* 

22-2^7* 

22- ZSS* 

23- 34* 
26-66* 
26-212* 
28-104* 
30-35^ 

30- 270* 

31- 81* 

32- 170* 
56-10 



13-273 
13-757 
13->12 
13-D19 



13-105* 

13-197* 

13-302* 

13-353* 

13-635* 

13-870* 

13-:27 

13-; 69* 

13-F 18* 

22-54* 

22-157* 

22-27^* 

22- 402* 

23- 92* 
26-67* 
28-31* 
28-106 

30- 49* 

31- 16* 

31- 82* 

32- 186* 
56-11 



13-375 
13-811 
1 3->46 
13-064 



13-106* 

13-198* 

13-307* 

13-354* 

1 3-636* 

13-875* 

13-:36* 

13-; 70 

13-F 19* 

22-64* 

22-158 

22-272* 

22- 403* 

23- 93* 
26-68 
28-32* 
28-116* 

30- 65* 

31- 17* 

31- 84 

32- 209* 



13-40& 
13-842 
13->80 
13-E12 



13-108 
■•3-217* 
13-308* 
13-359*- 
13-652* 
13-898* 
13-: 37* 
1 3-<50* 

21- 49* 

22- 65* 
22-170* 
22-284* 

22- 417* 

23- 94 
26-88* 
28-34 
28-117* 

30- 82* 

31- 19 
31-^* 
12-227^ 
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tCM3 

tCWTAG 
SCNTLC 

ICNTLU 
tCPUOP 
SCRLF 

S06LK 

SODWO 

SD0W1 

tDDy2 

«>DW3 

SDDW4 

SDDUS 

SDDU6 

SDDW7 

SOEVCT 

SOEVM 

tOOAGN 

SDTBL 

lENDCT 

tEMJLL 

SfNV 

lEN'^ 

IE OP 

lEOPCT 

tEOSP 

tERFLG 

lERMAX 

(ERROR 

tERRPC 

SERRTB 

SERTTL 

lESCAP 

SETABL 

SETENO 

tf ATAL 

tFFLG 

tFILLC 

tf ILLS 

&GOADR 

tCDDAT 



6-0 

6-0 

6-0# 

6-0* 
42-1 
42-1 
42-1 

6-0# 

6-0* 
40-1 
36-1 

6-0# 

6-0# 

6-0# 

6-0# 

6-0# 

6-0* 

6-0* 

6-0* 

6-0* 

6-0* 
14-20 
36-1 

5- S 
10-23 
14-20* 

6- 0* 
6-0* 

13-29 
10-23* 
1 3-239 

6-0* 

6-0* 
10-23 

6-0* 

8-0* 

6-0* 

6-0* 

6-0* 

5- 8 

6- 0* 
46-1 

6-0* 

6-0* 

6-0* 

6-0* 
13-132 
13-303* 
13-615* 
13-960 
13-: 93 
1 3-=08* 

21- 90* 

22- 84* 

23- 23* 

25- 136* 

26- 129* 



6-0* 

6-0 
6-0* 

10-23 

42-1 

42-'.* 

42-1 

10-48 

40-1 

36-1 



6-0 

10-23 
42-1 

42-1* 

10-80 

40-1 

36-1* 



6-0 

10-23 
42-1 



10-140 
41-20 



6-0 

10-23 
42-1* 



11-20 
41-61 



6-0 
10-23 



11-28 
41-lOi 



6-0* 
46-1* 
46-1* 
38-1 
38-1 
56-8 
1 3-70* 
13-192* 
13-309* 
13-637* 
13-964* 
13-:97* 
13-=11 

21- 91* 

22- 87 

23- 24* 
23-138 
26-142* 



46-1* 

38-1 

38-1 

13-71 

13-214* 

13-315* 

13-654* 

13-967* 

13-; 00* 

13-A48* 

21- 92* 

22- 98* 

23- 25* 
23-148* 
26-i6t>* 



46-1* 
38-1 



13-75* 

13-215* 

13-323* 

13-672* 

13-968* 

13-; 01* 

1 3-A80* 

21- 108* 

22- 106* 

23- 26* 
23-149* 
26-167* 



46-1* 



13-84* 

13-216* 

13-331* 

13-682* 

13-971 

13-; 04 

13-891* 

21- 109* 

22- 109 

23- 30* 
23-151 
26-181* 



13-85 

13-224* 

13-337* 

13-824* 

13-: 23* 

13-; 55* 

13-E86* 

21- 124* 

22- 135* 

23- 32 

24- 40* 
26-194* 



6-0 
10-23 



11-62 
41-114 



10-67* 


10-78 


10-117* 


10-121* 


11-63* 


11-70 


14-20 


14-20* 










36-1* 












10-28 


14-20* 


40-1 








14-20* 












10-28 


38-1 


40-1 


46-1 


46-1 




10-23 


10-71 


38-1 


38-1 


46-1 




14-20* 


42-7 










14-20 


14-20* 










14-9* 












39-1 


39-1 


39-1 


39-1 


39-1 


39-1* 


10-23* 


39-1 


39-1 


39-1 


39-1* 




40-1* 












40-1 


40-1 


40-1 


40-1* 


40-1* 


41-54 


41-72 












14-20 


14-20 


14-20* 


40-1 


40-1 


40-1* 


10-23* 


39-1* 


40-1 


40-1 


40-1 


40-1 



13-89* 

13-230* 

13-343* 

13-832* 

13-:24* 

13-; 56* 

13-F17* 

21- 125* 

22- 138* 

23- 86* 

24- 55* 
26-195* 



6-0 

10-23 



11-100 
4--126 



40-1 



13-107* 

13-237* 

13-349* 

13-866* 

13-: 27 

13-;59 

21-^1* 

21- 152* 

22- 139* 

23- 91* 
26-36* 
26-210* 



6-0 



6-0 



6-0* 



12-25 12-66 14-20 
41-134 41-154 42-1 



11-97* 11-98 



40-1 



13-108 

13-243* 

13-355* 

13-871* 

13-:31* 

13-;63* 

21-^2* 

21- 153* 

22- 142 

23- 94 
26-47* 
26-211* 



12-4 



40-1* 



13-112* 
13-244* 
13-361* 
1 3-876* 
13-: 34* 
13-; 66* 

21- 53 

22- 42* 

22- 154* 

23- 104* 
26-63* 
28-33* 



12-38 



13-119* 
13-251* 
13-370* 
13-900* 
13-: 35* 
13-; 67* 

21- 69* 

22- 55* 

22- 155* 

23- 117* 
26-68 
28-34 



6-0^ 



38-1 
42-1 



13-120 
13-283* 
13-573* 
13-911* 
13-: 38 
13-; 70 

21 - >0* 

22- 66* 

22- 158 

23- 122 
26-87* 
28-43* 



6-0* 



SEO 0285 



6-0* 



38-1 
42-1 



58-1 
• 42-1 



1 3-28* 42-6* 



13-124* 
13-291* 
13-579* 
13-956* 
13-:89* 
13-<49* 

21- 76* 

22- 67 

22- 165* 

23- 134* 
26-101* 
28-59* 



13-1 31 *> 
13-297* 
13-599* 
13-957* 
13-:90< 
13-<78« 

21- 78* 

22- 79* 

23- 16* 
23-135* 
26-102* 
28-61 
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SGETA2 

SGT42P 

SGTSWR 

SHO 

SHIBTS 

fMlOCT 

SICNT 

SILLUP 

SI NT AG 

SITEMB 

$LF 

SLFLG 

slpadr 

SLPERR 
SMADR! 
t^•ADR2 
$MADR3 
$nADR4 
SMAIl 



SMAMS1 

$MAMS2 

$MAMS3 

tMAMSA 

$^BADR 

SMFLG 

SMNEW 

SMSGAD 

$MSGLG 

SMSGTY 

snsuR 

SMTYPI 

SMTYP? 

$«TYP3 

$«TVPA 

SnXCNT 

SNULL 

tNWTST 



28-70* 
?9-59« 
30-6A* 

30- 188* 

31- 31 

32- 131* 
32-241* 
56-6 

12- 34 

14- 20 

42- 1* 

4- 471 

5- 8# 

43- 1* 

6- 0* 

45- 1 
6-0* 
6-0* 
6-0* 

46- 1* 
6-0* 
6-0* 
6-0* 
6-0* 
6-0* 
6-0* 

5- 8 

13- 417 
1 3-886 
13-708 
13-E58 

6- 0* 
6-0* 
6-0* 
6-0* 

5- 8* 
46-1 
42-1 

6- 0* 
6-0* 
6-0* 

42-1 

6-0* 

6-0* 

6-0* 

6-0* 
30-1 

6-0* 
13-1 
1 3-204* 
13-417* 
13-540 
1 3-660* 
13-886* 

15- ; 80 
M- 56* 
' ?-?08* 



28- 83* 

29- 72* 

30- 80* 

30- 203* 

31- 40* 

32- 132* 
32-242* 
56-8 
12-43 
14-20* 
44-1 

4-471 



28- 84 

29- 73* 

30- 81 * 

30- 204* 

31- 71* 

32- 133 
32-255* 
56-10 
14-20* 

44-1 
4-471 



28- 93* 

29- 86* 

30- 101* 

30- 220* 

31- 72 

32- 137 
32-256* 
56-11 



28- 105* 

29- 87* 

30- 102* 

30- 221* 

31- 83* 

32- 151* 

33- 44* 



28- 106 

29- 100* 

30- 118* 
30-238* 
3 '-84 

32- 152* 

33- 45* 



28- 115* 

29- 101* 

30- 119* 

30- 239* 

31- 92* 

32- 168* 

33- 60* 



5-8 
13-441 
1 3-91 5 
13-742 
13-E96 



46-1* 

42-1* 

46-1 

46-1* 

46-1 

42-1* 



39-1 

38-1 

15-1* 

13-255 

13-417* 

13-540* 

13-692 

13-886* 

13-; 80* 

15- 84 

13-708* 



6-0* 
13-463 
13-981 
13-776 
13-F35 



46-1* 
46-1* 
46-1 



39-1 

38-1 

13-1* 

13-255* 

13-441 

1 3-540* 

1 3-692* 

13-915 

15-; 80* 

15- 84* 

13-742 



10-23 
13-488 
13-: 48 
13-a25 
13-F79 



46-1* 



46-1* 



39-1* 

58-1 

15-52 

15-255* 

15-441* 

15-558 

1 5-692* 

15-915* 

15-<22 

13- 84* 

15-742* 



10-28 
15-510 
13-; 14 
13-976 
38-1 



13-1 
13-540 
13-; 80 
1 5-A24 
39-1 



13-32 
13-558 
1 3-<22 
13-A58 
40-1 



46-1* 



1 3-32* 

15-275 

15-441* 

15-558* 

15-757 

15-915* 

15-<22* 

15->12 

15-742* 



15-52* 

1 5-275* 

15-465 

15-558* 

15-757* 

13-981 

1 5-<22* 

15->12* 

15-776 



15-157 

15-275* 

1 5-465* 

13-589 

13-757* 

13-981* 

13-<54 

15->12* 

15- 7 7b* 



28- 128* 

29- 114* 

30- 132* 
30-252* 
32-56* 

32- 169* 

33- 76* 



43-1* 












39-1 


39-1 


39-1 


39-1* 


39-1* 




45-1 


45-1* 










42-1 


42-1 


42-1 


42-1 


42-1* 




40-1 


40-1 


40-1 


40-1 


40-1 


40-1* 40-1* 


38-1 


38-1 


40-1 


40-1 


42-1 


42-1 42-1 


46-1* 












10-23* 


39-1 


39-1 


39-1 


39-1* 


39-1* 39-1* 


10-25* 


39-1 


39-1 


39-1 


39-1* 


40-1 



13-137 
13-589 
13-<54 
1 3-A95 



13-157* 

15-575 

15-465* 

15-589* 

15-811 

15-981* 

13-<54* 

15->46 

15-V6* 



?8-129 

29-115* 

50-155* 

50-255* 

52-57* 

52-184* 

33-77* 



41-49 



1 3-1 79 
13-625 
13-<87 
13-831 



13-157* 

13-575* 

13-488 

13-589* 

15-811* 

15-: 48 

15-<54* 

1 5->46* 

15-i?5 



29- 25* 
50-33* 

30- 157* 
30-268* 
32-74* 
32-185* 
33 96* 



13-204 
13-660 
13—56 
13-C08 



15-179 

15-5^5* 

15-488* 

15-625 

15-811* 

15-: 48* 

1^-<87 

'5-^46* 

1 5-a2S* 



29-26* 

50-54* 

50-158* 

50-2^9* 

52-75* 

^2-207* 

33-97* 



15-255 
15-692 
1 3-=84 
13-C59 



15-179* 
1 5-400 
15-488* 
15-625* 
15-842 
15-:48* 
1 5-<87* 
15->80 
^ 5-a?S# 



29-59* 
50-47* 
50-175* 

31- 18* 

32- 88* 

32- 208* 

33- 110* 



13-273 
13-757 
13->12 
13-D19 



15-179* 
1 5-400* 
15-510 
1 5-625* 
1 5-842* 
15-; 14 
15-<87* 
15-^80* 
1 5-. ^6 



29-40* 
50-48* 

50- 175* 

51- 19 

52- 104* 
52-225* 
33-111* 



SCO 028*' 

29- 58* 
50-63* 

30- 187. 

31- 30* 

32- 109 

56-1 



13-375 
1'5-81 1 
13->46 
13-D64 



13-204 
1 3-400* 
13-510* 
13-660 
1 3-842* 
13-; 14* 
13-= 56 
1 3->80# 
i5-rt7Mr 



13-400 
13-842 
13->80 
13-EI2 



1 3-204* 
15-41 7 
15-510* 
15-660* 
13-886 
15-;14# 
13- SM 
13-708 
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13-A24 


1 5-A24* 


1 3-A24# 


13-A58 


13-A5P» 


13-A58* 


1 3-A95 


1 3-A95* 




13-CC8» 


13-C59 


13-C59* 


15-C59# 


13-D19 


1 3-D 19* 


1 3-D 19* 


1 3-D64 




'?-E58# 


13-E58* 


13-E96 


13-E96* 


13-E96* 


13-F35 


1 3-F 35* 


1 3-F 35* 


SOlNT 


57-1# 


37-1* 
37-1# 


37-1* 












sonoDE 


37-1 


37-'* 


37-1* 


37-1* 


37-1* 






tOVER 


39-1 


39-1 


39-' 


39-1 


39-1* 








»PASS 


6-«>r 


10-23* 


14-20 


14-20 


14-20 


14-20* 


14-20* 


39-1 


tPASTM 


5-8* 
















SPOUER 


45-1 


«.5-1* 














SPWRDN 


'0-23 


45-1 


45-'* 












SPURMG 


45-1* 
















SPUftUP 


45-1 


45-1* 














tOUES 


6-0# 


38-1 


38-1 


40-1 


40-1 


42-1 


42-1 


42-1 


tR2A 


44-1 
















tADCHR 


42-1# 


44-1 


44-1 












tRODE C 


44-1 
















tROLiN 


42-1# 


44-' 


44-1 












tRDOCT 


43-1# 


^4-1 


44-1 












tRDSZ 
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13-176* 
1 3-280 



46-1* 



13-146* 

1 i-390* 

13-436* 

13-490 

13-537* 

13-582* 

13-627 

1 3-694 

13-813 

13-879* 

1 3-983* 

13-; 82 

13-<56* 

13- 77* 

13->16* 

13->71 

13-722* 

13-766* 

13-327* 

13-398* 

13-A60* 

13-820* 

13-C31* 

13-C89* 

13-D49 

13-EU* 

13-E91 

13-F37* 

1 3-GOO* 

13-573 
1 3-672 
13-; 01 
30-185 
48-70 



11-97 



13-163* 

13-393* 

13-438* 

1 3-490* 

13-542 

13-584* 

"3-62/* 

1 3-694* 

13-813* 

13-881* 

13-:17* 

13-; 82* 

13-<60* 

13—79 

13->25* 

13->71* 

13-726* 

13-768* 

1 3-344* 

13-A02* 

13-A73* 

13-822* 

13-C33* 

13-C93* 

13-D49* 

13-E30* 

13-E91* 

13-F49* 

1 3-G02 

13-579 
13-680 
13-; 03 
30-188 
48-71 



13-170* 

13-397* 

13-443 

13-497* 

13-542* 

13-586* 

13-632* 

13-718* 

13-819* 

13-883* 

13-; 20* 

13-; 85* 

13-<72* 

13-= 79* 

13->30* 

13->73* 

13-728* 

13-779 

13-346* 

13-A04* 

13-A75* 

13-624* 

13-C37* 

13-C95* 

13-D51* 

13-E34* 

13-E93* 

13-F57* 

13-G02* 

13-597 
13-682 
13-; 66 
32-200 
48-72 



13-172* 

13-402 

13-443* 

13-499* 

13-547* 

13-591 

13-645* 

1 3-733* 

13-821* 

13-888 

13-: 22* 

13-; 88* 

13-<74* 

13-=81* 

13->32* 

1 3->83 

13-730* 

13-779* 

13-348* 

13-A06* 

1 3-A8A* 

13-826 

13-C39* 

13-C97* 

13-D66 

13-E36* 

13-E98 

13-F61* 

13-G04* 

1 3-599 
1 3-684 
13-; 67 
32-201 
48-73 



13-'' 76* 

13-402* 

13-453* 

13-501* 

13-549* 

13-591* 

13-647* 

13-735* 

13-835 

13-888* 

13-: 50 

13-<07* 

13-<89 

13-=87 

13->34* 

13->83* 

13-732 

13-795* 

13-352* 

13-A08 

13-A86* 

13-626* 

13-C41* 

13-C99 

13-D66* 

13-E38* 

13-E98* 

13-F63* 



13-601 
13-828 
13-;69 
32-253 
48-74 



13-189* 

1 3-408* 

13-455* 

13-503* 

13-551 

1 3-596* 

13-649* 

13-743* 

13-835* 

13-893* 

13-: 50* 

13-<10* 

13-<89* 

13-=87* 

13->36 

13->93* 

13-732* 

13-797* 

13-354* 

13-A08* 

13-A88* 

13-628* 

13-C43 

13-C99* 

13-D83* 

13-E40* 

13-Fn* 

13-F65* 



13-611 
13-831 
22-138 
32-256 
48-75 



13-210* 

13-410* 

13-460* 

13-505* 

13-551* 

1 3-604 

13-657 

13-745* 

13-837* 

13-895* 

13-:83* 

13-<12* 

13-=03* 

13-=97* 

13->36* 

13->97* 

13-734* 

13-799* 

13-356* 

1 3-AIO* 

13-A90 

13-848* 

13-C43* 

13-D01* 

13-DS7* 

13-E42 

13-F13* 

13-F67 



13-614 

13-832 

22-139 

48-58 

48-76 



1 3-264* 

13-412* 

1 3-465 

13-507* 

13-553* 

13-604* 

13-657* 

13-747 

1 3-839* 

13-906* 

13-:86* 

13-<14* 

13-=05* 

13->01* 

13->38* 

13->''9* 

13-745 

13-303* 

1 3-359 

13-A41* 

13-A90* 

13-851* 

13-C45* 

13-D21 

13-D89* 

13-E42* 

13-F24* 

13-F67* 



13-633 

13-967 

22-141 

48-59 

48-79 



1 3-267* 

13-414* 

1 3-465* 

13-512 

13-555* 

1 3-608* 

13-662 

13-747* 

13-844 

13-917 

13-:88* 

13-<24 

13-=07* 

1 3->03* 

13->49 

13-701* 

13-745* 

13-305* 

13-359* 

13-A43* 

13-A92* 

13-653* 

13-C61 

13-D21* 

13-D91* 

13-E44* 

13-F26* 

13-F69* 



1 3-636 
13-968 
26-1 56 
48-60 
48-80 



1 5-270* 

13-419 

15-475* 

15-512* 

15-560 

15-610* 

1 5-662* 

15-749* 

1 5-844* 

15-917* 

13-; 16 

13-<24* 

1 5-=59 

15->05* 

1 5->49* 

15-705 

1 5-756* 

1 5-307* 

15-361* 

15-A45* 

15-A98 

15-C10 

15-C61* 

15-D57* 

15-D95# 

15-E60 

15-F28* 

13-F82 



15-657 
1 5-970 
26-157 
t8-65 
48-83 



15-280* 
15-419* 
13-479* 
' <-525* 
5-560* 
13-618 
13-667* 
15-751* 
15-856* 
15-950* 
13-; 16* 
15-<27* 
15-=59* 
15->07 
13->61* 
13-705* 
13-760* 
13-310 
13-378 
15-A55 
13-A98* 
13-C10* 
13-C 77* 
15-041* 
13-095 
13-E60* 
15-F50 
13-F82* 



13-650 
15-: 54 
26-192 
«.8-64 
48-84 



12-17 49-3* 



^3- 


59* 


13-65 


13- 


65* 


15-146 


13- 


146* 


13- 


163 


13-163* 


1 70 


1 3-1 70* 


1 3-1 72 


13-172* 


13- 


176* 


13-189 


13- 


189* 


13-210 


13- 


210* 


13- 


264 


'3-264* 


M-267 


1 5-267* 


1 3-267* 


15-27C 


13- 


280* 


13-320 


13- 


520* 


1 3-366 


13- 


366* 


13- 


587 


15-387* 


^3-390 


13-390* 


13-590* 


13-393 
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1 5-395# 


13-393* 


13-597 


1 3-397* 


1 5-397* 1 




13-414 


13-414* 


13-414# 


13-419 1 




13-436* 


13-438 


13-438* 


13-438* 1 


13-A60# 


1 3-465 


1 3-465* 


13-475 


13-475* 1 


1 3-485* 


1 3-485* 


13-490 


1 3-490* 


1 3-497* 1 


1 3-507 


13-507* 


13-507* 


13-512 


13-512* 1 


13-55S* 


13-537 


13-537* 


13-537* 


13-542 1 


13-553 


13-553* 


13-553* 


13-555 


13-555* 1 


1 3-582* 


13-582* 


1 3-584 


13-584* 


13-584* 1 


'3-604* 


13-608 


13-608* 


13-610 


13-610* 1 


1 3-622* 


13-627 


1 3-627* 


13-632 


13-632* 1 


13-657# 


13-662 


1 3-662* 


1 3-667 


13-667* 1 


1 5-694* 


13-718 


13-718* 


13-733 


13-733* 1 


'5-747* 


13-747* 


13-749 


13-749* 


13-749* 1 


13-819 


13-819* 


13-821 


13-821* 


13-821* 1 


13-844 


1 3-844* 


13-856 


13-856* 


1 3-860 1 


15-881* 


1 3-883 


1 3-883* 


1 3-883* 


13-888 1 


1 3-91 7* 


1 3-950 


1 3-950* 


13-953 


13-953* 1 


13-:22 


13-: 22* 


13-: 22* 


13-: 50 


13-: 50* 1 


•3-; 49 


13-; 49* 


13-; 52 


13-; 52* 


13-; 54 1 


1 5-<10* 


13-<12 


13-<12* 


13-<14 


13-<14* 1 


13-<56* 


1 3-<60 


13-<60* 


13-<72 


13-<72* 1 


1 3-=07* 


1 3--07* 


13-=59 


13—59* 


13--69 1 


1 5-=79 


13—79* 


13-- 79* 


13-=81 


13- 81* 1 


1 5->03* 


13->05 


13->05* 


13->05* 


13->07 1 


13->30 


1 3->30* 


13->32 


1 3->32* 


1 3->32* 1 


1 5->49 


1 3->49* 


13->61 


13->61* 


13->65 1 


13->71* 


13->73 


13->73* 


15->73* 


13->83 1 


13-701* 


15-701* 


13-703 


13-703* 


13-703* 1 


'3-728 


13-728* 


13-728* 


13-730 


13-730* 1 


15-756 


13-756* 


13-760 


13-760* 


13-762 1 


'3-768* 


1 3-768* 


1^-779 


13-779* 


13-795 1 


' 5-a05* 


1 3-a05* 


13-307 


1 3-307* 


1 3-307* 1 


1 3-ea44* 


1 3-a46 


1 3-346* 


13-346* 


1 3-348 1 


1 3-359 


1 5-a59* 


1 3-359* 


13-361 


13-361* 1 


1 3-a98* 


1 5-A02 


1 3-A02* 


13-A04 


1 3-A04* 1 


'3- A 10* 


13-A41 


13-A41* 


1 3-A43 


13-A43* 1 


1 3-A60 


1 3-A60* 


13-A73 


13-A73* 


13-A75 1 


I3-A90 


1 3-A90* 


13-A90* 


1 3-A92 


13-A92* 1 


I 3-820* 


13-622 


1 3-822* 


1 3-822* 


1 3-824 1 


13-648* 


13-851 


13-851* 


1 3-853 


13-853* 1 


I3-C29* 


13-C31 


13-C31* 


13-C31* 


13-C33 1 


I3-C43 


13-C43* 


13-C43* 


13-C45 


13-C45* 1 


I3-C83* 


13-C85 


13-C85* 


13-C85* 


13-C89 1 


•3-C99 


13-C99* 


13-C99* 


13-D01 


13-D01* 1 


I3-D43* 


13-D45 


13-D45* 


13-D45* 


13-D47 1 


'3-D66* 


13-D83 


13-D83* 


13-D87 


13-D87* 1 


' 3-D95 


13-D95* 


13-D95* 


'3-D97 


13-D97* 1 


I 3-E 36* 


1 3-E 38 


13-E 38* 


13-E 38* 


13-E40 1 


'5-E60* 


1 3-E 76 


13-5^6* 


13-E 80 


13-E 80* 1 


'3-E 98 


13-E98* 


1 3-F 11 


13-Fn* 


■•3-F13 1 


I3-F50 


1 3-F 30* 


13-F 30* 


13-F 32 


1 3-F 52* 1 


'3-F63 


13-F63* 


1 3-F 6 3* 


13-F65 


15-F65* 1 


'3-F92 


15-f92* 


13-F 96 


13-F 96* 


13-F 98 1 


'5-G04* 


1 5-G04* 








0-3* 


^0-25 








4-^50* 


25-28 









15-402 
13-419* 
13-443 
13-479 
13-499* 
13-525 
13-542* 
13-555* 
13-586 
13-610* 
13-645 
1 3-679 
13-735 
13-751 
13-835 
1 3-860* 
13-888* 
13-955 
13-: 83 
13-; 54* 
13-<14* 
13-<74 
13-=69* 
13--81* 
13->07* 
13->34 
1 3->65* 
13->83* 
13-705 
13-730* 
13-762* 
13-795* 
13-310 
13-348* 
13-361* 
1 3-A04* 
13-A45 
13-A75* 
13-A92* 
13-824* 
13-853* 
13-C33* 
13-C45* 
15-C89* 
13-D01* 
13-D47* 
1 3-D89 
1 3-D97* 
I 3-E 40* 
13-E82 
13-F 13* 
13-F 32* 
13-F 65* 
1 3-F 98* 



1 3-402* 

1 3-426 

13-443* 

13-479* 

13-501 

13-525* 

13-547 

13-560 

1 3-586* 

13-618 

13-645* 

1 3-679* 

13-735* 

13-75''* 

1 3-835* 

1 3-862 

13-893 

1 3-955* 

13-: 83* 

13-; 54* 

13-<24 

13-<74* 

13-=73 

13-=87 

1 3->07* 

13->34* 

1 3->67 

1 3->93 

13-705* 

13-732 

13-762* 

13-797 

13-310* 

13-352 

13-378 

13-A06 

13-A45* 

13-A84 

13-A98 

13-924* 

13-ClO 

13-C37 

13-C61 

13-C93 

13-D21 

13-D47* 

1 3-D89* 

13-E14 

13-E 40* 

13-E 82* 

13-F 24 

13-F 37 

13-F67 

15-F98* 



5-408 

5-426* 

5-455 

3-481 

3-501* 

3-530 

3-547* 

3-560* 

3-586* 

3-618* 

5-647 

3-687 

3-735* 

3-751* 

5-855* 

3-862* 

5-893* 

3-955* 

3-: 86 

3-; 82 

3-<24* 

3-<89 

3-=73* 

3-=87* 

3->09 

5->34* 

3->67* 

3->93* 

3-705* 

3-732* 

3-764 

3-797* 

3-310* 

3-352* 

3-378* 

3-A06* 

3-A45* 

3-A84* 

3-A98* 

3-826 

3-C10* 

3-C37* 

3-C61* 

3-C93* 

3-D21* 

3-D49 

3-D89* 

3-E 14* 

5-E42 

5-E82* 

3-F 24* 

3-F 37* 

5-F67* 

5-600 



1 3-408* 

13-432 

13-455* 

13-481* 

13-503 

13-530* 

13-549 

13-566 

13-591 

13-618* 

13-647* 

1 3-687* 

13-743 

13-759 

13-837 

13-862* 

13-895 

13-985 

15-: 86* 

13-; 82* 

13-<27* 

13-<89* 

13-=75 

13-=97 

1 3->09* 

13->36 

1 3->67* 

13->97 

13-711 

13-732* 

13-764* 

13-797* 

13-312 

13-354 

13-394 

13-A06* 

13-A53 

13-A86 

13-808 

1 3-826* 

13-C24 

13-C39 

13-C77 

13-C95 

13-D37 

13-D49* 

13-D91 

13-E 30 

13-E42* 

13-E 91 

13-F 26 

13-F 49 

13-F 67* 

1 3-GOO* 



15-410 

15-452* 

15-455 

15-481* 

13-503* 

13-533 

13-549* 

13-566* 

13-591* 

13-620 

13-649 

1 3-687* 

13-743* 

13-759* 

13-837* 

13-879 

15-895* 

1 5-985* 

13-:88 

13-; 85* 

13-<35 

13-=03 

13-= 75* 

13-=97* 

1 3->09* 

15->36* 

1 3->69 

13->97* 

13-711* 

13-734 

13-764* 

13-799 

13-312* 

13-354* 

13-394* 

13-A08 

13-A53* 

1 3-A86* 

13-eoa* 

13-626* 
13-C24* 
13-C39* 
13-C 77* 
13-C95* 
13-D37* 
13-D49* 
13-D91* 
13-E 30* 
13-E 42* 
13-E 91* 
13-F 26* 
13-F 49* 
M-F69 
1 3-GOO* 



13-410* 

13-434 

15-455* 

15-485 

13-503* 

13-533* 

13-549* 

13-568 

1 ^-596 

15-620* 

1 5-649* 

15-689 

13-745 

1 3-804 

13-837* 

1 5-879* 

1 5-895* 

13-:17 

13-:88* 

13-; 88 

1 3-<35* 

13-=03* 

13—75* 

13->01 

13->16 

13->56* 

1 3->69* 

i3->99 

13-722 

1 3-734* 

13-766 

13-799* 

13-312* 

13-354* 

13-396 

13-A08* 

13-A53* 

13-A86* 

13-815 

13-628 

13-C27 

13-C 39* 

13-C81 

13-C95* 

13-D41 

15-D51 

15-D91* 

15-E54 

15-E44 

15-E91* 

13-F 26* 

15-F57 

15-F69* 

1 5-G02 



5-410* 

5-4 54# 

3-455* 

5-483* 

3-505 

3-533* 

5-551 

5-568* 

5-596* 

5-620* 

3-649* 

3-689* 

3-745* 

3-804* 

5-859 

5-879* 

5-906 

3-:17# 

3-: 88* 

3-; 88* 

3-<44 

3-=05 

3-=77 

3->01* 

3->16* 

3->38 

3->69* 

3->99* 

3-722* 

3-734* 

3-766* 

3-303 

3-327 

3-356 

3-396* 

3-A08* 

3-A55 

3-A88 

3-815* 

3-828* 

3-C 27* 

3-C41 

3-C81* 

3-C97 

5-D41* 

5-D51* 

3-D93 

3-E 34* 

3-E44* 

3-E 93 

3-F 28 

3-F 57* 

3-F 69* 

5-G02* 



13-412 

1 3-/ 34* 

13-460 

13-483* 

13-5C5* 

13-535 

13-551* 

13-568* 

13-604 

13-622 

1 3-657 

13-689* 

13-745* 

15-813 

1 3-839* 

: 3-881 

13-906* 

13-:20 

13-; 16 

i3-<07 

1 3-<4«* 

13-=05* 

13-= 77* 

13->03 

1 3->25 

13->38* 

15->71 

13->99* 

1 3-726 

17--'45 

13-766* 

13-303* 

1 3-327* 

13-356* 

13-396* 

13-A10 

13-A55* 

13-A88* 

13-818* 

13-828* 

13-C29 

13-C41* 

1 3-C83 

1 3-C97* 

13-D43 

13-D51* 

1 3-D93* 

13-€36 

1 3-€44* 

13-E93* 

13-F 28* 

13-F61 

l3-f82 

' 5-G02* 



15-*. 12* 
15-4 36 
13-460* 
13-485 
1 3-505* 
13-55'i# 
13-551* 
1 3-582 
13-604* 

1 3-622* 

13-657* 

13-694 

13-747 

1 3-81 3* 

13-839* 

13-881* 

13-917 

13-:20* 

13-; 16* 

1 3-<07* 

13-<56 

13-=07 

13-= 77* 

13->03* 

1 3->25* 

l3->3&r 

13->71* 

1 5-701 

1 3-726* 

13-745* 

13-768 

15-305 

13-344 

13-*56jr 

13-a<J8 . 

13-A10# 

1 3-A55i» 

13-A88* 

13-820 

13-648 

13-C 29* 

13-C41* 

13-C83<» 

13-C97* 

13-D45# 

13-066 

13-093* 

13-t36* 

13-E60 

13-E93* 

13-F 28* 

15-F61* 

'3-»82« 
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4-661* 








Bee 


4-661* 








Beop 


■ 4-661* 








8603 


4-661* 








BBOA 


4-661* 








BBCS 


4-661* 








8606 


4-661* 








8607 


4-661* 








8B08 


4-661* 








8609 


4-661* 








BPG 


4-475* 


1 3-=45 


20-17 




BITOO 


4-475 
40-1 


4-475* 


4-487 


4-535 


B1T01 


4-475 


4-475* 


4-486 


4-534 


&IT02 


4-475 


4-475* 


4-485 


4-533 


bIT03 


4-475 


4-475* 


4-484 


4-552 


BIT04 


4-475 


<,-475* 


4-483 


4-531 


BITOS 


4-475 


4-475* 


4-482 


.4-567 


BIT06 


4-475 


4-475* 


4-552 


4-566 


BIT07 
BIT08 


4-475 


4-475* 


<,-551 


4-565 


4-475 


4-475* 


4-528 


4-550 


BIT09 


4-475 
40-1 


4-475* 


4-527 


4-549 


BIT! 


4-475* 


13- 45 


23-48 




BIT10 


4-475* 

40-1 


4-526 


4-548 


4-562 


Bim 


4-475* 
39-1 


4-481 


4-525 


4-547 


BIT12 


4-475* 


4-524 


4-546 


4-560 


Bin3 


4-475* 


4-545 


4-559 


4-597 


BITU 


4-475* 


4-544 


4-';58 


4-596 


Bins 


4-475* 


4-543 


4-557 


4-59S 


BIT2 


4-475* 


20-17 






BH3 


4-475* 


15-202 






BIT4 


4-475* 


15-140 






BITS 


4-475* 








81 T6 


4-475* 


15-87 






8IT7 


. 4-475* 


10-71 


20-23 




BITS 


4-475* 








BIT9 


4-475* 










47-55* 








BLNKS? 


10-132 


11-34 


11-48 


47-34* 


BLWS3 


47-33* 








BLNICS4 


10-82 


4 7-32* 






80 T ADR 


41-81* 


',1-99* 


41-102 


41-117 


BOTFLG 


41-62* 


41-109* 


41-112 


41-115 


BPTVFC 


4-475* 








BSE 


4-665* 


22-431 






BUFffR 


13-855 


13-677 


58-1* 


58-5 


BUfOUE 


13-937 


13-:04 


13-:'0 


'3-; 36 


BUFTWO 


58-3* 








Cf 


4-657* 








CH 


4-658* 








'HGADR 


7-0* 


10-14* 


10-17* 


11-25 


;mrcnt 


41-63* 


41-86* 
40-1 


41-92\ 


41-93 




39-1 


40-'' 


44-"'* 


.* APR 


-:* 


'5-e* 


19-8 


19-12* 
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4-553 


4-572 


4-609 


4-627 


4-661 


4-571 
4-570 
4-569 
4-368 
4-605 
4-588 
4-587 
4-564 
4-563 


4-608 

4-607 
4-606 
4-625 
4-622 
4-604 
4-603 
4-586 
4-585 


4-626 
4-625 
4-624 
4-66 1 
4-661 
'.-621 
4-620 
4-602 
4-601 


4-661 
4-661 
4-661 

4-661 
4-644 
4-619 
4-618 


4-733 
4-733 
4-672 

4-714 
4-661 
4-661 
4-661 


4-584 


4-600 


4-617 


4-643 


4-658 


4-561 


4-599 


4-616 


4-634 


4-642 


4-598 
4-614 
4-613 
4-612 


4-615 
4-633 
4-632 
4-631 


4-641 
4-655 
4-654 
4-653 


4-656 
4-667 
4-666 
4-665 


4-668 
4-709 
4-677 
4-676 



41-161* 
41-162* 



13-; 94 58-2* 



n-27* 

4^-96* 41-100 41-105* 41-r6* 41-165* 



4-733 


4-751 


39-1 


59-'" 


40- 1 


4-750 
4-749 
4-730 


4-748 








4-72^ 
4-671 
4-712 
4-711 


4-747 
4-713 
4-725 
4-724 


4-726 
59-1 
39-1 


39-1 


40-1 


4-670 


4-710 


4-723 


4-746 


15-165 


4-657 


4-669 


4-722 


4-745 


75-167 


4-721 
4-720 
4-708 
4-707 


4-744 
4-743 
4-719 
4-718 


15-111 

40-1 
4-742 
4-741 


15-73 


59-1 
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7-0* 














10-84 


V-56 


27-16 






^ 3-1 72 


13-797 


15-A^6 


'3-a96 


15-98 




10-H1 


12-2* 






13-657 




13-S51 


1 3-582 


1 3-604 


13-618 




13-766 


i3-aio 


1 5-a59 


' 3-A08 


13-A55 




I3-F67 


1 3-G02 


24-21* 








n-32 


47-8* 








TNSLOZ 


11 -AO 


47-9* 










11-AA 


47-10* 








(NSl(K 


11-54 


47-11* 








CNSL07 


11-61 


47-12* 








rNSLOS 


11-92 


47-u* 








CNSL09 


47-1 S# 










CNTCLR 


1^-34 


13-139 


13-167 


13-181 


13-206 




1 •X99 


13-793 


1 3-342 


1 3-a92 


1 3-A26 


COMMA 


r-86 


12-6 


12-14 


47-6* 




CONT 


4-621* 










fPSAVE 


59-1 


39-1 


39-1 


39-1* 


39-1- 


TR 


4-475# 


11-73 


11 -84 


38-1 


38-1 


'RL^ 


4-475* 


10-6 


10-28 


10-28 


10-42 




47-9 


47-n 


47-12 


47-13 


47-14 




55-18 


58-8 


58-9 


58-10 


58-r 




58-21 


58-22 


58-23 


58-24 


58-25 




58-35 


58-36 


58-37 


58-38 


58-39 




58-49 


58-50 


58-51 


58-52 


58-53 




58-63 


53-64 


58-65 


58-66 


58-67 




58-77 


'58-78 


58-79 


58-80 


58-81 


CYLMSK 


4-648# 










D8fK 


4-595* 










DBEN 


4-596* 


13-47 


13-152 


13-<38 




OBL 


4-746* 










DOC 


4-557* 


4-574 


22-469 


22-489 




ODISP 


4-475* 


6-0 


10-23 






DEBL 


4-597* 










DEVSEL 


13-=03 


15-62 


25-12* 






DISPLA 


6-0* 


10-23* 


10-23* 


39-1* 


40-1* 


OlSPRE 


5-1* 


10-23 








DLT 


4-718* 


22-313 








OMD 


4-609* 


4-627* 


13-47 


13-152 






13-993 


1 3-995 


13-:60 


13-: 62 


13-; 26 


DPE 


4-672* 


13-551 


13-582 


13-618 


13-747 




13-ai0 


1 3-559 


1 3-A08 


13-A53 


13-A90 
30-3^ 




1 3-G02 


21-139 


22-255 


26-32 


DPEHl 


4-742* 










DPELO 


4-743* 










DPR 

DRIVES 


4-550* 


13-130 


13-131 


13-244 


26-195 


12-3 


47-28* 








DRO 


^.-634* 










ORVCLR 


4-495* 


13-364 


13-515 


31-18 




DRVSTS 


13-535 


31-9* 








DRV 


4-551* 


13-' 30 


13-131 


1 3-244 


21-106 


OSWR 


4-475* 


6-0 


10-23 






DTE 


4-560* 


4-574 








DTO 


4-598* 










OlA'PR^ 


4-637* 










OVA 


4-481* 


'0-89 


13-70 


17-43 


18-37 
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28-24* 



13-747 


1 3-835 


1 3-879 


13-= 79 


13- .07 


13->36 


13->71 


15-705 


13-732 


13-A90 


1 3-826 


13-C43 


13-C99 


1 5-D49 


13-095 


13-E42 


13-E91 


i3-r5r. 


13-257 


13-275 


13-377 


13-922 


1 3-988 


13-:55 


13-; 21 


'3-;88 


13-<6C 


13-833 


13-D35 


13-D81 


13-E28 


15-76 


27-\2» 




40-1 


40-1 


40-1 


40-1 


40-1 


40-1* 


4C-1* 


40-1* 


41-180 


41-84 


54-79 
















10-53 


10-59 


10-60 


12-30 


38-1 


38-1 


U7-U 


L7-7 


47-8 


47-13 


47-16 


47-18 


47-28 


55-7 


55-11 


55-12 


55-15 


55-16 


58-12 


58-13 


58-14 


58-15 


58-16 


58-17 


58-18 


58-19 


58-20 


58-26 


58-27 


58-28 


58-29 


58-30 


58-31 


58-32 


58-33 


58-34 


58-40 

JO v 


58-41 


58-4? 




58-44 


58-45 


58-46 


58-47 


58-48 


58-54 


58-55 


58-56 


58-57 


58-58 


58-59 


58-60 


58-61 


58-62 


58-68 


58-69 


58-70 


58-71 


58-72 


58-73 


58-74 


58-75 


58-76 


58-82 


58-83 


58-84 


58-85 


58-86 


58-87 








13-281 


13-283 


13-318 


13-321 


13-323 


13-379 


13-445 


1 3-92/ 


13-929 


13-; 28 


13-<29 


13-<31 


13-<38 


13-A28 


1 3-E62 








13-835 


13-879 


13-= 79 


1 3->07 


13->36 


13->71 


13-703 


13-732 


13-766 


13-826 


13-C43 


13-r99 


1 3-D49 


1 3-D95 


1 3-E42 


13-E91 


15-f30 


13-F67 


32-52 


















28-12/ 


28- •?8 


31-30 














22-38 


22-41 


22-^2 


26-'' 95 


<?8-1 27 


28-1 2>J 


3^-50 






21-67 


21-70 


25-37 


28-35 


51-V 


51-18 
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KI 

ECR. 

EDI 

EDIIO 

EDin 

FPTU 

ED223 

ED536 

ED337 

ED355 

EDTI 



ED-no 

EDTin 

EDTIU 

EDT? 

EDT223 

EDT336 

EDT337 

EDT54A 

EDT353 

EECC 

EHiO 

EFIII 

Enu 

EF356 
EF537 
EFTI 



5?-125 
4-6' <i# 

4-64?* 
4-618* 

52-1 

52-A 

S2-5 

5?-7 

5?-8 

52-11 

5P-14 
8-^ 
8-48 
8-90 
8-133 
8-182 
8-239 
8-281 
8-323 
8-369 
8-4 K 
8-525 
8-573 
8-621 
8-663 

52- 1* 
8-221 
8-224 
8-233 
8-426 
8-447 
8-351 
8-684 
8-699 
8-720 
4-623* 

53- 4 
53-1 
53-7 
53-10 
57-5* 

8-3 

8-48 

8-90 

8-133 

8-182 

8-239 

8-281 

8-323 

8-369 

8-4U 

8-525 

8-5''3 

8-f)21 



15-V6 
32-166 

4-574 
1 3-854 

56-1* 
56-2* 
56-3* 
56-5* 
56-6* 
56-8* 
52-12 

56- 11* 
8-6 
8-51 
8-9^ 
8-156 
8-185 
8-242 
8-284 
8-326 
8-372 
8-417 
8-531 
8-577 
8-624 
8-666 

52-4* 
8-227 

52-7* 
8-429 
8-528 
8-681 

52-11* 

52-12* 

52- 14* 

57- 1* 

53- 5 
53-8 
53-11 

8-6 

8-51 

8-93 

8-136 

8-185 

8-242 

8-284 

8-326 

8-372 

8-417 

8-531 

8-577 

8-624 



15-221 
52-169 

22-452 
1 3-864 



56-10* 

8-9 

8-54 

8-96 

8-139 

8-188 

8-245 

8-287 

8-329 

8-375 

8-420 

8-534 

8-581 

8-627 

8-669 



52-5* 

8-513 
52-8* 
8-687 



57-2* 
53-14 
53-12 

8-9 

8-54 

8-96 

8-139 

8-188 

8-245 

8-287 

8-329 

8-375 

8-420 

8-534 

8-581 

8-627 



13-511 
33-89 

22-467 
22-487 



8-12 

8-57 

8-99 

8-142 

8-191 

8-248 

8-290 

8-352 

8-378 

8-423 

8-537 

8-S86 

8-630 

8-672 



8-516 
8-690 



57-3* 
57-4* 

8-12 

8-57 

8-99 

8-142 

8-191 

8-248 

8-290 

8-332 

8-378 

8-423 

8-537 

8-586 

8-630 



13-314 
33-94 

22-485 



8-15 

8-60 

8-102 

8-^6 

8-194 

8-251 

8-295 

8-535 

8-581 

8-432 

8-540 

8-590 

8-633 

8-675 



52-2* 
52-10* 



8-15 

8-60 

8-102 

8-146 

8-194 

8-251 

8-293 

8-335 

8-381 

8-432 

8-540 

8-590 

8-635 



13-351 
33-97 

22-491 
t 



8-18 

8-63 

8-105 

8-1 50 

8-197 

8-254 

8-296 

8-558 

8-584 

8-435 

8-543 

8-594 

8-636 

8-678 



8-18 

8-63 

8-105 

8-150 

8-197 

8-254 

8-296 

8-338 

8-384 

8-435 

8-543 

8-594 

8-636 



13-354 13-355 
48-77 48-78 



8-24 

8-66 

8-108 

8-154 

8-200 

8-257 

8-299 

8-541 

8-590 

8-438 

8-546 

8-597 

8-639 

8-693 



8-24 

8-66 

8-108 

8-154 

8-200 

8-257 

8-299 

8-341 

8-390 

8-438 

8-546 

8-597 

8-659 



8-27 

8-69 

8-111 

8-160 

8-205 

8-260 

8-502 

8-544 

8-593 

8-441 

8-549 

8-600 

8-642 

8-696 



8-27 
8-69 

8-m 

8-160 
8-205 
8-260 
8-502 
8-544 
8-393 
8-441 
8-549 
8-600 
8-642 



26- V 7 28-117 30-92 



48-85 «.8-86 



8-30 

8-72 

8-114 

8-163 

8-206 

8-263 

8-505 

8-547 

8-396 

8-444 

8-552 

8-603 

8-645 

8-702 



8-30 

8-72 

8-114 

8-163 

8-206 

8-263 

8-305 

8-347 

8-396 

8-444 

8-552 

8-605 

8-645 



8-35 

8-75 

8-117 

8-166 

8-209 

8-266 

8-508 

8-554 

8-399 

8-504 

S-556 

8-606 

8-648 

8-705 



8-55 

8-75 

8-117 

8-166 

8-209 

8-266 

8-508 

8-554 

8-399 

8-504 

8-556 

8-606 

8-648 



8-56 

8-78 

8-120 

8-169 

8-212 

8-269 

8-511 

8-557 

8-402 

8-507 

8-559 

8-609 

8-651 

8-708 



8-36 

8-78 

8-120 

8-169 

8-212 

8-269 

8-311 

8-357 

8-402 

8-507 

8-559 

8-609 

8-651 



30-^ 50 



8-59 

8-81 

8-125 

8-172 

8-215 

8-272 

8-514 

8-360 

8-405 

8-510 

8-563 

8-612 

8-654 

8-711 



8-39 

8-81 

8-125 

8-172 

8-215 

8-272 

8-514 

8-360 

8-405 

8-510 

8-563 

8-612 

8-654 



S£0 C ' -4 
30-153 50-266 



8-42 

8-84 

8-126 

8-175 

8-218 

8-275 

8-317 

8-363 

8-408 

8-519 

8-566 

8-615 

8-657 

8-714 



8-42 

8-84 

8-126 

8-175 

8-218 

8-275 

tJ-317 

8-363 

8-408 

8-519 

8-566 

8-615 

8-657 



8-4 b 

8-87 

8-130 

8-178 

8-236 

8-278 

8-320 

8-3to 

8-411 

8-522 

8-569 

8-618 

8-660 

8-723 



8-45 

8-87 

8-150 

8-178 

8-256 

8-278 

8-320 

8-366 

8-411 

8-522 

8-569 

8-618 
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8-663 


8-666 


B-669 


8-672 


8<^75 


8-678 


B-693 


8-696 


8-702 


8-705 


8-708 










S3-1# 


























T- IQ 

Ef '1 1 ' 


8-221 


53-4« 


























8-22A 


8-227 


53-5* 
























EF7M4 


8-233 


53-74 


























EF 12 


8-426 


8-429 


8-513 


8-516 


53-2* 




















EFT223 


8-447 


8-528 


53-8* 
























EF T336 


8-351 


8-681 


8-687 


8-690 


53-10* 




















EFT337 


8-684 


53-1 1* 


























EFT3<,<« 


8-699 


53-1 ?# 


























EFT353 


8-720 


53-14# 


























EH1 


51-1 


55-1* 


























EHllO 


51-4 


55-2* 


























EHin 


51-5 


55-3* 


























Eh1U 


51-7 


55-5* 


























EH?25 


51-8 


55-6* 


























EH256 


51-9 


55-7* 


























EH336 


51-11 


55-10* 


























EH337 


51-12 


55-11* 


























Eh3^4 


51-13 


55-15* 


























EH555 


51-15 


55-18* 


























EHTI 


8-3 


8-6 


8-9 


8-12 


8-15 


8-18 


8-24 


8-27 


8-30 


8-33 


8-56 


8-59 


8-42 


8-45 




8-48 


8-51 


8-54 


8-57 


8-60 


8-63 


8-66 


8-69 


8-72 


8-75 


8-78 


8-81 


8-84 


8-87 




8-90 


8-93 


8-96 


8-99 


8-102 


8-105 


8-108 


8-111 


8-114 


8-117 


8-120 


8-125 


8-126 


8-130 




8-133 


8-136 


8-139 


8-'' '.2 


8-146 


8-150 


8-154 


8-160 


8-163 


8-166 


8-169 


8-172 


8-175 


8-178 




8-182 


8-185 


8-188 


8-191 


8-194 


8-197 


8-200 


8-205 


8-206 


8-209 


8-212 


8-215 


8-218 


8-236 




8-239 


8-242 


8-245 


8-248 


8-251 


8-254 


8-257 


8-260 


8-265 


8-266 


8-269 


8-272 


8-275 


8-278 




8-281 
8-323 


8-284 


8-287 


8-290 


8-293 


8-296 


8-299 


8-502 


8-505 


8-508 


8-511 
8-557 


8-514 


8-517 


8-320 




8-326 


8-329 


8-352 


8-555 


8-558 


8-541 


8-544 


8-547 


8-554 


8-560 


8-363 


8-366 




8-369 


8-372 


8-375 


8-578 


8-581 


8-584 


8-590 


8-595 


8-596 


8-599 


8-402 


8-405 


8-408 


8-411 




8-414 


8-417 


8-420 


8-423 


8-452 


8-455 


8-458 


8-441 


8-44; 


8-504 


8-507 


8-510 


8-519 


8-522 




8-525 


8-531 


8-534 


8-557 


8-540 


8-545 


8-546 


8-549 


8-552 


8-556 


8-559 


8-565 


8-566 


8-569 




8-573 


8-577 


8-581 


8-586 


8-590 


8-594 


8-597 


8-600 


8-605 


8-606 


8-609 


8-612 


8-615 


8-618 




8-621 


8-624 


8-627 


8-650 


8-655 


8-656 


8-639 


8-642 


8-645 


8-648 


8-651 


8-654 


8-657 


8-660 




8-663 


8-660 


8-669 


8-672 


8-675 


8-678 


8-693 


8-696 


8-702 


8-705 


8-708 


8-711 


8-714 


8-723 




51-1* 


























EHTIIO 


8-221 


51-4* 


























EHT111 


8-224 


8-227 


51-5* 
























EHTIK 


8-233 


51-7* 


























EHT2 


8-426 


8-429 


8-513 


8-516 


51-2* 




















EHTP23 


8-447 


51-8* 


























EHT256 


8-528 


51-9* 


























EMT336 


8-351 


8-681 


8-687 


8-690 


51-11* 




















EHT337 


8-684 


51-12* 


























EMT5A4 


8-699 


51-13* 


























EHT353 


8-720 


51-15* 


























E«S1 


50-3 


54-3* 


























FISIO 


50-7 


50-11 


54-10* 
























EI^TOO 


50-39 


50-71 


50-176 


50-196 


54-66* 








• 












EMS101 


50-40 


50-59 


50-1 74 


50-197 


54-67* 




















FMS10? 


50-177 


50-1 78 


50-181 


50-182 


50-183 


50-184 


50-186 


50-187 


50-188 


50-'' 89 


50-234 


50-235 


54-68* 




EMS 103 


50-56 


50-57 


50-135 


50-141 


50-196 


50-197 


50-198 


50-205 


50-204 


50-205 


50-206 


50-207 


50-208 


50-209 




50-210 


50-211 


50-213 


50-214 


50-215 


50-219 


50-220 


54-69* 














fHS104 


50-136 


50-180 


50-203 


54-70* 






















EMS105 
E«S'06 


50-204 


54-71* 


























50-212 
50-T2 


50-232 


54-72* 
50-16 
























E«S'1 


50-15 


50-17 


50-18 


50-19 


50-20 


50-21 


50-22 


50-23 


50-24 


50-25 


5C-26 


5>f ' 
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EMsno 

f^STIl 

EMS113 
EMS1K. 
EMS115 



EMS116 

f«S117 

EMS12 

EMS120 

EMS121 

EMS 122 

EMS125 

EMS 124 

EMS125 

EMS 126 

EMS1 27 

EMS13 

EMS130 

f MSI 31 

f MSI 32 



EMS133 

FMS13A 

EMS135 

EMS136 

FMS137 

EMSU 

EMSKO 

EMSU1 

EMSU2 

EMSTA3 

EMSUA 

EMSU5 

EMSU6 

EMSU 7 

EMS15 

EMS150 

EMS151 
EMS152 
EMS153 
EMS 154 
EMS155 
EMS 156 
EMS157 
EMS 16 
EMS 160 
EMS161 
EMS162 
EMS765 



50-28 

SO-9 

50-74 

50-74 

50-75 

50-77 

50-44 

50-73 

50-185 

50-223 

50-74 

50-77 

50-12 

50-78 

50-79 

50-80 

50-81 

50-56 

50-83 

50-84 

54-89# 

50-13 

50-86 

50-87 

50-79 

50-93 

50-125 

50-79 

50-88 

50-97 

50-99 

50-85 

50-13 

50-44 

50-35 

50-47 

50-47 

50-36 

50-36 

50-109 

50-69 

50-13 

50-50 

54-10<)# 

50-69 

50-50 

50-1 1 1 

50-111 

50-112 

50-113 

50-113 

50-13 

50-114 

50-114 

54-116* 

50-58 

50-72 



50-29 

50-74 

50-226 

54-75# 

50-76 

54-78# 

50-45 

50-77 

50-186 

50-232 

50-77 

50-143 

54-1 2# 

54-82* 

50-88 

50-89 

50-88 

50-82 

50-92 

50-93 

50-42 

50-95 

50-96 

50-80 

50-94 

50-126 

50-80 

50-89 

50-98 

50-100 

50-94 

54-14* 

50-52 

50-44 

50-65 

50-65 

50-73 

50-73 

50-185 

50-112 

50-42 

50-51 

50-112 

50-51 

54-109* 

50-112 

50-124 

50-114 

50-123 

54-16* 

50-115 

54-115* 

50-59 
50-75 



>U— jU 


en. T 1 






J7 

J J 


jU *• J 


50-77 


54-73* 










54-74* 












50-78 


50-127 


54-77* 








50-48 


50-50 


50-51 


50- 


52 


50-54 


50-107 


50-108 


50-109 


50- 


110 


50-134 


50-187 


50-188 


50-189 


50- 


190 


50-192 


50-234 


5'*-79* 










50-191 


50-225 


54-80* 








50-148 


50-149 


50-178 


50-185 


50-201 



50-55 

50-137 

50-193 



54-1 \0 



50-60 50-61 
50-139 50-140 
5C-194 50-195 



50-63 50-66 
50-142 50-179 
50-201 50-205 



50-67 50-70 
50-182 50-185 
50-221 50-222 



50-225 50-228 50-229 50-250 50-251 54-81* 



50-97 


50-99 


54-83* 










54-84* 














50-89 


50-90 


50-90 


50-91 


50-92 


50-93 


50-94 


50-91 


50-101 


54-86* 










50-102 


50-169 


54-87* 










50-103 


54-88* 












50-216 


54-1 3* 












50-106 


54-90* 












50-104 


54-91* 












50-81 


50-82 


50-83 


50-84 


50-85 


50-86 


50-87 


50-95 


50-96 


50-97 


50-98 


50-99 


50-100 


50-101 


50-168 


50-169 


54-92* 










50-81 


50-82 


50-83 


50-84 


50-85 


50-86 


50-87 


50-90 


50-91 


50-92 


50-93 


50-94 


50-95 


50-96 


54-95* 














50-101 


50-102 


50-103 


50-104 


50-105 


50-106 


54-96* 


50-100 


54-97* 












50-60 


50-107 


50-117 


50-137 


50-186 


50-192 


54-98* 


50-45 


50-60 


50-61 


50-66 


50-107 


50-122 


50-137 


50-108 


50-140 


50-184 


50-202 


54-100* 






50-73 


50-108 


50-109 


50-110 


50-13^ 


50-140 


50-184 


50-109 


50-1 10 


50-205 


54-102* 








CA 1 AO 


CA 1 1 A 




1 U3* 








50-190 


50-201 


54-104* 










50-113 


50-173 


50-217 


54-105* 








50-216 


54-15* 












50-54 


50-63 


50-67 


50-111 


50-134 


50-1 38 


50-182 


50-113 


50-173 


50-217 


54-107* 








50-54 


50-63 


50-111 


50-134 


50-182 


50-183 


50-194 


50-123 


50-124 


54-110* 










54-111* 














50-115 


50-116 


50-173 


54-112* 








54-113* 














50-116 


54-114* 












50-60 


50-61 


50-62 


50-63 


50-64 


50-65 


50-66 


50-117 


50-145 


54-117* 











50-95 50-96 



50-98 



50-126 54-85* 



50-88 
50-102 

50-125 
50-126 



50-89 
50-103 

54-93* 
54-94* 



50-90 
50-104 



50-91 50-92 
50-105 50-106 



50-184 50-202 50-205 54-iu1* 



50-182 50-183 50-194 50-195 50-223 50-254 



50-194 50-195 50-223 54-108* 



50-66 50-67 50-68 50-69 50-70 50-71 
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50-72 


C ~w 1 u ^ 






50-71 


I, ™ J 1 




5A-121# 




50-123 


tri J 1 or 




50-49 


50-68 




J\J^ 1 H 












54-1 23# 


50-125 


50-1 26 


FM<;1 71 


S0-S7 


50-105 


riici 75 

t ri J 1 f c 


SO-215 


54-1 25* 










54-126* 






C 1 ' 




54-127* 




50-219 


FM<;1 7S 


SO-PI 6 


50-217 


50-218 












FM^ 1 77 


S0-1P7 


54-1 30* 








50-4 


50-5 


54-44r 


50-118 


c ~ jc v 




50-58 


50-110 


t " w 


50-128 


54-131* 








50-128 


54-132* 








50-122 


50-1 30 


50-131 


50-132 




50-122 

ICC 

50-131 


50-130 


50-131 


50-1 32 


FMS204 


54-135* 




50-233 




50-55 


50-142 


50-1 79 




50-55 


50-142 


50-1 70 


50-179 


EMS207 


50-168 


50-1 70 


54-138* 






50-15 


54-19* 






FMS210 


50-169 


50-170 


50-173 


54-139* 


CWS21 1 


50-1 70 


54-140* 






EMS212 


50-171 


50-1 72 


54-14U 




EMS213 


50-171 


54-142* 








50-55 


54-143* 






FMS21 5 


50-236 


54-144# 






EMS216 


50-237 


54-145* 






EMS21 7 


50-237 


54-146* 






FMS22 


50-16 


54-20* 






FMS220 


50-1 79 


54-147/lf 






EMS221 


50-231 


50-238 


54-148* 




FMS222 
FMS223 
EWS224 


50-233 


54-149# 






50-232 


54-1 50* 






50-121 


54-151* 






FI'1S23 


50-'' 7 


54-21* 






Fn^?4 


50-18 


54-22* 








50-19 


50-115 


54-23* 




FMSP6 


50-20 


50-1 16 


50-1 73 


54-24* 


FMS27 


50-16 


50-19 


50-20 


50-115 


Fns3 


50-4 


50-76 


54-5* 




EMS 30 


50-17 


50-18 


50-21 


50-22 




50-33 


50-43 


50-122 


50-130 




50-177 


50-199 


54-26* 




Fns3i 


50-21 


50-146 


50-207 


50-208 


FMS32 


50-22 


5^-28ft 






FMS33 


50-23 


50-219 


54-29* 




FMS34 


50-24 


50-225 


50-226 




EMS35 


50-25 


50-216 


54-31* 




EWS36 


50-26 


50-213 


50-214 


50-215 


E«S37 


50-27 


54-33* 






EMS4 


50-5 


50-75 


54-6* 




FWS40 


50-28 


50-220 


54-34* 




fMS41 


50-29 


50-190 


50-191 


54-35* 



50-172 50-196 50-197 50-198 54-120* 



50-133 
50-133 



50-134 
50-174 



50-136 
50-175 



50-180 54-133* 

50-176 50-237 54-134* 



54-136* 

50-233 54-137* 



50-116 50-173 54-25* 



50-23 
50-151 

54-27* 



54-30* 

54-32* 



50-24 
50-132 



50-25 
50-133 



50-26 
50-144 



50-27 
50-145 



50-28 
50-146 



50-29 
50-147 



50-30 
50-1 74 



50-31 
50-175 



50-32 
50--' 76 
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EHSA2 


50-30 


50-206 


54-36* 




















EMSA3 


50-3T 


50-209 


54-37* 




















EMSA4 


50-32 


50-211 


50-230 


54-38* 


















EMS'.S 


50-33 


50-210 


50-229 


54-39* 


















EMS46 


50-43 


50-58 


50-120 


50-145 


50-177 


50-185 


50-199 


50-201 


54-40* 








EMS47 


50-37 
50-193 


50-44 
50-222 


50-45 
54-41* 


50-52 


50-60 


50-61 


50-66 


50-117 


50-118 


50-147 


50-186 


50-187 


EMSS 


50-6 


50-7 


54-7* 






50-135 




50-141 










EMS50 


50-46 


50-48 


50-64 


50-70 


50-132 


50-139 


50-181 


50-185 


50-189 


50-200 




54-42* 












50-1 79 












EMS51 


50-48 


50-55 


50-70 


50-130 


50-139 


50-142 


50-189 


50-221 


54-43* 






EMs52 


50-55 
54-44# 


50-142 


50-143 


50-148 


■ 50-149 


50-178 


50-1 79 


50-185 


50-201 


50-2t'8 


50-229 


50-230 


EMS53 


50-37 


50-38 


50-39 


50-40 


50-44 


50-45 


50-46 


50-4' 


50-62 


50-64 


50-65 


50-73 


50-181 


50-182 


50-184 


50-186 
50-216 


50-187 
50-218 


50-190 


50-191 


50-1 92 


50-193 


50-194 


50-195 


50-200 




50-204 


50-206 


50-207 


50-219 


50-220 


50-226 


54-45* 








EMS54 


50-226 


54-46* 






















EMS55 


50-227 


54-47* 






















Ens56 


50-50 
50-223 


50-51 


50-54 


50-62 


50-6^ 


50-67 


50-119 


50-143 


50-144 


50-178 


50-182 


50-183 




50-228 


50-234 


54-48* 


















EMS57 


50-190 


50-191 


50-192 
50-206 
50-229 


50-193 


50-194 


50-195 


50-196 


50-197 


50-198 


PA 4 AA 

50-199 


50-200 


F A ^A4 

50-201 


50-204 
50-223 


50-205 
50-228 


50-207 
50-230 


50-208 
54,-49* 


50-209 


50-210 


50-211 


50-21 3 


50-214 


PA ^4 C 

50-21 5 


PA "> "> A 

50-220 


f«S6 


50-6 


54-8* 






















EMS60 


50-224 


54-50* 






















EMS61 


50-224 


54-51* 






















EMS62 


50-224 


54-52* 






















EMS63 


50-42 


50-149 


50-190 


54-53* 


















EWS64 


50-8 


50-14 


50-41 


50-144 


50-145 


50-146 


50-147 


50-199 


54-54* 








EMS65 


50-41 


54-55* 


54-56* 




















EMS66 


50-34 


50-218 




















EMS67 


50-43 


50-44 


50-45 


50-46 


50-47 


50-48 


50-49 


50-50 


50-51 


50-52 


50-54 


54-57* 


EMS7 


50-10 


54-9* 






















EMS 70 


50-48 
50-221 


50-50 
54-58* 


50-52 


50-54 


50-66 


50-70 


50-73 


50-107 


50-1 10 


50-139 


PA 4 O ^ 

50-182 


C A 4 OA 

50-189 


EWS71 


50-51 


50-59 


50-63 


50-183 


50-195 


50-208 


54-59* 












EMS7? 


50-36 


50-48 


50-51 


50-55 


50-56 


50-57 


50-60 


50-61 


50-61 


C A Z T 

50-63 


C A 4 AO 

50-108 


PA 4 f\f\ 

50-109 


50-1 39 


50-140 


50-142 


50-1 79 


50-183 


50-187 


50-195 


50-195 


50-232 


54-60* 






EMS73 


50-49 


50-54 


50-67 


50-68 


50-136 


50-180 


50-188 


50-222 


50-223 


50-234 


50-235 


P / ^ 4 M 

54-61* 


EMS74 


50-69 


50-70 


50-1 34 


50-189 


50-217 


50-221 


54-62/ 






54-65* 






EMS75 


50-35 


50-66 


50-67 


50-137 


50-138 


50-188 


50-222 


50-223 


IT A "^7 / 

50-234 






EMS 76 


50-35 


. 50-36 


50-37 


50-38 


50-39 


50-40 


54-64* 












EMS77 


50-38 


50-72 


50-148 


50-198 


54-65* 
















EMT1 


8-3 


50-3* 






















EMTIO 


8-24 


50-10* 






















EMT100 


8-197 


50-66* 






















EMT101 


8-200 


50-67* 






















EMT102 


8-203 


50-68* 






















EMT103 


8-206 


50-69* 






















EMT104 


8-209 


50-70* 






















EMT105 


8-212 


50-71* 






















tMTlUo 




j'J-f 






















EMn07 


8-218 


50-73* 






















EMTll 


8-27 


50-11* 






















FMTnO 


8-221 


50-74* 






















cMnn 


8-224 


50-75* 






















fMTM2 


8-227 


50-76* 























50-188 50-192 



50-23t 50-233 



50-140 
50-202 



50-141 
50-203 



50-194 50-195 



50-202 
50-221 



■^203 
50-222 



50-194 50-205 



50-134 50-135 
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EHTn5 8-? 50 50-77# 

EHT-IK 8-233 50-78# 

EMTHS 8-336 50-79# 

^m^^6 8-239 50-80# 

EMni? 8-242 50-8T* 

EMT12 8-30 50-' 2# 

EMT120 8-245 50-82* 

EMT121 8-248 50-83* 

EMT1 22 8-251 50-84* 

EWT123 8-254 50-85* 

EMn24 8-257 50-86* 

EMT125 8-260 50-87* 

EMT126 8-263 50-88* 

EWT1 27 8-266 50-89* 

EMT13 8-33 50-"' 3* 

EMn30 8-269 50-90* 

EMn31 8-272 50-91* 

EMT132 8-275 50-92* 

EWT135 8-278 50-93* 

EMT154 6-281 50-94* 

EMT135 8-284 50-95* 

EMT136 8-287 50-96* 

EH 1137 8-290 50-97* 

EKT14 8-56 50-14* 

EMT140 8-295 50-98* 

EHT141 8-296 50-99* 

EMrl42 8-299 50-100* 

EMT145 8-302 50-10'* 

EMT144 8-305 50-102* 

EMT145 8-308 50-103* 

EMT146 8-311 50-104* 

Eml47 8-314 50-105* 

EHTIS 8-39 50-15* 

EHTISO 8-317 50-106* 

EHT151 8-320 50-107* 

EMT152 8-325 50-108* 

EMT153 8-326 50-109* 

Emi54 8-329 50-nO* ' 

EMT155 8-352 50-111* 

EHT156 8-555 50-112* 

EMT157 8-558 50-115* 

FHT16 8-42 50-16* 

WIT 160 8-541 50-114* 

EMT161 8-544 50-115* 

fHT162 8-547 50-116* 

f«T163 50-117* 

f«Tl64 8-554 50-118* 

EHT165 8-557 50-119* 

FMT166 8-360 50-120* 

F«T167 8-563 50-121* 

FHT17 8-45 50-17* 

fMT170 8-566 5"-122* 

fwri71 8-569 50-125* 

fwri7? 8-572 50-124* 

f»!ri7^ 8-575 50-125* 

fMn-'A 8-?78 50-126* 

fMf''-'^ 8-5«1 50-ir7* 
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EHT^76 8-384 50- V8* 

EHn77 50-129* 

E><T2 8-6 50-4# 

im20 8-48 . 50-18* 

Em 200 8-390 50-130* 

W20^ 8-393 50-131* 

ENT202 8-396 50-132* 

Em203 8-399 50-133* 

EMT204 8-A02 50-134* 

EW'205 8-405 50-^ 35* 

Em206 8-408 50-136* 

EMT207 8-411 50-137* 

Em21 8-51 50-19* 

EHTPIO 8-414 50-138* 

EMT211 8-417 50-139* 

EMT212 8-420 50-140* 

EMT213 8-425 50-141* 

Em214 8-426 50-142* 

EMT215 8-429 50-143* 

EMT216 8-432 50-144* 

EMT217 8-435 50-145* 

EMT22 8-54 50-20* 

EMT220 8-438 50-146* 

Em 221 8-441 50-147* 

EMT2:2 8-444 50-148* 

EWT223 8-447 50-149* 

EMT224 50-150* 

EMT225 50-151* 

EWT?26 50-152* 

EMT227 50-153* 

EMT23 8-57 50-21* 

EMT230 50-154* 

EMT231 50-155* 

EMT232 50-156* 

EMT233 50-157* 

EMT234 50-158* 

EWT255 50-159* 

EMT236 50-160* 

fMT237 50-161* 

EMT24 8-60 50-22* 

EMT240 50-162* 

EMT241 50-163* 

eMT242 50-164* 

EMT243 50-165* 

EMT244 50-166* 

EMT245 50-167* 

EWT240 8-504 50-168* 

EMT247 8-507 50-169* 

EWT25 8-63 50-23* 

FMT250 8-510 50-170* 

Fm251 8-513 50-171* 

EMT252 8-516 50-172* 

c«T253 8-519 50-173* 

E«r254 8-522 50-1 74* 

EWT255 8-525 50-1^5* 

f<«fT256 6-528 50-176* 

f«T257 6-531 50-177* 
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EMT?6 

EMT260 

EMT261 

E»^T262 

EMT263 

EWT265 

E«T2'66 

EMT267 

EWT27 

EMT270 

EMT27i 

Em272 

Em273 

EMT274 

E«r275 

EMT276 

EMT277 

EF«T3 

EMT30 

EMr300 

EMT301 

EMT502 

E^T303 

EMT304 

EWT305 

EMT306 

EMT307 

E«T31 

EMT310 

EMT311 

EMT312 

EMT313 

E«T3U 

EMT315 

EMT316 

EMT317 

EMT3? 

EMT320 

EMT321 

EMT322 

fMT323 

EWT324 

EMT325 

EMT526 

EMT327 

EMT33 

EMT530 

f«T331 

EmT332 

EMT333 

Em 334 

EMT35S 

E«n36 

EMT337 

Emj4 

EWT340 



8-66 

8-S54 

8-537 

8-540 

8-543 

8-546 

8-549 

8-552 

8-556 

8-69 

8-559 

8-563 

8-566 

8-569 

8-573 

8-577 

8-581 

8-586 

8-9 

8-72 

8-590 

8-594 

8-597 

8-600 

8-603 

8-606 

8-609 

8-612 

8-75 

8-615 

8-618 

8-621 

8-624 

8-627 

8-630 

8-633 

8-636 

8-78 

8-639 

8-642 

8-645 

8-648 

8-651 

8-654 

8-657 

8-660 

8-81 

8-663 

8-666 

8-669 

8-672 

8-675 

8-678 

8-351 

8-684 

8-84 

8-687 



50-244r 
50-178* 
50-1 79# 
50-1 80# 
50-181# 
50-1 82# 
50-183* 
50-184* 

50-185* 
50-25* 
50-186* 
50-187* 
50-188* 
50-189* 
50-190* 
50-191* 
50-192* 
50-193* 
50-5* 
50-26* 
50-194* 
50-195* 
50-196* 
50-197* 
50-198* 
50-199* 
50-200* 
50-201* 
50-27* 
50-202* 
50-203* 
50-204* 
50-205* 
50-206* 
50-207* 
50-208* 
50-209* 
50-28* 
50-210* 
50-211* 
50-212* 
50-213* 
50-214* 
50-215* 
50-216* 
50-217* 
50-29* 
50-218* 
50-219* 
50-220* 
50-221* 
50-222* 
50-223* 
8-681 
50-225* 
50-30* 
50-226* 



50-224* 
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EMT342 
E^«f 

EM^3A4 

EMT345 

EMT5A6 

EMT5A7 

EMT35 

Em350 

EM^351 

EMT352 

EMT353 

Em 354 

EMT36 

EMT37 

EMT4 

EMT40 

EHTA1 

kMTH3 

EMTAA 

EMTA5 

EMTA6 

EKTA? 

EMT5 

EMT50 

EMT51 

EMT52 

E»1T53 

EMT54 

EMT55 

EMT56 

EMT57 

EMT6 

E«T60 

EMT61 

EMT6c 

EMT63 

EMT6A 

EMT65 

EMT66 

EMT7 

EMT70 

EMT71 

EMT72 

EMT73 

fMT74 

EMT75 

EMr76 

EMT77 

EMTVEC 

EQUALS 

ERR 

fRRNMB 

ERROR 

f RR'VP 



8-690 

8-693 

8-696 

8-699 

8-702 

8-705 

8-708 

8-87 

8-711 

8-7U 

8-717 

8-720 

8-723 

8-90 

8-93 

8-12 

8-96 

8-99 

8-102 

8-105 

8-108 

8-111 

8-1U 

8-117 

8-15 

8-120 

8-123 

8-126 

8-130 

8-135 

8-136 

8-139 

8-U2 

8-18 

8-U6 

8-150 

8-154 

50-53* 
8-160 
8-163 
8-166 
8-169 
8-21 
8-172 
8-175 
8-178 
8-182 
8-185 
8-188. 
8-191 
8-194 
4-4 75# 

47-3# 
4-544# 

41-48* 

4C-' 



50-227* 

50-228* 

50-229* 

50-230* 

50-231* 

50-232* 

50-233* 

50-31* 

50-234* 

50-235* 

50-236* 

50-237* 

50-238* 

50-32* 

50-33* 

50-6* 

50-34* 

50-35* 

50-36* 

50-37* 

50-38* 

50-39* 

50-40* 

50-41* 

50-7* 

50-42* 

50-43* 

50-44* 

50-45* 

50-46* 

50-47* 

50-48* 

50-49* 

50-8* 

50-50* 

50-51* 

50-52* 

50-54* 

50-55* 

50-56* 

50-57* 

50-9* 

50-58* 

50-59* 

50-60* 

50-61* 

50-62* 

50-63* 

50-64* 

50-65* 

10-23* 

13-215 
41-49* 



10-23* 

1 3-965 
41-52 



13-:32 
41-57 



13-: 98 
41-64 



13-; 64 
41-160* 



22-84 



?2-86 



22-102 22-136 
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FPR.EC 



ERTVOO 

ERTVOI 

ERTY02 

EPTV03 

EPTv(K 

ERTV05 

ESRC 

^0 

f 1 

f ; 
u 
rfp 



15-<93 
18-29 
20-8 
27-U« 
41-21 
41-46 
41-51 
41-53 
41-152 
41-39 
4-61 64f 
4-486# 
4-485# 
4-484* 
4-483* 
4-482* 
4-568* 
13-41 
: 3-1 63* 
13-210* 
1 3-320 
1 3-395* 
13-412* 
13-434 
13-453* 
13-479* 
1 3-497 
13-507* 
13-535 
1 3-549* 
13-566* 
13-591 
13-610* 
13-632* 
1 3-662 
1 3-689* 
13-743* 
13-759 
13-821* 
1 3-856* 
13-883 
13-906* 
1 3-983* 
13-: 83 
13-; 49* 
15-; 88* 
1 3-<24* 
1 3-<60* 
13-=05* 
15-= 75 
15-=87* 
15->07* 
1 3->32 
1 5->49* 
1 5->71* 
:3->99 



10-25 

13-<94 

18-29 

20-9« 

27-25« 

41-165* 

41-166* 

41-167* 

41-168* 

41-169* 

41-170* 

22-29 
22-29 
22-29 
22-29 
22-29 
4-574 
13-41* 
13-170 
13-210* 
1 3-320* 
13-397 
13-412* 
13-434* 
13-455 
13-479* 
1 3-497* 
13-507* 
13-535* 
13-551 
1 3-566* 
13-591* 
13-618 
1 3-632* 
1 3-662* 
1 3-694 
13-743* 
13-759* 
1 3-835 
13-856* 
13-883* 
1 3-91 7 
1 3-983* 
13-: 83* 
13-; 52 
13-<07 
l3-<27 
1 3-<72 
13-=05* 
15-= 75* 
13-=97 
13->07* 
13->52* 
1 3->61 
13->71* 
1 3->99* 



10-23* 


10-23* 


10-25* 


1C-26* 


13-4 


13-4 


13-5* 


13-6* 


i3-19* 


1*.-<95« 


13-<96« 


13—53* 


13--';4* 


13-CC4* 


13-C05* 


17-35 


17-5S 


1 7-lQp 


18-33« 


18-34* 


18-59* 


18-59* 


19-3 


19-5 


19-4* 


19-5* 


19-11* 


20-10* 


20-34* 


20-34* 


25-20 


25-20 


25-21* 


25-22* 


25-51* 


25-51* 


27-25* 


39-1 


39-1 


39-1* 


39-1* 


59-1* 


59-1* 


39-1* 


40-1 



13.19. 

1 7-40* 
19-18* 

27-12 
40-1* 



13-25* 
1 7-70* 
19-18* 
27-1 
40-1 • 



SfO c^: ' 

13-r'5' 
17-70* 
20-8 
27-1 !• 



23-113 



22-416 

13-41* 

1 3-1 70* 

1 3-264 

1 5-320* 

1 5-597* 

13-414 

13-434* 

13-455* 

13-481 

1 3-499 

13-512 

13-535* 

13-551* 

13-568 

13-591* 

13-618* 

13-645 

13-662* 

13-694* 

13-745 

13-759* 

13-835* 

1 3-860 

1 3-883* 

1 3-91 <^* 

13-:17 

1^-:85* 

15-; 52* 

1 5-<07* 

15-<27* 

15-< 72* 

15-=07 

15-= 75* 

15-=97* 

15->09 

13->52* 

15->61* 

13->73 

1 3->99* 



13-59 

13-170* 

15-264* 

15-566 

15-397* 

15-414* 

13-436 

13-455* 

13-481* 

13-499* 

13-512* 

13-557 

15-551* 

1 3-568* 

13-596 

13-618* 

13-645* 

13-667 

13-694* 

13-745* 

13-804 

13-835* 

13-860* 

13-888 

13-917* 

13-: 17* 

15-: 86 

15-; 52* 

1 5-<07* 

15-<55 

15-< 72* 

1 5—07* 

15-77 

15-=97* 

15->09* 

15->54 

13->61* 

15->73* 

13-701 



13-59* 

15-172 

15-264* 

15-566* 

13-402 

13-414* 

13-436* 

13-460 

13-481* 

13-501 

13-512* 

13-537* 

13-553 

13-568* 

13-596* 

1 3-620 

13-645* 

1 3-667* 

13-718 

13-745* 

1 3-804* 

13-837 

13-860* 

1 3-888* 

13-950 

13-: 17* 

^3-: 86* 

1 3-; 54 

13-<10 

15-<35* 

13-<74 

15—07* 

15-- 77* 

15->01 

13->0Q* 

13->34* 

13->65 

13->73* 

'3-701* 



13-59* 

13-172* 

15-267 

15-566* 

13-402* 

13-419 

13-436* 

13-460* 

13-483 

13-501* 

13-525 

13-537* 

13-553* 

13-582 

13-596* 

13-620* 

13-647 

15-667* 

15-718* 

13-747 

13-804* 

1 3-837* 

13-862 

1 3-888* 

13-950* 

13-:20 

13-: 86* 

15-; 54* 

15-<10* 

15-<55* 

15-<74* 

15-=59 

15—77* 

13->01* 

13->16 

15->34* 

13->65* 

13->83 

13-?01* 



3-65 

3-17?* 

5-267* 

5-387 

3-402* 

5-419* 

5-438 

^-460* 

3-483* 

3-501* 

5-525* 

5-542 

5-555* 

5-582* 

5-604 

5-620* 

5-647* 

5-679 

5-718* 

5-747* 

5-815 

5-857* 

5-862* 

3-893 

3-950* 

3-: 20* 

5-: 88 

5-; 54* 

3-<12 

5-<44 

5-<74* 

5—59* 

5- 79 

5->01* 

3->16* 

3->36 

3->65* 

3->83* 

V^03 



13-65* 

13-176 

1 3-267* 

13-387* 

13-408 

13-419* 

13-438* 

13-465 

13-485* 

15-503 

15-525* 

15-542* 

15-555 

13-582* 

1 3-604* 

1 3-622 

15-647* 

13-679* 

13-755 

15-747* 

13-813* 

13-839 

13-862* 

1 3-895* 

15-955 

15-: 20* 

15-: 88* 

15-; 82 

13-<12* 

15-<44* 

15-<89 

15-=59* 

15—79* 

15->03 

13->16* 

13->56* 

i3->67 

13->83* 

'5-70^* 



13-65* 

15-176* 

15-270 

15-587* 

1 5-408* 

15-426 

15-458* 

15-465* 

15-485 

15-505* 

15-550 

15-542* 

13-555* 

1 3-584 

1 3-604* 

15-622* 

15-649 

15-679* 

15-755* 

15-749 

15-815* 

1 5-859* 

15-879 

15-893* 

15-955* 

15-: 22 

15-: 88* 

15-; 82* 

15-<12* 

15-<44* 

15-<89* 

15-=69 

15-79* 

13->03* 

15->25 

15->36* 

13->67* 

i3->93 

13-703* 



15-146 

15-176* 

15-270* 

15-390 

13-408* 

13-/. 26* 

15-445 

15-465* 

15-485* 

15-503* 

13-550* 

15-547 

15-555* 

15-584* 

1 5-608 

15-622* 

15-649* 

1 5-687 

15-755* 

15-749* 

15-819 

1 5-859* 

15-879* 

15-895 

15-955* 

15-: 22* 

15-; 16 

15-; 82* 

15-<14 

15-^56 

1 5-<89* 

15-=69* 

15-=81 

15->05* 

15->25* 

15->58 

1 5->67* 

15->93* 

13-^05 



13-146* 

15-189 

1 5-270* 

1 5-590* 

15-410 

15-426* 

13-443* 

15-475 

1 5-485* 

15-505 

15-550* 

15-547* 

15-560 

1 5-584* 

1 5-608* 

15-627 

15-649* 

15-687* 

15-755 

15-749* 

15-819* 

15-844 

15-879* 

1 5-895* 

15-955 

15-: 22* 

13-; 16* 

13-; 85 

15-<14* 

15-<56* 

15-=05 

15-=69* 

15-=81* 

15->05 

15->25* 

15->58* 

13->69 

1 3->93* 

13-705* 



13-146* 

13-189* 

15-280 

15-590* 

15-410* 

15-452 

15-^45* 

15-475* 

15-490 

1 5-505* 

13-555 

15-547* 

15-560* 

13-586 

15-608* 

15-627* 

15-657 

15-687* 

1 5-735* 

13-751 

13-819* 

1 3-844* 

1 3-881 

1 3-895* 

13-955* 

13-: 50 

13-; 16* 

15-; 85* 

15-<14* 

15-<56* 

15-=05* 

15—75 

15-=81* 

1 5->05* 

1 5->50 

15->58* 

13->69# 

13-^97 

'3- ■'05* 



13-165 

15-189* 

15-280* 

15-595 

15-410* 

1 5-452* 

15-455 

13-475* 

13-490* 

1 5-505* 

15-555* 

1 5-549 

15-560* 

15-586* 

15-610 

15-627* 

1 5-657* 

15-689 

1 5-755* 

15-751* 

15-821 

15-844* 

15-881* 

15-906 

15-955* 

15-: 50* 

15-;49 

13-; 88 

13-<24 

13-<60 

'5-=05# 

15-=75# 

15-=87 

15->05* 

15->50# 

15->49 

1 5-^69* 

1 3->97# 

'3-?'1 



15-165* 

15-210 

13-280* 

1 3-595* 

15-412 

15-452* 

15-453* 

15-479 

15-490* 

13-507 

15-555* 

1 5-549* 

13-566 

15-586* 

15-610* 

15-652 

1 5-657* 

15-689* 

15-745 

15-751* 

15-821* 

1 5-856 

15-881* 

15-906* 

15-985 

13-:50# 

15-;49# 

15-; 88* 

1?-<24* 

13-<60* 

15-=05 

15-= 75* 

15-=87* 

15->07 

15->50* 

l5->49* 

15-^71 

1 5->97« 

13-7"* 
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13-?52# 

'3-?6^ 

1 3-S05# 
13-iAA 
1 3-a5A# 

i3-a9«# 

13-A06 
13-A4ir 
1 3-A73# 
13-A90 
13-ei5# 
13-826* 
13-C10# 
13-C33 
^3-CA3* 
13-C83* 
13-C97 
'3-D37# 
1 3-DA9# 
1 3-D89 
1 3-D97# 
13-E38# 
13-E76 
' 3-E93# 
13-F?6# 
1^-F49 
13-F65# 
13-F96# 
4-641* 
13-678 
26-58 
1 3-956 

4- 488# 
13-65 
13-501 
13-860 

1 3->30 
13-820 
15-47 

7-0# 

7-0# 
13-63 
13-594 
1 3-< 92 
13-846 

5- 1 
44-1 
44-"' 

4-487* 
13-606 
13-; 32 
^3-829 
1 5-E67 
10-28 

4-565* 



13-722 

13-732* 

13-762* 

13-795 

13-805* 

13-844* 

13-856 

1 3-894* 

13-A06* 

13-A45 

13-A75* 

13-A90* 

13-81S 

13-828 

13-C10* 

13-C33* 

13-C45 

13-C83* 

13-C97* 

13-D41 

13-D49* 

1 3-D89* 

13-E14 

13-E38* 

13-E76* 

13-E98 

13-F26* 

13-F49* 

13-F67 

13-F96* 

1 3-854 

13-898 

32-99 

1 3-964 

31-17 

1 3-1 70 

13-530 

1 3-893 

13->65 

13-651 

15-90 

17-37 

13-185* 

13-168 

1 3-630 

13-= 70 

13-C23 

5-1 
44-1 
44-1 
13-259 
1 3-629 
13-; 34 
13-880 
13-FOl 
44-1* 

4-574 



13-V2* 

13-734 

13-762* 

13-795* 

13-807 

13-844* 

1 3-856* 

13-896 

1 3-A06* 

13-A45* 

13-A75 

13-A90* 

13-818* 

13-828* 

13-C24 

13-C33* 

13-C45* 

13-C85 

13-C97* 

13-D41* 

13-D51 

1 3-D89* 

13-E14* 

13-E40 

13-E76* 

13-E98* 

13-F28 

13-F49# 

13-F67* 

13-F98 

1 3-864 

13-COO 



13-722* 

13-734* 

13-764 

13-795* 

13-807* 

13-846 

1 3-856* 

13-896* 

13-A08 

13-A45* 

13-A75* 

13-A92 

13-820 

1 3-828* 

13-C24* 

13-C37 

13-C45* 

13-C85* 

13-C99 

13-D41* 

13-D51* 

13-D91 

13-E14* 

13-E40* 

13-E80 

13-E98* 

13-F28* 

13-F57 

13-F67* 

13-F98* 

13-941 

13-C51 



13-726 

13-734* 

13-764* 

13-797 

1 3-807* 

13-846* 

1 3-859 

1 3-896* 

1 3-A08* 

1 3-A53 

13-A75* 

13-A92* 

13-820* 

13-848 

13-C24* 

13-C37* 

13-C61 

13-C85* 

13-C99* 

13-D43 

13-D51* 

13-D91* 

13-E30 

13-E40* 

13-E80* 

13-Fn 

13-F28* 

13-F57* 

13-F69 

13-F98* 

13-:08 

13-C53 



13-189 
13-547 
1 3-906 
1 3->97 
13-C27 
15-114 

13-186* 
13-208 
] 3-665 
13—98 
13-C76 
10-6 
44-1 
44-1 
1 3-364 
1 3-664 
13-; 92 
1 3-A30 
13-F42 



13-210 
1 3-566 
13-953 
13-726 
13-C37 
15-143 

13-187* 

15-261 

13-723 

13-->27 

13-D33 

10-28 

44-1 

44-1 

13-583 

13-677 

13-<33 

13-A65 

13-F56 



1 3-264 
i3-b96 
13-: 20 
13-760 
13-C81 

15- 170 

16- 13 

1 3-278 
13-779 
1 3->62 
1 3-D 79 
10-42 
44-1 
44-1 
1 3-404 
13-720 
1 5-<40 
13-802 
13-F86 



13-726* 

13-745 

13-764* 

1 5-797* 

13-810 

13-846* 

1 3-859* 

1 3-898 

1 3-A08* 

13-A53* 

13-A84 

13-A92* 

1 3-820* 

13-848* 

13-C27 

13-C3'* 

15-C61* 

15-C89 

13-C99* 

13-D43* 

13-D66 

13-D91* 

13-E30* 

13-E42 

15-E80* 

13-Fll* 

13-F30 

13-F57* 

13-F69* 

13-GOO 

13-: 74 

13-D09 



l^-:23 13-: 31 13-:89 13-:97 



1 3-280 
1 3-608 
13-:86 
15-795 
13-C93 
15-205 

17-38 

1 5-384 

13-816 

1 3->94 

15-E26 

10-53 

44-1 

44-1 

13-423 

13-781 

13-<42 

13-812 

15-125 



3-726* 
3-745* 

3-766 

3-797* 

3-810* 

3-848 

3-859* 

3-898* 

3-AlO 

3-A53* 

3-A84* 

3-A98 

3-822 

5-B48* 

5-C27* 

5-C59 

5-C61* 

5-C89* 

5-D01 

5-D45* 

3-D66* 

3-D93 

3-E50* 

3-E42* 

3-E82 

3-F11* 

3-F30* 

3-F61 

3-F69* 

5-GOO* 

3-; 40 

3-D 11 



3-320 
3-632 
3-; 52 
3-803 
3-D41 
7-31* 



3-405 
3-S57 
5-723 
3-E75 
0-59 

44-1 

44-1 
3-449 
3-815 
3-=63 
3-839 
";-185 



13-728 

13-745* 

13-766* 

13-799 

13-810* 

13-848* 

13-861 

13-898* 

13-AlO* 

13-A55 

13-A84* 

13-A98* 

15-822* 

13-651 

13-C27* 

13-C39* 

15-C77 

15-C89* 

15-D01* 

15-D45 

13-D66* 

15-D93* 

13-E54 

15-E42* 

13-E82* 

13-F13 

13-F30* 

13-F61* 

13-F82 

1 5-GOO* 

13-; 98 

13-D57 



15-728* 

13-756 

13-766* 

13-799* 

13-812 

13-848* 

13-861* 

13-A02 

13-AlO* 

13-A55* 

13-A86 

13-A98* 

13-822* 

13-851* 

13-C29 

13-C39* 

13-C 77* 

13-C93 

13-D01* 

13-D45* 

13-D83 

15-D95* 

15-E54* 

13-E44 

13-E82* 

13-F13* 

13-F32 

13-F61* 

15-F82* 

1 5-G02 

15-818 

13-D59 



15-728* 

15-: 56* 

13-768 

13-799* 

13-812* 

1 3-852 

13-861* 

13-A02* 

13-A41 

13-A55* 

1 3-A86* 

13-608 

13-624 

13-851* 

13-C 29* 

13-C41 

13-C77* 

15-C93* 

13-D21 

13-D45* 

13-D83* 

13-D95 

15-E54* 

15-E44* 

15-E91 

13-F13* 

13-F32* 

13-F65 

15-F82* 

15-G02* 

13-820 

13-E03 



3-; 55 13-;63 22-130 48-55* 



15-566 
13-647 
15-<12 
13-844 
13-D87 



13-<.24 

15-891 

15-757 

15-F10 

10-60 

44-1 

44-1 

15-469 

15-855 

15-=91 

13-C 16 

20-20 



15-587 
1 5-667 
15-<35 
13-852 
13-E34 



13-450 
13-919 
13-791 
15-f51 

12- 50 
44-1 
44-1 
15-492 
1 5-890 

13- >19 
13-C32 
21-92 



22-379 22-384 22-399 22-401 22-4^4 22-429 48-77 



1 3-408 
13-679 
15-<44 
1 3-894 
13-E80 



13-476 
1 5-985 
13-840 

13- F93 

14- 20 
44-1 

1 3-494 
13-955 
13->54 
13-C68 
21-104 

48-78 



13-7 50 

13-756* 

13-768* 

13-805 

15-812* 

1 3-852* 

13-878 

13-A02* 

13-A41* 

13-A60 

13-A86* 

13-808* 

13-624* 

15-855 

15-C29* 

13-C41* 

13-C81 

1 3-C93* 

13-D21* 

13-D47 

1 5-D85* 

15-D95* 

15-E56 

15-E44* 

15-E91* 

13-F24 

13-F32* 

13-F65* 

15-F92 

1 5-G02* 

15-867 

15-E05 



15-426 
15-755 
15-<74 
13-A02 
13-F13 



1 3-497 
13-: 52 

13- 890 
15-46 

14- 20 
44-1 

13-515 
13-935 
1^-.>87 
13-C 88 
2^-'' 09 

48-81 



13-750* 

13-760 

13-768* 

13-803* 

13-827 

1 5-852* 

13-878* 

13-A04 

13-A41* 

13-A60* 

13-A88 

13-608* 

13-624* 

13-653* 

15-C31 

15-C41* 

15-C81* 

15-C95 

15-D21* 

13-D47* 

1 3-D87 

15-D95* 

15-E56* 

15-E60 

15-E91* 

13-F24* 

13-F37 

13-F63* 

15-F92* 

13-G04 

13-869 

13-E50 



15-452 
15-745 
15—05 
13-A43 
13-F24 



15-527 
15-;18 

1 5- A40 

16- 10* 
44-1 
44-1 

1 5-544 
15-:02 
15-715 
1 3-D26 
21-125 

48-8S 



13-730* 

13-760* 

13-779 

13-803* 

1 3-827* 

1 3-854 

1 3-878* 

1 3-A04* 

13-M3 

13-A6C* 

13-A88* 

13-615 

13-626 

13-653* 

13-C31* 

13-C43 

13-C81* 

15-C95* 

15-D57 

15-D47* 

15-D87* 

15-D97 

15-E36* 

13-E60# 

13-E93 

13-F24* 

1 5-F 37* 

15-F65 

1 5-F 92* 

1 3-G04* 

13-A16 

13-E52 



13-455 
15-804 
15—75 
13-A75 
13-F61 



13-545 
l3-;85 
1 5-A72 

44-1 
44-1 

15-562 
l5-:66 
15-749 
15-D68 
22-51 

4«-8^. 



15- 



15-'t.# 

1 5-779* 

13-805 

1 3-827# 

1 5-854* 

13-894 

1 3-AO*,* 

13-A43* 

1 3-A73 

13-A88* 

13-615* 

15-626* 

13-C10 

13-C 51* 

13-C43* 

1 3-C83 

13-C95* 

13-037* 

13-049 

1 3-087* 

1 3-097* 

13-E58 

13-€60* 

13-E93* 

13-F26 

13-F37* 

13-F65* 

13-F96 

13-G04* 

15-A18 

13-F41 



13-479 
13-819 
15->C1 
13-A84 
13-F96 



13-563 
13-<27 
15-609 

44-1 
44-1 

' 3-593 
13-:g8 
'5-781 
13-E^^ 
22-S4- 



Piffl'^FNCF TABLE (CRE^ VOl-05 ) 



■UCRO V04.0C 4-APR-81 



G 8 

: 43:^-8 PAGE S-«r? 



: 


4-64 3# 


13-854 


13-864 


22-177 






4-St4# 


4-574 


22-386 








11-17 


58-7* 








1..T 


4-475# 


38-1 


38-1 


41-90 


13-359 




4-562# 


13-:90 


13-:92 


- 13-BlO 




P6-67 


30-24 


30-78 


30-81 


32-88 




40-1 


40-1 


40-1 


40-1 


40-1 




4-701 # 


17-51 


17-54 


18-45 


18-48 


IF 


4-7U# 


4-747* 


13-720 


13-781 




iLf 




1 3-957 


1 3-959 


22-155 


22-157 




48-70 


48-71 


48-72 


48-73 


48-74 


IL»02 


4-492# 










Uf24 


4-5C2* 










ILF26 


4-503# 










iLf 30 


4-S07# 










1LF32 


4-507# 










ILF34 


4-507# 










ILF36 


4-507# 










ILFAO 


4-507# 










ILF42 


4-507# 










ILF44 


4-507# 










1LF46 
ILF54 


4-507# 
4-S10# 


















IlF56 


4-51 1# 










ILF64 


4-5 K# 












4-51 5# 










ILF74 


4-518# 








1 3-; 75 


1LF76 


4-51 9# 
4-57^# 


1 3-976 


13-:43 


13-; 09 


ILR 

ILRGSO 


13— 10 


13-=40 


29-51 


29-97 


4-6'J9# 










ILRG52 


4-699# 






- 




ILRG54 


4-609# 










ILRG56 


4-699# 










ILRG60 


4-699# 










ILRG62 


4-699* 










ILRG6A 


4-699* 










ILRG66 


4-699* 










ILRG70 


4-699* 










ILRG72 


4-699* 










ILRG74 


4-699* 










ILRG76 


4-699* 










lorvEc 


4-475* 


10-23* 


10-23* 






IPCKO 


4-751* 










IPCKl 


4-750* 










IPC>c2 


4-749* 












4-748* 










IR 


4-7?7* 


13-83 


28-58 






IVf 


4-668* 


13-456 


13-; 24 


13-: 26 


1 3-A46 


?6-85 


26-208 


30-92' 


30-99 


30-102 




48-62 


48-63 


48-64 


48-67 


48-68 




48-78 


48-79 


48-80 


48-81 


48-82 


.8( 


4-670* 


-13-367 


1 3-370 


13-371 






4-548* 


15-215 


22-358 


23-91 


23-95 


i F 


4-475* 


38-1 


38-1 


41-88 


47-n 




10-128 


47-23* 








. s 


4-625* 


13-106 
13-518 


28-82 


3-'-70 






4-669* 









1 3-A08 
52-108 
40-1* 



29-51 
48-75 



13-D49 

48-59 

40-1* 



29-111 
48-76 



1 3-D95 

48-69 

40-1* 



29-115 
48-79 



13-E42 
48-77 
40-1 • 



30-24 
48-80 



22-285 
48-78 



30-45 
48-83 



25-89 
48-81 



30-48 
48-84 



25-105 
48-82 



48-58 
48-87 



25-152 
48-8S 



48-67 
48-88 



26-47 
48-8^ 



48-68 



15-<18 
29-101 



50-232 30-236 30-239 



1 3-A48 
30-171 
48-69 
48-83 



54-79 



13-A50 
32-125 
48-70 
48-84 



13-A53 
32-149 
48-71 
48-85 



13-E84 
32-152 
48-72 
48-86 



13-E86 
52-239 
48-73 
48-87 



13-E88 
35-58 
48-74 
48-88 



15-F91 

48-58 

48-75 



22-198 22-199 
48-59 48-60 
48-^6 48-77 



■ fifffUFNCt TABLE (CREf VOI-05 ) 



H 8 
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PE 
MOPE 



»s 

MSDRVS 
^ISE 

PKGDRV 

^smelp 
nuR 

MUD 
f%P 

•jDtmsn: 



NED 

NONE 

NOP 

NOTAVL 

NOrPRS 

NOTRM 

NSA 

OCC 

OFD 

ofFSf r 
cm 



' OPE 
QPI 



OR 

PACACK 

PARACK 

PAR 

PAT 

PDA 

PfECH? 

Pff ''M5 
Pf E( 



4-626# 
7-0# 

4-709# 

4-633# 

26-167 

32- 208 
4-600# 
4-605# 
A-608* 

11- 6A 
4-676# 
4-605# 

12- 67 
11-11 

4-601* 
4-624* 
4-606# 
4-724# 

11- 19 
4-5 74# 

13- 810 
1 3-GC2 

4-721# 
4-722# 

12- 7 
4-491 # 

10-116 
10-113 
10-107 
4-631* 
4-612* 
4-644* 
4-497* 
4-553* 
30-204 
4-667* 
4-^.59* 

33- 42 
48-70 
48-84 

4-726* 
4-501* 
4-500* 
4-569* 
4-729* 
4-619* 
4^-67 
4.-172 
41-172 
41 -■'72 
4^-172 



13- '•06 

12- W* 

13- 193 
13-318 
13-198 

13-318 

10-109 
26-195 
33-35 



47-16* 

13-318 

47-1 7# 

47-7* 

13-318 

13-107 

13-318 

13-198 

47-30* 

13-551 

1 3-359 

10-87 

22-328 

47-29* 

1 3-^ 74 

47-25* 

47-24* 

47-22* 



13-854 
1 3-492 
1 3-244 
31-29 

22-182 
48-57 
48-71 
48-85 



4-501 
13-<76 
13-<64 

41-172* 
41-175* 
41-1^6* 
41-179* 
41-781* 



28- 82 

12- 62« 

21- 92 

22- 454 
^ 3-929 

13- 212 

29- 37 
3^-36 



13-929 
28-83 
13-; 28 
22-343 

13-582 
1 3-A08 



31-70 
13-831 

21-109 



1 3-870 
21-122 



13-070 
21-125 



15-E06 
32-70 



23-62 
32-75 



26-55 32-94 



13-995 13-: 62 13-; 28 13-<31 13-<38 



13-216 

29-40 

33-40 



1 3-244 

30-68 

33-45 



13-287 
30-145 



13-290 
30-146 



13-327 
30-153 



13-330 
30-158 



13-331 
31-30 



26-146 
32-189 



13-995 

31-71 



13-618 
13-A53 



13-:62 13-; 28 13-<31 13-<38 



13-747 
1 3-A90 



13-835 
13-826 



13-879 
13-C43 



13—79 
13-C99 



1 3->07 
1 3-D49 



13->36 
13-D95 



13->71 
13-E42 



13-198 21-74 21-78 25-31 



1 3-864 

13-562 13-593 13-629 13-664 13-720 13-781 13-890 13-<42 13-602 

13-569 13-572. 13-573 13-822 13-826 13-896 13-899 13-900 13-907 

26-140 26-164 29-51 29-69 29-73 30-24 30-61 30-64 30-155 

48-58 48-59 48-60 48-61 48-62 48-63 48-64 48-65 48-66 

48-72 48-75 48-74 48-75 48-76 48-7? 48-78 48-79 48-80 

48-86 48-87 48-88' 

13-259 15-583 15-955 15-:66 15-;32 13-<53 15-125 

15-<^8 21-157 21-141 21-153 26-50 30-24 30-29 30-54 32-50 



26-156 
32-200 



26-157 
32-?01 



26-16? 
32-205 



1 3-7.03 
15-E91 



IV? 32 
15-f 50 



13-766 
13rf67 



13-544- 13-606 13-677 13-790 13-920 13-986 13-: 53 13-; 19 13-; 86 13-<40 



13-F42 
13-910 



30-145 30-201 



32-182 32-185 32-210 
48-67 48-68 48-69 
48-81 48-8? 48-83 



RFfftfNCE TABLE Cklf vOI-CS > 



I 8 

^-APP-S" r:A?:?8 PAGE S-A 



PhA 

: IP 

PIftQVE 
PLfS 

PR? 
P«? 

PP5 
PR6 
PR7 

PRIERR 



PS 
PSEL 

psy 

PUT 



PlITBUf 



PWRVEC 
OUES 
R6 
R7 

RCLSTS 
RD 

RDCHR 

RDLIN 

RDOCT 

RDV 

READY 

RECAL 

RESREG 

Rf SVEC 



26-177 
<,-A75# 
4-A7S# 
4-61 7# 
4-475* 
4-475# 
4-4 75# 
4-475# 
/ -475# 
4-A75# 
4-475# 
4-475# 
13-267 
13-821 
13-728 
■:3-D89 
4-4 75 
4-710# 
4-4 75# 
13-41 
13-423 
13-664 
1 3-950 
13-<29 
13-799 
1 3-D83 
7-0* 
7-0* 
13-318* 
13-423* 
13-544* 
13-675* 
1 3-890* 
1 3-995* 
13-; 32* 
1 3-<40* 
1 3-A28* 
13-E62* 
21-144 
4-475* 
47-5* 
4-475* 
4-475* 
13-412 
4-516* 
11-12 
43-1 

11- 35 
4-713* 

12- 37* 
4-494* 

41-156 
4-475# 



13-^98 
13-244 

13-215 
26-182 



39-5 

12- 48 
10-26 

13- 708 
13-390 
13-862 
13-762 
13-E36 

4-475* 



13-59 

13-445 

13-675 

1 3-993 

13-<31 

13-348 

13-E30 

18-31 

13-38* 

13-364* 

13-445* 

13-562* 

13-677* 

13-890* 

13-: 09 

13-; 41 

13-<42* 

13-A28* 

13-E68 

10-23* 

10- 23 
13-483 

n-65 

44-1* 

11- 49 

13- 70 

14- 16 

1 3-404 
44-1* 



31-29 

1 3-293 
30-145 



39-9 

13-6 

13-775 

13-410 

1 3-895 

1 3-a05 

13-E82 



13-146 
13-447 
13-677 
1 3-995 
13-<33 
1 3-598 
13-E62 

13-39* 

13-364* 

13-445* 

13-562* 

13-677* 

13-904* 

13-: 60* 

13-; 90* 

13-<42* 

13-A34 

13-F04 

10-23* 

10- 23* 

13- 505 

11- 82 

44-1* 

20-20 

14- 20 

1 3-423 



13-296 
50-216 



13-434 
13-955 
13-a54 
13-F26 



13-163 
1 3-449 

13-718 
13-: 17 
13-<38 
13-A28 
13-E76 

13-5^ 

13-379* 

13-^47* 

13-593* 

13-715* 

13-904* 

13-: 60* 

13-; 90* 

13-<67 

13-A66 

13-F43 

45-1* 

10-23* 

15-215 

42-1 

20-21 
1 3-449 



1 3-297 
50-221 



13-333 
31-29 



13-336 
32-200 



13-427 
32-221 



13-455 
13-: 22 
1 3-A04 
13-F63 



13-183 
13-475 

13-720 
13-:60 
13-<40 
13-A41 
13-F11 

13-143* 

13-379* 

13-447* 

13-593* 

13-716* 

13-927* 

13-: 62* 

13-; 99 

13-=64 

13-803 

13-F54* 

45-1* 



30-15* 
44-1* 

21-88 
1 5-469 



13-481 
13-:88 
13-A45 
13-F98 



13-259 
13-492 
13-781 
13-: 62 
13-<42 
13-A73 
13-F49 

13-144* 

13-381* 

13-449* 

13-606* 

13-720* 

13-927* 

13-: 62* 

13-<29* 

13-=92 

13-613* 

13-F55* 

45-1* 



13-503 
1 3-; 54 
1 3-A86 
21-41* 



13-277 
13-494 
13-790 
13-: 66 
13-<72 
1 3-B08 
13-F57 

13-155 

13-381* 

13-449* 

1 3-606* 

13-720* 

13-929* 

13-: 66* 

13-<29* 

13->20 

13-814* 

13-F87 

45-1* 



21-91 
13-494 



28-33 
1S-185 



13-533 
13-<14 
13-822 



13-318 
13-525 
13-815 
13-: 83 
13-=69 
13-815 
13-F92 

13-183* 

13-383* 

13-470 

13-629* 

13-781* 

13-929* 

13-: 66* 

13-<31* 

13->55 

1 3-840 

15-126- 

45-1* 



1 3-A76 
32-226 



13-701 13-710 13-766 13-769 13-<96 17-40 



13-549 
13-=07 
13-853 



13-364 
13-544 
13-856 
13-; 26 
13-=97 
13-848 
15-128 

13-183* 

13-383* 

13-492* 

1 3-629* 

13-781* 

13-933* 

13-: 75 

13-<31* 

13->88 

13-C17 

1 5-127* 

45-1* 



15-A79 
33-55 



18-34 

13-568 
13-= 75 
13-C29 



13-379 
13-562 
13-890 
13-; 28 
13->25 
13-C24 
15-190 

13-259* 

13-404* 

13-492* 

13-643* 

13-790> 

13-933* 

13-; 26* 

13-<33* 

13-716 

13-C70 

'5-186* 



13-F15 
33-7? 



19-5 

13-610 
13->03 
13-C39 



13-381 
13-593 
13-904 
13-; 32 
13->61 
13-C33 
18-28* 

13-259* 

13-404* 

1 3-494* 

13-644* 

13-790* 

13-942 

13-; 26* 

13-<33* 

13-750 

1 3-D27 

IS-IB/'* 



13-F19 
33-77 



SCO 0507 



15-180 26-156 



20-10 25-22 27-14 



13-649 
13->32 
13-C83 



13-383 
13-606 
13-927 
13-; 49 
13->93 
13-C 77 



13-277* 

13-421* 

13-494* 

13-664* 

13-815* 

13-993* 

13-; 28* 

13-<38* 

13-785 

1 3-D 73 

15-188* 



13-735 
13->67 
1 3-C95 



13-404 
1 3-629 
13-929 
13-; 90 
13-722 
13-C89 



1 3-277* 

13-421* 

13-519 

13-664* 

13-815* 

13-993* 

13-; 28* 

1 3-<58* 

13-934 

13-E20 

15-189* 



13-745 
13->99 
13-043 



13-421 
15-645 
1 3-933 
13-<07 
13-756 
1 3-D37 



13-318* 

1 3-4?3« 

13-544* 

13-675* 

13-846 

13-995* 

13-; 32* 

1 3-<40* 

13-a84 

1 3-E62* 

18-52 



RUiS REFEUFNCE TABLE Kf^EF vC'-C5 ; 















~w 
























RtP 




1 J O J J 








Rl FA^F 
















1 3-f>63 


1 3-715 






RMA^ I 




1 3-Q5 




3 

JO 1 J 








t^-ll* 








RMBA 


4-75 7# 




1 3-52 


1 3-1 56 


RMBAF 












RMRAF 1 


7-QM 










Rl^RAFD 


7-0* 










RMBAI 


7-0* 


1 3-7ft 


23-32 


23-34 


28-44 




7-0* 


1 3-AA» 


1 3-149» 




1 3- -04* 




A-681* 


4-755* 


10-89 


1 3-8* 


1 3-56 






1 3-492 


1 3-494 


1 3-523 


1 3-544 




13-815 


' 3-850 


1 5-890 


1 3-957 


1 3-948 




^ 1 


1 3--67 


1 3-=95 


1 3->25 


13->58 
13-D31 




1 3-ai3 


1 3-B44 


1 3-f 21 


15-C74 




" 7-42 


18-36 


20-19 


25-28 






7-0* 


13-68 


13-191 


21-67 


21-69 




21-126 


22-51 


22-53 






RICSIO 


7-0* 


13-48* 


1 3-1 53* 


13-1 74* 


1 5-185* 




13-515* 


13-544* 


13-562* 


13-593* 


15-606* 




1 3-933* 


13-935* 


13-936* 


l^--02* 


15- -05* 




1 3-<40* 


13-<42* 


13—63* 


13-=91* 


13->19* 




13-602* 


13-S12* 


1 5-n59» 


13-C16* 


15-f 52* 




1 3-F86* 


15-125* 


15-185* 


22-28 


25-48 


RMCS2 


4-758* 


10-84* 


10-85* 


10-87 


12-56* 




1 3-<68 


17-41 


18-35 


25-27* 


25-29 


RWCS2I 


7-0* 

23-28 


13-80 
28-53 


13-197 
56-13 


21-49 


21-74 


111 IV w 


7-0* 


13-49* 


13-154* 


15-<65* 




RMCS3 


4-761* 










RMCS3I 


7-0* 










RI*ICS30 


7-0* 










RMDA 


4-682* 


13-4 72 


13-520 


13-847 


15-946 




13->90 


13-718 


13-751 


13- ''87 


15-357 




13-E23 


13-571 


1 3-F 06 


1 3-F 44 


1 5-F89 


RMDAI 


7-0* 


1 3-868 


13-870 


23-137 


56-14 




7-0* 


13-468* 


13-514* 


13-852* 


13-939* 




1 3->86* 


13-714* 


13-748* 


13- ''84* 


1 5-ijK* 




13-A33* 


13-A64* 


13-801* 


15-858* 


13-C14* 




1 3-D54 


13-D60* 


1 3-D 70* 


1 3-D 71 * 


13-D99* 




23-60 


23-61 


26-53 


26-56 


26-60 


RMDS 


4-759* 


13-17* . 


■r13-18 


13-38 


15-143 




7-0* 










RMOfiO 


7-0* 


13-37* 


13-142* 






RMDC 


^-591 4r 


1 3-471 


1 3-848 


1 3-904 


13-947 

1 3-386 




13-''17 


13- ■'52 


13-"88 


1 3-a36 




1 3-E 70 


13-F05 


13-F45 


1 3-F 88 


1 5-186 


RMDCl 


7-0* 


13-873 


13-875 


23-150 


56-14 


PWDCO 


7-0* 


13-467* 


13-853* 


13-904* 


13-940* 




13->52* 


13->85* 


13-713* 


13-736 


13-738* 




1 3-A32* 


1 3-A63* 


1 3-800* 


15-837* 


13-C13* 




13-F02* 


13-F39* 


-3-F 84* 


^5-183* 


23-59 




6-683* 


10-86 


10-109 
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SfO 0306 



13-943 13-:10 13-:76 13-;42 13-<00 



56-14 

13-: 70* 13- .-36* 15-; 94* 23-26 23-30 

13-160 13-183 13-185 13-259 13-364 13-383 13-404 15-423 13-449 

13-562 13-593 13-606 13-629 13-664 13-677 13-720 13-781 13-790 

13-: 15 13-: 66 13-: 81 13-; 32 13-; 47 13-<05 13-<33 13-<40 13-<42 

13->91 13-719 13-753 13-789 13-338 13-388 13-A38 13-A70 13-606 

13-D77 13-E24 13-E73 13-F08 13-F47 13-F54 13-F90 15-126 15-188 

21-71 21-88 21-90 21-93 21-104 21-108 21-110 21-122 21-124 

23-12 28-31 31-16 32-70 32-74 32-76 56-13 

13-259* 13-364* 13-383* 13-404* 13-423* 13-449* 13-469* 13-492* 13-494^ 

13-629* 13-664* 13-677* 13-720* 13-781* 13-790* 13-815* 13-855* 13-890' 

13-: 66* 13-: 68* 13-: 69* 13-; 32* 13-; 34* 13-; 35* 13-; 92* 13-; 93* 13-<33' 

15->54* i3->87* 13-715* 13-749* 13-781* 13-329* 13-380* 13-A30* 13-A65' 

13-C68* 13-C88* 13-D26* 13-D68* 13-E16* 13-E67* 13-F01* i3-F42* 13-F56' 

12-57* 13-13 13-14* 13-15 13-16* 13-57 13-62* 13-161 13-186 

^7-16* 27-18* 

21-76 21-77 22-99 22-170 22'27^ 22-314 22-329 22-344 22-455 



13-: 13 13-. 79 13-; 45 13-<03 15-<69 15- 66 13—94 13->22 13->56 

13-385 13-A36 13-A67 • 13-805 13-841 13-C18 13-C73 13-D30 13-074 

15- 187 
56-16 

13-:06* 13-:72* 13-;38* 13-;96* 13-<66* 13- 62* 13—90* 13->18* 13->53' 

13-315 13-321* 13-331* 13-332* 13-363* 13-364 15-370* 13-371* 13-382' 

13-C47* 13-C48 13-C55* 13-C63* 13-D05* 13-D06 13-D15* 13-D25* 13-053' 

13-EOO 13-E06* 13-E07* 13-E18* 13-E65* 13-F03* 13-F40* 13-F85* 15-''84' 

32-94 32-97 32-101 

16- 20 

13-:U 13-:80 13-;46 13-<04 13—65 13-=93 13->21 13->57 13->89 

13-A37 13-A68 13-804 13-842 13-C19 13-C7? 13-028 13-075 13-E22 

56-16 

13-:07* 13-:73* 13-;39* 13-;97* 13-=61* 13-=89* 15->14* 13->40* 13->41 

13-747* 13-770 13-772* 13-785* 13-350* 13-381* 13-A12* 13-A13 13-Al9i 

13-C69* 13-C87* 13-D24* 1 5-D69* 13-E17* 13-E46* 13-E47 '3-E53* i3-E64« 

26-49 32-90 
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P«1DSI 



RMDSO 
RMDT 

m>u 

RMDTO 

RMECl 

RMECII 

RMECIO 

RMEC2 

RMEC2I 

r<MEC20 

RMER1 

RMER1 I 



RMER10 

RMER2 

RMER2I 



RMER20 

RMHR 

RMHRI 

Rf"HRO 

RMLA 

RMLAI 

RMLAO 

RMMRI 

RWIRII 
RMMPIO 

RMMR? 
RMMR2I 
RMMR20 
R«OF 

R«Of I 
RMOFO 



7-0# 

1 3-3?7 
13-600 
1 3-830 
1 3-A78 
P2-358 
26-206 
30-157 

3- -28 
32-255 

7-0# 

4- 688# 
7-0# 
7-0* 
^-695# 
7-0# 
7-0# 
A-696# 
7-0# 
7-0# 
-i-63A* 
7-0* 

21- 137 

22- A89 
29-51 

29- 113 

30- 82 
32-56 

7-0* 

4-694* 

7-0* 
1 3-367 
2A-27 
30-103 

32- 1A9 

33- 108 
7-0* 
4-692* 
7-0* 
7-0* 
4-686* 
7-0* 
7-0* 
4-687* 

13-: 62 

7-0* 

7-0* 
13-:62* 

4-693* 

7-0* 

7-0* 

4-690* 
13-r76 

7-0* 

7-0* 
15-A16 
-3-D59' 





IT "MO 

1 3-212 


1 7 

1 5- 


14 


1 T no 
1 5*5^V 


1 5-553 


1 7 

1 5- 


•555 


1 3-6 1 1 


17 1 7 

1 5-6' 5 


■1 7 

5- 


iL77 

■655 


1 5-896 


1 7 QCiQ 

1 5-o96 


1 7 

1 5- 


OA 7 


1 3-F 1 5 


13-F18 


15- 


•122 


23-92 


26-91 


26- 


•146 


26-210 


26-cl <: 


<:o- 


•ICO 


30-159 


30-169 


30- 


■173 


56 


ZO—I OQ 

5c- 1 oV 


7 0- 


1 QO 


32-257 


33-34 


33- 


■40 


10-91 


12-58 


41- 


■26 


^6-3 


C/L 1 7 

56- 1 ' 






56-14 








16-15 








13-113 


16-14 


28- 


94 



13-53 
13-90 

21- 152 

22- 492 
29-55 

29- 114 

30- 155 
32-58 
13-45* 
13-54 
13-125 
13-369 
26-32 
30-116 

32- 151 

33- 110 
13-46* 



13-857 
56-16 

13-55 
13-; 26 
13-105 
13-47* 
13-; 26* 



13-157 
13-227 
21-154 
23-89 

29- 57 

30- 24 
30-232 
32-107 
13-150* 
13-158 
13-221 
13-456 
26-85 
30-118 

32- 153 

33- 112 
13-151* 



13-159 
13-; 28 
13-281 
13-152* 
13-; 28* 



1 3-849 

13-F21 

13-863 

13-854* 

13-A18* 

13-D72* 



13-945 
13-E 72 
22-177 
13-941* 
13-636* 
13-E 03 



13-421 
1 3-229 

22- 80 

23- 105 

29- 58 

30- 29 
30-236 
32-182 
13-421* 
13-521 
13-223 
13-: 25 
26-88 
30-120 
32-166 
56-13 
13-517* 



13-858 13-867 



13-277 
1 3-<29 
13-284 
13-277* 
13-<29* 



13-117 28-103 31-81 



13-:12 
13-F46 
22-487 
13-: 08* 
13-878 
13-E 05* 



13-217 
13-339 
13-635 
1 3-909 
15-180 
26-155 

29- 23 

30- 174 

32- 205 

33- 44 



31- 94 

13-522 
13-234 

22- 156 

23- 120 

29- 69 

30- 33 
30-238 

32- 184 
13-516* 

13-248 

13-A46 

26-99 

30-130 

32-168 

13-518* 



13-318 

13-<31 

13-321 

13-318* 

13-<31* 

56-17 
13-: 78 

56-14 
13-: 74* 
1 3-898 
13-E 19* 



13-241 
13-341 
13-650 
13-965 
21-106 
26-162 

29- 25 

30- 185 

32- 207 

33- 46 



56-15 

13-675 
13-236 

22- 183 

23- 132 

29- 71 

30- 35 
30-240 
32-186 
13-675* 

13-250 
13-A49 
26-127 
30-132 
32-170 



13-379 

13-<38 

13-324 

13-379* 

13-<38* 



56-16 
13-; 40* 
13-COO* 
13-E 50 



13-243 

13-357 

13-652 

1 3-969 

22-38 

26-166 

29- 27 

30- 187 

32- 209 

33- 56 



13-; 90 
13-958 
22-226 
2i,-2i, 

29- 72 

30- 45 
30-250 
32-210 
13-; 90* 

1 3-305 
13-E 84 
26-130 
30-134 
32-223 



13-381 
1 3-A28 
28-81 
13-381* 
13-A28* 



13-245 
13-359 
1 3-668 
13-: 32 
22-40 
26-68 

29- 37 

30- 189 

32- 221 

33- 60 



1 3-A69 
13-: 91 
22-241 
26-30 

29- 83 

30- 47 
30-252 
33-42 
13-A62* 

13-307 
13-E87 
26-179 
30-171 
32-239 



13-445 

13-A35 

31-69 

13-445* 

13-A31* 



13-287 

13-427 

13-670 

13-: 36 

22-85 

26-177 

29- 39 

30- 201 

32- 225 

33- 61* 



13-F07 
13-; 57 
22-284 
26-37 

29- 85 

30- 49 
30-254 
56-13 

1 3-F 00* 

13-31-1 

15-55 

26-208 

30-218 

33-58 



13-447 

13-E62 

56-17 

13-447* 

13-E62* 



1 3-289 
1 3-569 
1 3-680 
13-: 98 
22-102 
26-181 

29- 41 

30- 203 
12-227 
33-62 



21- 145 
13-<47 

22- 361 
26-66 

29- 86 

30- 61 
30-264 

21-141 

13-313 
21-139 
28-116 
30-266 
33-74 



13-927 
13-E 69 

13-927* 
13-E63* 



13-293 
15-571 
13-683 
13-; 02 
22-1 36 
26-183 
30-68 
30-205 

32- 237 

33- 72 



13-<50 
22-387 
26-140 

29- 97 

30- 63 
30-268 



13-345 
22-82 

30- 31 

31- 103 
33-88 



13-295 
13-575 
1 3-822 
13-; 64 
22-140 
26-192 
30-106 
30-216 

32- 241 

33- 76 



1 3-<76 
22-402 
26-143 

29- 99 

30- 65 
30-270 



13-347 
22-200 
30-92 

32- 52 

33- 94 



13-299 
13-577 
1 3-825 
13-; 68 
22-196 
26-194 
30-144 
30-220 

32- 243 

33- 78 



SEO 0509 

15-501 
15-S97 
1 5-828 
1 3-A76 
22-225 
26-196 
50-155 
50-222 
32-253 
56-15 



13-<79 
22-t,^7 
26-164 

29- 100 

30- 78 

31- 41 



13-351 

22-2^t 

30-99 

32-125 

35-96 



13-=09 
22-470 

28- 71 

29- 111 

30- 80 
32-50 



13-555 
22-452 
50-101 
52-129 
55-98 



15-929 15-995 15-995 15-: 60 



15-929* 13-993* 13-995* 13-:60«' 



13-; 44 13-<02 15-786 15-335 15-887 15-843 13-C20 13-C71 15-D29 



15-; 98* 13-782* 13-918 13-320* 13-333* 13-367 13-369* 15-385* 
15-C15* 13-CS1 13-C53* 13-C64* 13-D09 T3-D11* 13-D25* 13-D57 
13-E52* 15-E66* 13-F41* 26-58 32-99 56-1' 
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SEO 0S10 



msH 

RHSNI 
RMSNO 
RMUC 
RMWCl 

RMyco 

RQA 

ROB 

RTC 

SA1 

SA16 

SA2 

SAA 

SA8 

SADMSK 

SAVREG 

SC 

SfO 

SCI 

SC2 

SC3 

SCA 

SCHSTS 
SCOPE 



SCTMSK 
SEARCH 
SECERR 



SEEK 

SEKSTS 

SHUT 

SIZCLK 

SKI 



SNGPRT 
STACK 



STANDA 

START 

STARTl 

START2 

STCDRV 

STKLMT 

STOP 



4-570# 

A-689# 

?'QM 

7-0# 

4-756# 

7-0# 

7-0# 

A-655# 

A-65A* 

A-535# 
A-53U 
<,-534# 
A-535# 
A-532# 
A-539# 

41- 13 
A-707# 
4-588# 
A-587# 
4-586# 
4-585# 

13-CA1 
4-475# 
13-510 
13-;U 
13-376 
U-9 
A-590# 
A-504# 
13-176 
1 3-839 
13-628 
4-A93# 
13-C16 
13—77 
26-1 9# 

42- 1 

12- 28 
4-666# 

26-106 
32-137 
4-636# 

4- 475# 

13- 488 
13-: 48 
13-325 
1 3-F 79 
10-66 

5- 1 
5-3 

10-15 
13-436 
4-4 75# 
39-1 
52-' 



13-^47 

56-17 

13-9* 

23-10 

13-938* 

13-118 

13-118 

13-815 



23-68 
44-1# 
13-69 



13-C97 
13-1 
13-540 
13-; 80 
13-A24 



13-639 
13-270 
1 3-883 
13-C45 
13—63 
13-C68 
13->05 

42-1 

19-3# 

13-126 

26-117 

32-223 

10- 23 
-3-510 
13-;14 
13-376 

11 - 5# 
10-1 7Xf 
10-14# 
10-18* 
13-553 

39-5# 
52-2 



13—49 29-51 29-85 29-87 30-232 30-250 30-253 



13-10 

23-23 

13-:05« 

28-104 

28-104 



1 3-944 

23-44 

13-:71* 

31-82 

31-82 



13-:11 
23-115 
13-;37» 



13-: 77 13-; 43 
56-14 

13-;95» 23-24 



13-<01 
23-45 



21-92 21-109 21-125 28-32 



13-D45 

13-32 

13-558 

13-<22 

13-A58 



13-C32 
13-397 
13-=81 
13-D01 
13- 91 
1 3-F 86 
13->34 

42-3Xf 

13-248 
26-179 
33-74 

13-1 
1 3-540 
13-; 80 
13-A24 



12- 33 

13- 27 

13-584 



52-8 



13-D91 
13-137 
13-589 
13-<54 
13-A95 



13-C88 
13-414 
13->09 
13-D51 
13->19 



13-E38 
13-179 
13-625 
13-<87 
13-631 



13-D26 
13-438 
13->38 
13-D97 
13->54 



13-F65 
1 3-204 
13-660 
13-=56 
13-C08 



13-D68 
13-460 
13->73 
13-E44 
13->87 



32-40* 
13-255 
1 3-692 
1 3-=84 
13-C59 



13-E16 
13-485 
13-705 
13-E93 
13-715 



13-273 
13-757 
13->12 
13-D19 



13-E67 
13-507 
13-734 
1 3-F 32 
13-749 



13-375 
13-811 
1 3->46 
13-D64 



13-FOl 
13-537 
13-768 
1 3-F 69 
13-781 



13-400 
13-842 
13->80 
13-E12 



1 3-F 56 
13-555 
13-312 
13-G04 
13-329 



13-305 
28-117 
33-89 

13-32 
13-558 
13-<22 
13-A58 



12- 42 

13- 620 
52-10 



13-308 

30-92 

33-108 

13-137 
13-589 
13-<54 
13-A95 



42-5 

13-687 

52-11 



13-345 
30-116 
33-1 1 1 

13-179 
13-625 
13-<87 
13-631 



13-749 
52-12 



1 3-348 
30-119 



13-204 
13-660 
13-=56 
13-C08 



13-837 
56-1 3# 



13-349 
30-218 



13-255 
13-692 
13-=84 
13-C59 



15-178 
32-89 



13-273 
13-757 
13->12 
13-D19 



26-48 
32-92 



15-375 
13-811 
13->46 
13-D64 



13-417 
13-886 
13-708 
13-E58 



22-104 
13-586 
13-361 
22-24# 
13-380 



13->69 13-701 13-730 13-764 13-307 13-356 13-A06 13-624 



26-51 
32-1 1 1 



1 3-400 
13-842 
13->80 
13-E12 



13-441 
13-915 
13-^42 
13-E96 



23-5 

13-622 

13-A10 

13-A30 

13-C31 

I 

26-70 
32-125 



13-417 
13-886 
13-708 
13-E58 



13-463 
13-981 
13-776 
1 3-F 35 



13-689 
13-A55 

13-A65 

13-C85 



26-100 
32-130 



13-441 
13-915 
13-742 
13-E96 



13-488 
15-:48 
13-325 
1 3-F 79 



13-751 
13-A92 

13^12 

13-GOO 



26-102 
32-1 32 



13-463 
15-981 
13-776 
15-F55 



13-881 13-A88 13-D47 13-D93 13-E40 15-F28 3j-27# 
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STSD^ 
STSD3 
STSW 
STSF 

STSHI 

S^SH? 

STSH4 

SwO 

SWOO 

SW01 

SU02 

Stt03 

SU04 

SW05 

Sw06 

5W07 

SWOB 

SW09 

SW1 

SWIO 

SW11 

SW12 

SW13 

SWK 

SW15 

SW2 

SW3 

sy4 

SW5 
SU6 
SW7 
SW8 
SW9 

sum 

SWREG 

SrSTAT 

TA1 

TA16 

TA2 

TAA 

TA8 

TADMSK 
TAG 

TAGADR 
TAP 

T8ITVE 
TIMOUT 



r»cvEC 

TPVEC 
TRAPVE 

TRE 



52-1 
S6-16# 

52- 1 
55-1 

53- 11 
5^-1 
51-1 
55-^'5# 
51-1 

4-475 
A-475 
4-475 
4-475 
4-475 
4-475 
4-475 
4-475 
4-475 
4-475 
4-475* 

4-475* 
4-4 75* 
4-475* 
4-475* 
4-475* 
4-475* 
^-475* 
4-475* 
4-475* 
4-475* 
4-475* 
4-475* 
4-475* 

4- 475* 
6-0* 

59-1* 

5- 1* 
10-76 

4-528* 
4-524* 
4-527* 
4-526* 
4-525* 
4-53&r 

4- 655* 

5- 9* 
4-632* 
4-475* 

1 3-262 
13-:18 
1 3-A82 
13-F59 
4-475* 
4-475* 
4-475* 
4-708* 



52-2 

52- 2 

53- 1 
53-12 
51-2 
51-2 

4-4^S* 
4-<.75* 
4-475* 
4-475* 
4-4 

4-4 75* 
4-475* 
4-475# 
4-475* 
4-475* 



41-14 



10-23 
39-1* 
10-23 
47-18* 

12-62 
12-62 
12-54 

23-66 

6-0 



13-385 
13-: 84 
13-610 
13-F94 
42-1* 

10-23* 
13-183 



52-8 

52- 8 

53- 1 
55-12 
51-8 
51-8 

51-8 



10-23 
39-1- 
10-28 



1 3-406 
13-; 50 
13-818 
15-136 
42-1* 

10-23* 
13-'' 93 



52-10 52-11 



52- 10 

53- 2 
53-12 
51-9 
51-9 

51-9 



13-430 
1i-<10 
1 3-849 
15-198 



52- 11 

53- 2 
57-7* 

51-11 
51-11 

51-11 



10-23* 10-23' 
40-1 40-1 
42-1 42-1 



13-451 
13-=71 
13-C25 
20-8* 



52-12 

52-12 
55-2 

51-12 
51-12 

51-12 



10-23* 

40-1 

42-1 



13-477 
13—99 
13-C35 



56-14* 

56-17* 
55-8 

51-15 
51-'5 

51-15 



55-8 

55-21* 
55-25* 

55-26* 



55-8 



53-10 55-10 55-10 



55-11 



5J-11 



10-28 
40-1 



59-1 
40-1 



39-1 
41-14 



39-1 
42-1 



39-1 
42-1 



39-1 
42-1- 



39-1 
45-1 



39-1* 
45-1* 



1 3-499 
l3->28 
13-C79 



13-528 
13->63 
13-C91 



13-564 
l3->95 
13-D39 



13-722 13-733 13-817 
13-724 13-758 13-301 
13-D85 15-E32 13-E78 



1 3-858 
1 3-950 
13-F 22 



13-951 
13-AOO 
13-F52 



21-92 21-109 21-125 22-106 22-108 25-12 



to; ft 






T 




1 3-119 


TST1 




39-1 






39-1 






39-1 






39-1 


TSTll 




39-1 




1 3>A634r 


39-1 


Tsns 


1 3-A88ir 


39-1 


TST16 
T$Ti 7 




39-1 


1 3-SA0# 


39-1 


T«T? 




39-1 






39-1 


T5TP1 




39-1 


T5I?? 


1 3-625* 


39-1 




1 3-660# 


39-1 


1 J 1 c~ 


1 3-692# 


39-1 




1 3-757* 


39-1 




1 3-81 1* 


39-1 






39-1 




1 3-1 37# 


39-1 


7ST50 


1 3-886# 


39-* 


TST31 


1 3-91 5# 


39-1 




13-981 AT 


39-1 


TST33 


13--48# 


39-1 






39-1 


TST^,5 


1 3- • 80# 


39-1 






39-1 






39-1 


TST4 


1 3-1 79# 


39-1 


TSTAO 


1 5-<87# 


39-1 




1 5- 56# 


39-1 


TSTA2 


1 3--84# 


39-1 


TSTA5 


13->12* 


39-1 


TSTAA 


1 3->A6# 


39-1 




1 3->80# 


39-1 


TST46 


13-708* 


39-1 


TSTA7 


1 3-''42# 


39-1 






39-1 


TST50 


13-776* 


39-1 




1 3-a254r 


39-1 




1 3-a76# 


39-1 


TST53 


1 3-A24# 


39-1 




1 3-A58# 


39-1 




1 3-A95# 


39-1 




13-fi31# 


39-1 


TST57 




39-1 


TST6 


13-255* 


39-1 


TST60 


13-C59* 


39-1 




1 3-D 19* 


39-1 




1 3-D64* 


39-1 




1 * tic 


39-1 






39-1 






39-1 






39-1 


TbT67 




39-1 


'<;i7 


t ?-27?# 


?9-1 
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'CUO 



•vPDS 



TVPCC 

TVPON 

TVPOS 

UO 

Ul 

U? 

OJTOfF 

JUT on 

UPE 

USE 
VV 

UC 

ycD 

-.E 

UCEHI 

WCELO 

WCF 

WCH 

UD 

WH 

wLE 

WRL 

XSIZ 

XXDP 



>5-<,02 
i3->83 
7-ot 

'3-886 

1 3-?08 
13-£58 

u-?o 

10-6 
1C-128 

12-7 

4C-1 

A1-134 

42-1 

10-8 

4A-1# 

10-45 
4-733# 
4-733# 
4-733# 
4-558* 

?9-55 
4-737# 

10-120 

10-131 
4-720* 
(,-6770 
4-552* 

30-U5 
4-622* 
4-508* 
4-719* 
4-744* 
4-745* 
4-567* 
4-509* 
4-512* 
4-513* 
4-561* 
4-547* 

10-70* 
7-0* 

47-31* 



41-45* 
13-419 
^3-888 
13-?11 
13-f37 

12- 8 

13- 441 
13-915 
13-742 

13- E96 
44-1* 

14- 20 
10-28 

10- 131 

11- 48 

12- U 
41-20 

41- 152 

42- 1 
M-33 

10-56 



13-91 

29- 59 
13-<63 
47-26* 
47-27* 
13-198 

13-244 

30- 146 
13-106 



4-574 
13-241 
n-71 
10-33* 



41-47 

13-445 

'3-917 

13-745 

13-F82 

12- 9* 

13- 463 
1 3-981 
13-776 
i3-f35 

41-143 
10-42 

10- 132 

11- 54 

12- 25 
41-21 

41- 154 

42- 1 
11-47 

10-81 



1 3-227 
30-232 
21-50 



22-270 

13-357 
30-169 
28-82 



41-159* 

13-465 

13-983 

13-779 

15-38* 

12- 49 

13- 488 
13-:48 
1 3-a25 
13-F 79 

44-1* 

10-48 

10- 133 

11- 61 

12- 30 

41- 39 

42- 1 
42-1 
41-146 

12-16 



13-230 
30-264 
21-52 



13-360 

30- 175 

31- 70 



4-574 22-240 



13-; 56 
13-^99 
11-101 
10-36« 



13-; 58 
1 3-^02 

10-37 



13-490 
13-: 50 
13-827 

12- 57 

13- 510 
13-; 14 

1 3- a76 

14- 11 



10-53 

10- 140 

11- 62 

12- 66 

41- 40 

42- 1 
42-1 
42-1 

12-68 



1 3-234 
30-269 



15-122 
31-29 



1»-198 22-169 48-77 48-78 



22-22^ 
1 3-339 



15-512 
13-; 16 
13-878 

15-1 

7 3-540 
13-; 80 

13- A24 

14- 13" 



10- 59 

11- 11 

11- 64 

12- 67 
4'' -46 

4:-i 

42-1 
44-1* 



22-196 
32-156 



22-225 
13-342 



1 3-542 
13-; 82 
13-A60 

13-32 

13-558 

13-<22 

13- A58 

14- 17 



10- 60 

11- 16 
11-69 
U-20 

41- 51 

42- 1 
42-1 



41-22 41-47 



13-560 
1 3-<24 
13-A98 

13-137 
1 3-589 
13-<54 

1 3- A95 

14- 17* 



10- 76 

11- 17 
11-75 
14-20 

41- 53 

42- 1 
44-1* 



41-52 



13-591 
13-<56 
13-C10 

13-179 
13-625 
l3-<87 
13-631 
25-24 



10- 80 

11- 19 
11-86 
14-20 

41- 61 

42- 1 
45-1 



41-54 



1 3-627 
1 3-<89 
13-C61 

1 3-204 
13-660 
13-=56 
13-C08 
27-17 



10- 82 

11- 20 
11-87 
35-1 

41- 104 

42- 1 



44-1* 



13-662 
13-=59 
15-021 

13-255 
13-692 
13-=84 
13-C59 
28-56 



10- 107 

11- 28 
11-92 
36-1 

41- 110 

42- 1 



13-694 
13—87 
13-D66 

13-273 
13-757 
13->12 
''3-D19 
31-53 



10- 113 

11- 32 
11-100 
37-1 

41- 114 

42- 1 



13-759 
13->16 
I3-E14 

13-375 
13-811 
1 3->46 
13-064 



10- 116 

11- 34 

12- 3 
5«-1 

41- 126 

42- 1 



M-81 ' 
13- '^.v 
13-E60 

13-40C 
1 3-84.' 
15->8( 
1 3-f 1 ' 



10- 120 

11- 40 

12- 6 

40- 1 

41- 132 

42- 1 



13-421 13-675 i3-;90 13-A62 13-A9G 13-FOO 13-F30 28-72 29-51 



20-91 
3c'-200 



26-156 
32-201 



26-157 
12-257 



26-206 
32-242 



26-21 1 
33-35 



29-23 
33-36 



29-26 
53-56 



l0-39» 10-44 



22-258 
13-343 

'0-55 



22-2"^ 
27-221 



22-268 48-81 ^.8-82 



30-106 
53-61 



10-124 10-126 
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MES - 



tSSET 
tSSETM 
$SSicIP 
.SACT1 
UPTB 
•tAPTH 
.$APTy 
.SCATC 
.SCMTA 
.SEOP 
.SERRO 

.tRDDE 
.tROOr 
.SREAD 
•SSAVE 
.»S(OP 
.SSIZE 
.STRAP 
.STVPB 
.t^VPD 
.STYPE 
.STYPO 
.fOUAT 
.MEADE 
.SETUP 
.SyRHI 
. SyRL 0 
CALCLR 

CALSIB 



5-10# 
5-1 0# 

13-510 
13-;U 
13-a76 

10-23 
4-<.75# 
4-467# 

4-A67# 
4-4,67* 
4-463* 
4-464* 
4-464* 
4-464* 
4-'.66# 
4-465* 
4-465* 
4-465* 
4-466* 
4-464* 
4-466* 
4-466* 
4-465* 
4-465* 
4-464* 
4-465* 
4-463* 
4-463* 
4-463* 
4-463* 
4-463# 
4-178* 
*(3-?93 
4-192* 
13-280 
1 3-432 
13-490 
13-547 
1 3-608 
1 3-687 
13-819 
1 3-895 
13-; 16 
1 3-<44 
13-= 79 
1 5->36 
13-703 
13-766 
13-S48 
15-AlO 
13-A98 
' W?7 



6-0 

13-1 
'3-540 
13-; 80 

13- A24 

44- 1 
10-23* 

5- 5 

6- 0 
5-8 

46-1 
5-1 
5-10 

14- 20 
40-1 

45- ' 

43- 1 
42-1 

34- 1 
39-1 

44- 1 

35- 1 

36- 1 
38-1 

37- 1 
4-475 
4-471 
4-766 
4-472 
4-472* 

13-34 

13-342 

13-41 

1 3-320 

13-434 

13-497 

13-549 

13-610 

1 3-689 

13-821 

1 3-906 

13-; 49 

i3-<56 

13-=81 

1 ?->38 

13-705 

13-768 

13-352 

13-A41 

13-608 

13-C29 



6—0 

13-32 
13-558 
13-<22 
1 3-A5d 
44-1 



6-0# 



4-473 
13-139 
1 3-392 
13-5Q 
13-366 
13-436 
13-499 
13-551 
13-618 
13-694 
13-835 
1 3-91 7 
13-; 52 
13-<60 
13-=87 
13->49 
13-711 
13-779 
13-354 
13-A43 
13-615 
13-C31 



6-0 

13-137 
13-589 
13-<54 
13-A95 
44-1 



1 3-a:6 
13-65 
13-387 
13-438 

i3-:oi 

13-553 
13-620 
13-718 
13-837 
13-950 
13-; 54 
13-<72 
13--97 
13->61 
13-722 
13-795 
13-356 
13-A45 
13-618 
13-C33 



6-0 

13-179 
1 3-625 
13-<87 
13-831 
44-1 



1^-181 
13-833 
13-146 
13-390 
13-443 
13-503 
13-555 
13-622 
13-733 
13-839 
13-953 
13-; 82 
13-<74 
13->01 
13->65 
13-726 
13-797 
13-359 
13-A53 
'3-620 
13-C37 



6-0 

13-204 
13-660 
13-=56 
13-C08 
44-1 



13-2C6 
15-D35 
13-163 
13-393 
13-453 
13-505 
13-560 
13-627 
13-735 
13-844 
13-955 
13-; 85 
13-<89 
13->03 
13->67 
13-728 
13-799 
13-361 
13-A55 
13-622 
13-C39 



1 3-255 
1 3-692 
1 3-=84 
13-C59 
44-1 



13-257 
13-081 
13-170 
13-397 
13-455 
13-507 
1 3-566 
15-632 
13-743 
1 3-856 
1 f-983 
13-88 
13-=03 
1 3->05 
^3->69 
13-730 
13-303 
13-378 
1 5-A60 
1^-624 
13-C41 



13-273 
13-757 
13->12 
13-D19 
44-1 



13-275 
13-E28 
13-172 
13-402 
13-460 
13-512 
13-568 
15-645 
13-745 
1 5-860 
13-:17 
13-<07 
15-=05 
13->07 
13->71 
13-732 
13-305 
13-394 
13-A73 
13-826 
13-C43 



13-375 
13-811 
i3->46 
13-D64 
44-1 



13-i7f, 
13-408 
1 3-465 
13-525 
13-582 

13-6',: 

13-7^7 
1 3-862 
13-: 20 
13-<10 
13-=07 
1 3->09 
13->73 
13-734 
13-307 
1 3-396 
13-A75 
11-828 
13-f45 



1 3-400 
13-842 
13->80 
13-E12 
.44-1 



13-417 
13-886 
13-708 
13-f58 
44-1 



13-441 
13-915 
13-742 
13-f96 
44-1 



13-463 
13-981 
13-776 
l3-f35 
44-1 



13-189 
13-410 
13-475 
13-530 
13-584 
1 3-649 
13-749 
13-879 
13-: 22 
13-<12 
13—59 
13->16 
13->83 
13-745 
13-310 
1 ?-398 
1 3-A84 
13-648 

i3-:6i 



13-210 
13-412 
13-479 
13-533 
13-586 
13-657 
13-751 
1 3-881 
13-:50 
13-<14 
13- 69 
13->25 
13->93 
13-756 
13-312 
1 3-A02 
1 3-A86 
13-851 
13-C 77 



13-264 
13-414 
13-481 
13-535 
13-591 
13-662 
13-759 
13-883 
13-:83 
1 3-<24 
13-= 73 
13->30 
13->97 
1 3-760 
13-327 
13-A04 
1 3-A88 
13-853 
13-C81 



13-267 
13-419 
13-483 
13-537 
13-596 
13-667 
13-804 
1 3-888 
13-:86 
13-<27 
13-=75 
13->32 
13->99 
1 5-762 
13-344 
13-A06 
1^-A90 
13-ClO 
13-C85 



13-488 
13-:48 

i5-a2«» 

13-r79 
44-1* 



13-377 13-922 13-988 13-: 55 13-;21 13-<99 



13-270 
13-426 
13-485 
13-542 
15-604 
13-679 
1 3-81 3 
1 3-893 
13-:88 
13-<35 
13-=77 
13->34 
1 3-701 
13-764 
13-346 
13-A08 
1 3-A92 
1 3-C24 
13-C85 
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FNDCOM 
ERROR 



ESCAPE 

GETPRI 

G6TREG 

GETSUR 

MSG 

MULT 

NEWTST 



POP 



15-066 

13-E42 
13-F50 
13-GOO 

4-4 75# 
4-4 75# 

15-1P8 
^ 3-206 
13-277 
13-350 
1 3-402 
13-438 
1 3-485 
13-542 
13-584 
13-627 
13-677 
* 5-749 
13-837 
1 3-895 
15-962 
15-:62 
15-; 54 
13-<58 
13-=07 
13->07 
13->71 
13-732 
15-905 
13-361 
13-A45 
1 5-A98 
15-C10 
15-C85 
15-D47 
15-E50 
13-E93 
15-f63 
4-475* 
4-4 75# 
4-155* 
4-4 75# 
4-8# 
4-475* 
4-475* 
13-510 
13-; 14 
1 3-376 
«.-56* 
: 3-510 
13-; 14 
13-376 
4-475* 
20-34 
46-1 



13-C95 
13-085 
15-€44 
15-F52 
15-G02 



15-24 

15-134 

^3-2''0 

1 3-280 

15-556 

15-404 

15-445 

1 5-490 

15-544 

13-586 

1 5-629 

1 5-679 

15-751 

1 5-859 

1 5-895 

15-973 

13-:66 

15-; 61 

15-<40 

13-=14 

1 5->09 

15->75 

15-754 

1 5-305 

1 5-378 

15-A45 

15-808 

15-C24 

15-C85 

15-D49 

15-E54 

15-E98 

15-F65 



10-28 
15-f 72* 

15-1 

15-540 

15-; 80 

1 5-A24 

15-1 

15-540 

15-; 80 

1 5-A24 

15-16 

21-147 

46-^ 



15-C95 
15-087 
15-E60 
15-f 57 
13-G04 



13-34 

15-159 
1 5-21 8 
1 5-285 
15-562 
1 5-408 
15-445 
1 3-492 
13-547 
13-591 
1 5-652 
1 5-685 
15-759 
15-844 
15-901 
15-985 
15-:85 
15-; 72 
15-<42 
15-=59 
15->16 
15->85 
15-745 
1 5-307 
15-392 
15-A51 
15-815 
15-C27 
15-C89 
15-051 
15-E56 
1 5-F 1 1 
15-F 67 



10-28* 
15-F 79 

13-52 

15-558 

15-<22 

15-A58 

15-52 

15-558 

l5-<22 

15-A58 

15-19 

21-151 



15-C97 
13-089 
^3-E76 
15-F 49 



15-41 

15-146 

15-225 

1 5-292 

1 5-564 

13-410 

13-447 

13-494 

13-S49 

15-595 

1 5-658 

1 5-687 

13-781 

15-856 

15-904 

15-988 

15-: 86 

15-; 82 

15-<44 

15- 69 

15->25 

13->95 

13-756 

15-310 

15-394 

15-A55 

15-820 

15-C29 

15-C93 

15-066 

15-E58 

15-F13 

15-F 69 



1 5-G06* 

15-137 

15-589 

15-<54 

15-A95 

15-157 

15-589 

15-<54 

15-A95 

15-25 

22-151 



15-C99 
15-091 
13-E80 
13-F57 



15-59 
15-165 

15-251 
15-298 
1 5-566 
15-412 
15-449 
13-501 
15-551 
13-596 
13-645 
1 5-689 
15-790 
15-860 
15-906 
15-995 
''5-:88 
15-; 88 
15-<51 
1 3-= 75 
15->50 
15->97 
15-760 
15-312 
15-396 
15-A55 
15-822 
15-C51 
15-C95 
1 5-081 
15-E40 
15-f 20 
15-F 82 



13-179 
15-625 
15-<87 
15-851 
15-179 
15-625 
15-<87 
15-851 
15—53 
25-51 



15-001 
1 5-095 
15-E82 
13-F61 



13-65 

15-167 

1 5-253 

15-504 

15-572 

15-414 

15-455 

13-503 

13-555 

15-602 

13-647 

1 3-694 

13-804 

1 3-862 

15-912 

15-995 

15-: 95 

15-; 90 

15-<56 

15—75 

15->52 

15->99 

15-762 

15-327 

15-398 

15-A60 

15-824 

15-Ci5 

15-C97 

15-085 

15-E42 

15-F 24 

1 3-F 92 



1 3-204 
15-660 
13—56 
13-C08 
13-204 
13-660 
13—56 
15-C08 
15-=54 
27-25 



15-021 
15-095 
15-E91 
1 3-F 63 



13-73 

13-170 

1 3-246 

13-510 

15-577 

15-419 

15-455 

15-505 

15-555 

1 5-604 

1 5-649 

15-718 

15-805 

15-867 

15-917 

15-. 17 

15-; 06 

15-<07 

15-<60 

13-=77 

l3->54 

15-701 

15-764 

1 5-342 

1 5-A02 

15-A75 

15-826 

15-C57 

1 5-C99 

15-087 

15-E44 

15-F 26 

15-F 96 



15-255 
1 5-692 
1 3-=84 
15-C59 
15-255 
15-692 
15—84 
15-C59 
15-C04 
28-60 



r:-D57 

1--D97 
1 <-E95 
« 5-F 65 



13-78 

13-172 

15-252 

15-516 

15-579 

15-421 

15-458 

15-507 

15-560 

15-606 

^5-655 

15-720 

15-815 

15-872 

15-922 

15-: 20 

15-; 16 

15-<12 

15-<72 

15- 79 

15->56 

15-705 

15-766 

15-344 

15-A04 

1 5-A75 

15-828 

15-C59 

15-D01 

15-089 

15-E60 

15-F 28 

15-F 98 



15-275 
15-757 
15->12 
15-019 
15-275 
15-757 
15->12 
15-019 
13-C05 
51-58 



13-D'.1 
15-E14 
15-E98 
1 3-F 67 



ir -87 

15-176 

'5-257 

15-518 

l3-^'-t1 

13-425 

' 5-460 

15-512 

13-562 

13-608 

13-657 

15-753 

13-815 

13-877 

15-927 

15-: 22 

15-; 21 

15-<14 

15-<74 

15-=81 

15->58 

15-705 

15-768 

15-346 

1 3-A06 

1 3-A81 

15-855 

15-C41 

15-021 

15-091 

15-E62 

15-F 50 

15-GOO 



15-375 
15-811 
15->46 
1 5-D64 
15-575 
15-811 

15- >46 
1 3-D64 

16- 25 
31-59 



i3-D4 3 
13-E 30 

1 ^-r n 

15-F 69 



13-95 

15-181 

15-^59 

1 5-320 

13-585 

1 5-426 

15-465 

15-525 

15-566 

13-610 

1 3-662 

13-755 

15-819 

15-879 

13-929 

15-: 29 

15-; 26 

15-<24 

15-<81 

15-=87 

15->49 

15-711 

13-779 

15-348 

15-A08 

1 5-A84 

15-848 

15-C45 

15-055 

15-095 

15-E76 

15-F 52 

1 5-G02 



15-400 
15-842 
15->80 
15-E12 
15-400 
15-842 
15->80 

15- E12 

16- 26 
54-1 



13-045 
1 5-E 54 
1 5-F 1 3 
15-F 82 



15-105 
15-185 
15-264 
13-325 
15-587 
15-429 
15-475 
13-550 
15-568 
15-616 
1 5-664 
15-756 
15-821 
15-881 
15-955 
15-:40 
15-; 28 
15-<29 
15-<89 
1 5-=97 
15->61 
15-722 
15-795 
13-352 
15-AlO 
15-A86 
15-851 
15-C45 
13-057 
15-095 
15-E80 
15-F 37 
1 5-G04 



15-417 
1 3-886 
13-708 
1 5-E 58 
15-417 
1 5-886 

15- 708 
13-E 58 

16- 27 
56-1 



15-047 
1 5-E 56 
15-F 24 
15-F 92 



13-110 
15-189 
15-267 
15-332 
13-590 
13-452 
15-479 
15-55? 
15-574 
15-618 
1 5-667 
15-745 
1 3-827 
1 5-885 
15-950 
15-: 50 
15-; 52 
15-<51 
15-<99 
15->01 
1 5->65 
15-726 
15-795 
15-354 
15-A26 
1 5-A88 
15-855 
15-C61 
15-D41 
13-097 
13-Ee2 
15-F49 
39-1 



15- .4^ 

15-915 

13-742 

1 5-E 96 

15-441 

13-915 

13-742 

13-E 96 

17-70 

45- 



13-049 
13-E 58 
15-F 26 
'5-F 96 



SEO or'. 

13-L51 
15-EmC 
15-F 28 
1 3-F 98 



15-115 
13-195 
1 5-270 
15-558 
15-595 
13-434 
1 5-481 
15-555 
15-580 
1 5-620 
15-673 
15-745 
•15-855 
15-888 
15-955 
15-: 55 
15-;49 
15-<55 
15-=05 
1 5->05 
1 5->67 
1 5-728 
15-797 
15-356 
1 5-A28 
15-A90 
15-871 
15-C 77 
15-045 
15-E14 
5-E89 
15-F 57 



1 5-465 
1 5-98'' 
13-776 
1 5-F 55 
1 3-465 
15-981 
1 5-776 
13-^55 
18-59 
45-1 



15-122 
13-200 
1 3-275 
15-544 
1 5-597 
15-456 
15-483 
13-557 
1 5-582 
15-622 
15-675 
15-747 
1 5-855 
15-890 
1 5-955 
13-:60 
13-; 52 
13-<35 
1 3-=05 
1 5->05 
13->69 
15-750 
15-799 
15-359 
15-A41 
1 5-A92 
15-695 
1 5-C81 
15-045 
1 5-E 28 
1 5-E91 
15-F 61 



13-488 
15-: 48 
15-325 
15-F 79 
13-488 
13-:48 
1 3-325 
1 5-F 79 
19-18 
45-1 
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'REG 



REPORT 

RGBFWC 

SE^PRl 

SFT^RA 

SETUP 

SKIP 

SLASH 

STARS 



SWRSU 

TAGS 

TRMTRP 

TYPBIN 

TVPOEC 

TVPMM 

TVP^JUM 

TYPOCS 

TYPOCT 

•YPTXT 

XPER 



15-<94. 
31-52 

T3-4A9 
15-815 
13-; 90 
A-<,75# 
4-69# 
4-475# 
44-1 
4-475# 
4-4 75# 
4-475# 
4-475# 
13-179 
13-441 
13-625 
13-915 
'3-<37 
13-?42 
13-631 
13-E96 
21-2 
42-1 
4-4 75# 
4-103# 
44-1* 
4-475* 
4-475* 
4-463* 
4-475* 
4-475* 
• 4-475* 
4-475* 
4-12* 
8-42 
8-84 
8-126 
8-172 
8-215 
8-257 
8-299 
8-341 
8-384 
8-426 
8-468 
8-510 
8-552 
8-603 
8-645 
£-687 



13-4 

16-10 

34-'' - 

13-183 

13-492 

13-890 

13-<29 

7-0 
12-48 
44-1 
10-23 



5- 5 

13-179 

13-441 

13-625 

13-915 

13-<87 

13-?42 

13-831 

13-E96 

22-26 

42-1 

10-23 

6- 0 



14-20 
4-475* 

10- 81 

11- 33 
10-6 

8-3 

8-^5 

8-87 

8-130 

8-175 

8-218 

8-260 

8-302 

8-344 

8-387 

8-429 

8-471 

8-513 

8-556 

8-606 

8-648 

8-690 



13-13 

16-11 

36-1 

13-259 

1 3-494 

1 3-904 

13-<31 

7-0 
39-5 
44-1 



5-8 

13-204 
1 3-465 
1 3-660 
1 3-981 
1 3-=56 
13-? 76 
13-C08 
13-F35 
22-34 
42-1 
10-23* 



14-20 
10-28 

12-16 
42-1 
10-42 
8-6 
8-48 
8-90 
8-133 
8-178 
8-221 
8-263 
8-305 
8-347 
8-390 
8-432 
8-474 
8-516 
8-559 
8-609 
8-651 
8-693 



13-710 

16-12 

43-1 

15-277 

13-544 

15-927 

13-<33 



39-9 
44-1 



5-8 
13-204 
1 5-465 
13-660 
15-981 
13—56 
13-776 
13-C08 
15-F55 
22-119 
42-1 



12-68 

10-55 
8-9 
8-51 
8-95 
8-136 
8-182 
8-224 
8-266 
8-308 
8-351 
8-393 
8-455 
8-A77 
8-519 
8-565 
8-612 
8-654 
8-696 



15-711 

17-55 

45-1 

15-518 

15-562 

1 5-929 

15-<38 



42-1 
44-1 



5-8 
15-255 
15-488 
1 5-692 
15-:48 
15-=84 
15-325 
15-C59 
15-F79 
25-1 
42-^ 



41-22 

10-59 
8-12 
8-54 
8-96 
8-139 
8-185 
8-227 
8-269 
8-511 
8-554 
8-396 
8-458 
8-480 
8-522 
8-566 
8-613 
8-657 
8-699 



15-712 

18-29 

45-1 

15-364 

13-593 

13-933 

13-<40 



44-1 



6-0 

13-255 
13-488 
13-692 
15-: 48 
15-=84 
13-a25 
15-C59 
15-F 79 
25-5 

45-r 



10-60 
8-15 

8-57 

8-99 

8-142 

8-188 

8-250 

8-272 

8-514 

8-357 

8-599 

8-441 

8-483 

8-525 

8-569 

8-618 

8-660 

8-702 



13-715 

19-5 

46-1 

15-379 

13-606 

13-995 

1 5-<42 



44-1 



6-0 
15-275 
15-510 
15-757 
15-; 14 
15->12 
15-876 
15-D19 
14-20 
28-2 
44-1 



41-47 41-52 



12-50 
8-18 
8-60 
8-102 
8-146 
8-191 
8-255 
8-275 
8-317 
8-360 
8-402 
8-444 
8-486 
8-528 
8-573 
8-621 
8-663 
8-705 



13-769 

20-8 

46-1 

15-581 

13-629 

1 3-995 

13-A28 



44- 



6-0 
13-275 
15-510 
15-757 
15-; 14 
15->12 
15-976 
15-D19 
15-57 
54-1 
45-1 



41-54 

14-20 
8-21 
8-65 
8-105 
8-150 
8-194 
8-236 
8-278 
8-320 
8-565 
8-405 
8-447 
8-489 
8-551 
8-577 
8-624 
8-666 
8-708 



l5-7'0 

21-143 

46-1 

15-583 

13-664 

1!-:6C 

13-E62 



44-1 



13-1 

15-575 

15-540 

15-811 

15-; 80 

15->46 

1 5-A24 

15-D64 

15-70 

55-1 

45-1 



14-20 
8-24 
8-66 
8-108 
8-154 
8-197 
8-259 
8-281 
8-525 
8-566 
8-408 
8-450 
8-492 
8-554 
8-581 
8-627 
8-669 
8-711 



13-771 
22-128 

15-404 
15-675 
15-: 62 



44-1 



15-1 

15-575 

15-540 

1 3-81 1 

13-; 80 

1 5->46 

15-A24 

15-D64 

15-84 

56-1 

46-1 



8-27 

8-69 

8-111 

8-157 

8-200 

8-242 

8-284 

8-526 

8-569 

8-411 

8-453 

8-495 

8-557 

8-586 

8-650 

8-6^2 

8-7U 



15-776 
25-20 

15-421 
15-677 
15-: 66 



44-1 



15-52 

1 5-400 

15-558 

15-842 

1 5-<22 

1 3->80 

13-A58 

13-E12 

15-107 

37-1 



8-30 

8-72 

8-114 

8-160 

8-205 

8-245 

8-287 

8-529 

8-572 

8-414 

8-456 

8-498 

8-540 

8-590 

8-653 

8-675 

8-717 



13-777 
27-12 

13-423 
1 3-720 
13-; 26 



44-1 



13-52 

15-400 

15-558 

1 5-842 

15-<22 

l3->80 

15-A58 

15-E12 

15-138 

38-1 



15-778 
28-54 



13-''>i 
31-51 



8-55 

8-75 

8-117 

8-165 

8-206 

8-248 

8-290 

8-552 

8-575 

8-417 

8-459 

8-501 

8-543 

8-594 

8-656 

8-678 

8- ''20 



15-445 13-44 7 
15-781 13-7^^ 
13-; 28 13-; 32 



44-1 



13-157 
15-417 
15-589 
15-886 
15-<54 
15-708 
1 5-A9S 
15-E58 
15-160 
59-1 



8-56 

8-78 

8-120 

8-166 

8-209 

8-251 

8-293 

8-555 

8-578 

8-420 

8-462 

8-504 

8-546 

8-597 

8-659 

8-681 

8-723 



44-1* 



1 3-1 37 
13-417 
1 3-589 
13-886 
13-<54 
13-708 
1 3-A95 
13-E58 
15-200 
40-1 



8-39 

8-81 

8-125 

8-169 

8-212 

8-254 

8-296 

8-338 

8-381 

8-425 

8-465 

8-507 

8-549 

8-600 

8-642 

8-684 



